OtherR/functionaSimalirity.R

In czh-cooper/CionaAnnotation:

# functional similarity analysis

#library(ggplot2)
#ci.random.GO.sim<-data.frame(GOSim=ci.random.GO.sim,type="Random")
#ci.randomHH.GO.sim<-data.frame(GOSim=ci.randomHH.GO.sim,type="Random within H2H")
#ci.operon.GO.sim<-data.frame(GOSim=ci.operon.GO.sim,type="Operon")
#ci.HH.GO.sim<-data.frame(GOSim=ci.HH.GO.sim,type="H2H")
#ci.HT.GO.sim<-data.frame(GOSim=ci.HT.GO.sim,type="H2T")
#ci.TT.GO.sim<-data.frame(GOSim=ci.HT.GO.sim,type="T2T")


#all.GO.sim<-rbind(ci.random.GO.sim,ci.randomHH.GO.sim,ci.operon.GO.sim,ci.HH.GO.sim,ci.HT.GO.sim,ci.TT.GO.sim)

#ggplot(all.GO.sim,aes(x=type,y=GOSim))+geom_boxplot()