# we run the 2 samples analysis on the first 10 pathways from kegg
pways.kegg.10pways <- lapply(pways.kegg, function(x) x[1:10])
results_2samples=pathVarTwoSamplesCont(bock,pways.kegg.10pways,groups=as.factor(c(rep(1,10),rep(2,10))))
genes_window=getGenes(results_2samples,pways.kegg$PATHNAME[10],c(0.25,075))
Run the code above in your browser using DataCamp Workspace