# NOT RUN {
#correct for probes being inserted into the heartwood
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="2014-05-08 00:00",
end="2014-07-25 00:50",
time.int=15,max.gap=60,decimals=6,df=F)
input[which(input<0.2)]<-NA
input <-tdm_dt.max(input, methods=c("pd","mw","dr"),
det.pd=TRUE,interpolate=FALSE,max.days=10,df=FALSE)
output.data<-tdm_hw.cor(input,probe.length=20,
sapwood.thickness=18,df=FALSE)
plot(output.data$k.dr,col="orange")
lines(input$k.dr)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab