Function to truncate time in functional data
truncateTime(funVar, time, newtime, data)
names of functional variables that should be truncated
name of time variable
new time vector that should be used. Must be part of the old time-line.
list containing all the data
A list with the data containing all variables of the original dataset
with the variables of funVar
truncated according to newtime
.
# NOT RUN { if(require(fda)){ dat <- fda::growth dat$hgtm <- t(dat$hgtm[,1:10]) dat$hgtf <- t(dat$hgtf[,1:10]) ## only use time-points 1:16 of variable age datTr <- truncateTime(funVar=c("hgtm","hgtf"), time="age", newtime=1:16, data=dat) # } # NOT RUN { par(mfrow=c(1,2)) with(dat, funplot(age, hgtm, main="Original data")) with(datTr, funplot(age, hgtm, main="Yearly data")) par(mfrow=c(1,1)) # } # NOT RUN { } # }