jobID <- 3907019
results <- fea_gtLinker_getResults(jobID)
incidMat <- fea2incidMat(results)
# Filtering (threshold)
incidMat <- fea2incidMat(results,
filterAttribute="Silhouette Width", filterThreshold=0.2)
incidMat$filteredOut
head(incidMat$metagroupsMatrix)
head(incidMat$gtSetsMatrix)
functionalNetwork(incidMat)
# Term-based network
incidMatTerms <- fea2incidMat(results, key="Terms")
functionalNetwork(incidMatTerms, plotOutput="dynamic")
# Including generic terms filterd by GtLinker from final metagroups:
incidMatTerms <- fea2incidMat(results, key="Terms",removeFilteredGtl=FALSE)
functionalNetwork(incidMatTerms, plotOutput="dynamic", plotType="bipartite")
# Filtering by keyword
keywords <- c("rna")
selectedGroups <- sapply(getTerms(results),
function(x)
any(grep(paste("(", paste(keywords, collapse="|") ,")",sep=""), tolower(x))))
resultsCbind <- results
resultsCbind$metagroups <- cbind(results$metagroups,
selectedKeywords=as.numeric(selectedGroups))
matSelectedGroups <- fea2incidMat(resultsCbind,
filterAttribute="selectedKeywords", filterThreshold=1)
functionalNetwork(matSelectedGroups)
getTerms(results)[selectedGroups]
Run the code above in your browser using DataLab