data(hsSampleData)
data(hsMirrorLocs)
spmc1mb <- calcSpmCollection(hsSampleData, hsMirrorLocs, cl=c(rep(0,10),rep(1,10)))
spmcc1mb <- compareSpmCollection(spmc1mb, nperms=3)
spmcc1mbSigRegions <- getSigRegionsCompKC(spmcc1mb)
plot(spmcc1mb, sigRegions=spmcc1mbSigRegions)
Run the code above in your browser using DataLab