Description Usage Arguments Details Value Examples

Computes optimal smoothing parameter through leave-one-out cross validation.

1 2 |

`y` |
[Matrix] of observed data. Columns correspond to individuals and rows to measurements over time. |

`timemat` |
[Matrix] of timepoints with one column per individual. Should be corresponding to the y matrix. |

`rangevals` |
[vector] with first and last time points. |

`nbas` |
[scalar] number of basis function to use. |

`trace` |
[logical] Should the optimization process be traced? |

`seed` |
[scalar] Set seed to get reproducible results. |

`ncpus` |
[scalar] Number of CPUs to use. Should only be used for large numbers of individuals. |

`check.na` |
TODO |

Internal function for choosing the smoothing parameter.

[scalar] The optimal smoothing parameter.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | ```
# Not run:
# if(require(fda)) {
# f <- function(x) 2*x*sin(x)+10+rnorm(1)
# df <- data.frame(expand.grid(time = 1:10, group = 1:2, id = 1:6))
# df$data <- f(df$time)
# ss <- split(df, list(df$group, df$id))
# obsl <- lapply(ss, function(l) l$data)
# timel <- lapply(ss, function(l) l$time)
# ntp <- length(unique(df$time))
# datmat <- matrix(unlist(obsl), byrow = FALSE, nrow = ntp)
# timemat <- matrix(unlist(timel), byrow = FALSE, nrow = ntp)
#
# lambda <- cv3(y = datmat, timemat = timemat, rangevals = range(df$time),
# nbas = 5, ncpus = 1)
# basis <- fda::create.bspline.basis(rangeval = range(df[,"time"]), nbasis = 5)
# Par <- fda::fdPar(fdobj = basis, Lfdobj = 2, lambda = lambda)
#
# n <- length(timel[[1]])
# timepoints <- matrix(unlist(timel), nrow = ntp, ncol = n)
# # get coefficients of smoothed functions for each group
# sm1 <- fda::smooth.basis(argvals = timepoints,
# y = matrix(df[df$group == 1,"data"],
# nrow = ntp, ncol = n), Par)
# sm2 <- fda::smooth.basis(argvals = timepoints,
# y = matrix(df[df$group == 2,"data"],
# nrow = ntp, ncol = n), Par)
#
# plot(sm1)
# points(df[df$group == 1, "data"])
# points(df[df$group == 2, "data"])
# }
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.