# NOT RUN {
#Gc response function
#Gc response function
raw <- is.trex(example.data(type="doy"), tz="GMT",
time.format="%H:%M", solar.time=TRUE,
long.deg=7.7459, ref.add=FALSE)
input <- dt.steps(input=raw, start="2013-05-01 00:00", end="2013-11-01 00:00",
time.int=15, max.gap=60, decimals=10, df=FALSE)
input[which(input<0.2)]<- NA
input <- tdm_dt.max(input, methods=c("dr"), det.pd=TRUE, interpolate=FALSE,
max.days=10, df=FALSE)
output.data<- tdm_cal.sfd(input,make.plot=TRUE,df=FALSE,wood="Coniferous", decimals = 6)
input<- output.data$sfd.dr$sfd
output<- out.data(input=input, vpd.input=vpd, sr.input=sr, prec.input=preci,
low.sr = 150, peak.sr=300, vpd.cutoff= 0.5, prec.lim=1,
method="env.filt", max.quant=0.99, make.plot=TRUE)
head(output)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab