Nothing
library(theft)
tmp <- theft::simData
tmp <- tmp[tmp$process %in% c("Gaussian Noise", "AR(1)"), ]
feature_matrix <- calculate_features(data = tmp,
id_var = "id",
time_var = "timepoint",
values_var = "values",
group_var = "process",
feature_set = "catch22",
catch24 = FALSE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.