f <- function(x) 2 * x * sin(x) + 10
# simulate paired data from two groups with underlying function f
simdata <- make_data(f = f, shift = 5, n = 5, sd1 = .5, sd2 = .5,
ntimepoints = 10, type = "shift")
# run test
res <- ttest_crain(data = simdata$data, group = simdata$group, timepoints = simdata$time,
id = simdata$id, method = "spline", nboot = 1000)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.