## load an example of IcaSet
data(icaSetCarbayo)
# build MineICAParams object
params <- buildMineICAParams(resPath="carbayo/")
# Define the directory containing the results
dir <- paste(resPath(params), "comp2annottest/", sep="")
# Check which variables are numeric looking at the pheno data, here only one -> AGE
# pData(icaSetCarbayo)
## Perform pearson correlation tests and plots association corresponding
# to correlation values larger than 0.2
quantVarAnalysis(params=params, icaSet=icaSetCarbayo, keepVar="AGE", keepComp=1:2,
adjustBy="none", path=dir, cutoff=0.2, cutoffOn="cor")
## Not run:
# ## Perform Spearman correlation tests and do scatter plots for all pairs
# quantVarAnalysis(params=params, icaSet=icaSetCarbayo, keepVar="AGE", adjustBy="none", path=dir,
# cutoff=0.1, cutoffOn="cor", typeCor="spearman", onlySign=FALSE)
#
# ## Perform pearson correlation tests and plots association corresponding
# # to p-values lower than 0.05 when 'doPlot=TRUE'
# quantVarAnalysis(params=params, icaSet=icaSetCarbayo, keepVar="AGE", adjustBy="none", path=dir,
# cutoff=0.05, cutoffOn="pval", doPlot=FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab