require(simpIntLists)
data(ArabidopsisBioGRIDInteractionEntrezId)
listofGeneList <- list(list(839226,817241, 824340, 832179, 818561, 831145, 838782, 826404),
list( 832018, 839226, 839226, 838824));
ibhForMultipleGeneLists(ArabidopsisBioGRIDInteractionEntrezId,
listofGeneList)
require(simpIntLists)
listofGeneList <- list(list(839226,817241, 824340, 832179, 818561, 831145, 838782, 826404),
list( 832018,
839226, 839226, 838824));
ibhForMultipleGeneListsBioGRID(listofGeneList,
organism="arabidopsis",
idType = "EntrezId");
listofGeneList <- list(list("YJR151C", "YBL032W", "YAL040C", "YBL072C", "YCL050C",
"YCR009C"),
list("YDR063W", "YDR074W", "YDR080W", "YDR247W", "YGR183C", "YHL033C"),
list("YOL068C" , "YOL015W" , "YOL009C" , "YOL004W" , "YOR065W" ));
ibhForMultipleGeneListsBioGRID(listofGeneList, organism="yeast",
idType = "UniqueId");
require(yeastCC)
require(stats)
data(yeastCC)
subset <- exprs(yeastCC)[1:50,]
d <- dist(subset,method="euclidean")
k <- kmeans(d, 3);
ibhClusterEvalBioGRID(k$cluster, rownames(subset),
organism="yeast", idType="UniqueId")Run the code above in your browser using DataLab