# NOT RUN {
#Run CoNI
#Load gene expression - Toy dataset of two treatments
data(GeneExpToy)
#Samples in rows and genes in columns
GeneExp <- as.data.frame(t(GeneExpToy))
hfd_gene <- GeneExp[1:8,] #high fat diet
chow_gene<- GeneExp[9:nrow(GeneExp),] #chow diet
#Load metabolite expression - Toy dataset of two treatments
data(MetaboExpToy)
MetaboExp <- MetaboExpToy
hfd_metabo <- MetaboExp[11:18,] #high fat diet
chow_metabo <- MetaboExp[1:10,] #chow diet
#Match row names both data sets
rownames(hfd_metabo)<-rownames(hfd_gene)
rownames(chow_metabo)<-rownames(chow_gene)
#Run CoNI with tiny example and no significance testing
#High fat diet
#For big datasets it is recommended to set splitedgeD to TRUE
#and split_number should be adjusted accordingly
#See vignette for an example
#Running CoNI with only a tiny dataset
# }
# NOT RUN {
CoNIResultsHFD <- CoNI(hfd_gene,hfd_metabo,
numCores = 2,
onlySgRes = FALSE,
filter_highVarianceEdge=FALSE,
padjustvertexD = FALSE,
correlateDFs = FALSE,
edgeDname="HFD_genes",
vertexDname = "HFD_metabolites",
saveFiles = FALSE,
splitedgeD = FALSE,
outputDir = "./")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab