Resposta aos revisores paper GI

Sumário das atividades:

1 - Verificação da intersecção entre dados de Butland e Babu em 08/01/2015. 2 - Gráficos em 28/02/1015.

Verificação da intersecção entre dados de Butland e Babu

Butland fornece 1379 pares enquanto Babu fornece 42705. A intersecção é 781 pares.

matrix<-read.csv("common_pairs_babu_butland.tab",header = TRUE, sep = "\t") 
x<-as.numeric(matrix$Butland)
y<-as.numeric(matrix$Babu)
plot(x,y,xlab="Butland",ylab="Babu")
text(500,200,"Coef. Corr.: 0,94")

GRÁFICOS

arquivo = read.csv("sumario.csv")
babucomplete=arquivo[which(arquivo$source=='babu'& arquivo$attribute=='complete'),]
library(lattice)
barchart(babucomplete$meanROC~babucomplete$network,groups=babucomplete$percent,auto.key=list(space="top", columns=4,                                                          title="Percentage of the network", cex.title=1),xlab="Network type",ylab="Mean AUC")