#Loading example datasets
data(H_sapiens_compress)
data(A_thaliana_compress)
#Defining the column with the GO terms to be compared
GOterm_field <- "Functional_Category"
#Defining the species names
species1 <- "H. sapiens"
species2 <- "A. thaliana"
#Running function
x <- compareGOspecies(df1=H_sapiens_compress,
df2=A_thaliana_compress,
GOterm_field=GOterm_field,
species1=species1,
species2=species2,
skipPCoA=FALSE,
paired_lists=TRUE)
if (FALSE) {
#Displaying PCoA results
x$graphics
# Checking shared GO terms between species
print(tapply(x$shared_GO_list$feature,x$shared_GO_list$feature,length))
}
Run the code above in your browser using DataLab