## Not run:
# ## load IcaSet object
# ## We will use 'icaSetCarbayo', whose features are hgu133a probe sets
# ## and feature annotations are Gene Symbols.
# data(icaSetCarbayo)
#
# ## define database to be used by biomaRt
# mart <- useMart(biomart="ensembl", dataset="hsapiens_gene_ensembl")
#
# ## define the parameters of the analysis
# params <- buildMineICAParams(resPath="~/resMineICACarbayo/", selCutoff=0)
#
# ## Make sure the elements "_biomaRt" of attribute 'typeID' are defined
# typeID(icaSetCarbayo)
#
# ### Query biomaRt and write gene descriptions in HTML files
# ### The files will be located in the directory 'genesPath(params)'
#
# ## 1. Write description of genes
# res <- writeProjByComp(icaSet=icaSetCarbayo, params=params, mart=mart,
# level="genes") #, typeId="hgnc_symbol")
#
# ## 2. Write description of features
# # change attribute 'genesPath' of params to preserve the gene descriptions
# genesPath(params) <- paste(resPath(params),"comp2features/",sep="")
# res <- writeProjByComp(icaSet=icaSetCarbayo, params=params, mart=mart,
# level="features") #, typeId="affy_hg_u133a")
#
# ## End(Not run)
Run the code above in your browser using DataLab