Amostra da comparação entre dados de Babu e probabilidades calculadas a partir dos dados de Butland

mcsv = read.csv("babu_prob.csv", header = F)
plot(mcsv$V4 ~ mcsv$V3, ylab = "S-score", xlab = "probabilidade de ser AGG", 
    main = "Deveria ter dado uma reta com inclinação negativa\n(amostra com 5% das instâncias)")

plot of chunk unnamed-chunk-1 

cor(mcsv$V4, mcsv$V3)

## [1] 0.03497

fpCut <- cut(mcsv$V4, breaks = c(-31, 0, 20))
boxplot(mcsv$V3 ~ fpCut)

plot of chunk unnamed-chunk-2

.