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

mcsv = read.csv("babu_prob.txt", 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)")

cor(mcsv$V4, mcsv$V3)

## [1] 0.06463