## Cluster-mass for repeated measures ANOVA
## Warning : np argument must be greater (recommendation: np >= 5000)
electrod_O1 <- clusterlm(attentionshifting_signal ~ visibility*emotion*direction
+ Error(id/(visibility*emotion*direction)), data = attentionshifting_design,
np = 50)
## Results
plot(electrod_O1)
## Results with labels on the x axis that represent seconds from time-locked event:
plot(electrod_O1, nbbaselinepts = 200, nbptsperunit = 1024)
## Tables of clusters
electrod_O1
if (FALSE) {
## Change the function of the aggregation
## Sum of squares of F statistics
electrod_O1_sum <- clusterlm(attentionshifting_signal ~ visibility*emotion*direction
+ Error(id/(visibility*emotion*direction)), data = attentionshifting_design,
aggr_FUN = function(x)sum(x^2))
## Length of the cluster
electrod_O1_length <- clusterlm(attentionshifting_signal ~ visibility*emotion*direction
+ Error(id/(visibility*emotion*direction)), data = attentionshifting_design,
aggr_FUN = function(x)length(x))
## All multiple comparisons procedures for repeated measures ANOVA
## Permutation method "Rde_kheradPajouh_renaud"
full_electrod_O1 <- clusterlm(attentionshifting_signal ~ visibility*emotion*direction
+ Error(id/(visibility*emotion*direction)), data = attentionshifting_design,
method = "Rde_kheradPajouh_renaud", multcomp = c("troendle", "tfce",
"clustermass", "bonferroni", "holm", "benjamini_hochberg"))
}
Run the code above in your browser using DataLab