# \dontshow{
RcppArmadillo::armadillo_throttle_cores(2)
# }
data(variantData)
set.seed(1234)
ind <- sample(1:nrow(variantData), 2000)
# NOTE: This sample size is chosen for example only -- larger data sets
# should be used.
res <- veWaningVariant(data = variantData[ind,],
L = 52,
gFunc = 'piece',
v = c(15,30))
print(x = res)
Run the code above in your browser using DataLab