# NOT RUN {
set.seed(2808)
ds <- sampleFuncy(obsNr=30, k=4, timeNr=7)
data <- Data(ds)
clusters <- Cluster(ds)
res <- funcit(data=data, clusters=clusters, seed=2808,
methods=c(1,2,3,5,6,7), k=4, parallel=TRUE)
class(res)
summary(res)
# }
Run the code above in your browser using DataLab