## Not run:
# ## load an example of icaSet
# data(icaSetCarbayo)
#
# ##### =========
# #### When arg 'object' is an IcaSet object
# ##### =========
#
# ## select contributing genes
# selectContrib(object=icaSetCarbayo, cutoff=3, level="genes")
#
# ## select contributing features
# selectContrib(object=icaSetCarbayo, cutoff=3, level="features")
#
# ##### =========
# #### When arg 'object' is a list
# ##### =========
# c1 <- rnorm(100); names(c1) <- 100:199
# c2 <- rnorm(100); names(c2) <- 1:99
# selectContrib(object=list(c1,c2), cutoff= 0.5)
#
# ## select contributing features
# contribFlist <- selectContrib(Slist(icaSetCarbayo), 3)
#
# ## select contributing genes
# contribGlist <- selectContrib(SlistByGene(icaSetCarbayo), 3)
#
#
# ## End(Not run)
Run the code above in your browser using DataLab