powered by
fmeasure(recall, precis, beta = 1)
labels <- c(rep(0,10)) labels[c(1,3,5)] <- 1 scores <- 10:1 prc <- get_prc(scores, labels) fm <- fmeasure(prc[,1], prc[,2])
Run the code above in your browser using DataLab