if (FALSE) {
data(videos)
# Example with Napping data
res.N <- analyse_holos(videos, method = "N", export.res = TRUE)
res.N$summary.task$nbstep.time # number of steps and duration of the task for each subject
res.N$summary.task$freq[[1]] # number of times the first subject moved each stimulus during the task
res.N$res.FA # MFA results that can be customized with the plot.MFA function of FactoMineR
res.N$datasets$digitdata[[1]] # digit-tracking data of the first subject
res.N$datasets$finaldata # Napping data (panel level)
# Example with Sorting data
res.S <- analyse_holos(videos, method = "S")
res.S$res.FA # MCA results that can be customized with the plot.MCA function of FactoMineR
res.S$datasets # Sorting data (panel level)
sorting.data <- apply(res.S$datasets, 2, as.factor) ?
res.fast <- fast(sorting.data)
ConsensualWords(res.fast)
}
Run the code above in your browser using DataLab