# NOT RUN {
data(Spellman)
Spellman <- as.matrix(Spellman)
spellress <- mictools(Spellman[, 10:20], nperm=1000)
## Use a different pvalue correction method
spellressb <- mictools(Spellman[,10:20], nperm=1000, seed=1234, p.adjust.method="bonferroni")
## Distribution of tic_e null
hist(spellress$tic, breaks=100, main="Tic_e null distribution")
barplot(spellress$nulldist$NullCount)
## Distribution of the observed tic
hist(spellress$obstic$TIC)
barplot(spellress$obsdist$Count)
## Distribution of empirical pvalues
hist(spellress$pval$pval, breaks=50)
# }
Run the code above in your browser using DataLab