Function to truncate time in functional data
Function to truncate time in functional data
truncateTime(funVar, time, newtime, data)
funVar |
names of functional variables that should be truncated |
time |
name of time variable |
newtime |
new time vector that should be used. Must be part of the old time-line. |
data |
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.
All variables that are not part if funVar, or time
are simply copied into the new data list
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)
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))
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.