tests/testthat/helper-restyling.R

withr::local_seed(1234)
N <- 100
P <- 100
grid <- seq(0, 1, length.out = P)
centerline <- sin(2 * pi * grid)
Cov <- exp_cov_function(grid, alpha = 0.2, beta = 0.3)
Data_restyling <- generate_gauss_fdata(N, centerline, Cov)
fD_restyling <- fData(grid, Data_restyling)

Try the roahd package in your browser

Any scripts or data that you put into this service are public.

roahd documentation built on Nov. 4, 2021, 1:07 a.m.