# NOT RUN {
set.seed(10)
##Load data that were simulated as in Section 2.4 of Lock et al., 2013,
##with rank 1 joint structure, and rank 1 individual structure for each dataset
data(SimData)
# Using default method ("perm")
Results <- jive(SimData)
summary(Results)
# Using BIC rank selection
BIC_result <- jive(SimData, method="bic")
summary(BIC_result)
# }
# NOT RUN {
###Load the permutation results
data(SimResults)
# Visualize results
showVarExplained(Results)
# showVarExplained is also called by the "jive" S3 class default plot method
#show heatmaps
showHeatmaps(Results)
#show PCA plots
showPCA(Results,1,c(1,1))
# }
Run the code above in your browser using DataLab