Function to truncate time in functional data

Share:

Description

Function to truncate time in functional data

Usage

1
truncateTime(funVar, time, newtime, data)

Arguments

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

Value

A list with the data containing all variables of the original dataset with the variables of funVar truncated according to newtime.

Note

All variables that are not part if funVar, or time are simply copied into the new data list

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
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))
  
## End(Not run)
}

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.