# load data
	data(avhrr)
	# create NDVI object, correct and model values
	ndvi.list <- modelNDVI(ndvi.values=c(avhrr.ndvi/10000,avhrr.ndvi/10000), 
			year.int=1995, detectSeasons=TRUE,
			correction="bise", method="LinIP", MARGIN=2, 
			doParallel=FALSE, slidingperiod=40)
	ndvi <- ndvi.list[[1]]
	#get seasons
	seasondates <- seasons(ndvi)
Run the code above in your browser using DataLab