R/linIP.R

.linIP <- function(ndvi){
	days <- length(ndvi)
	f <- approxfun(x=(-days+1):(2*days), y=c(ndvi,ndvi,ndvi))
	ndvi.interpol <- f(1:days)
	return(ndvi.interpol)
}

Try the phenex package in your browser

Any scripts or data that you put into this service are public.

phenex documentation built on May 1, 2019, 10:56 p.m.