# NOT RUN {
data(speaker)
scoresLDA <-speaker$scoresLDA
scoresPLDA <-speaker$scoresPLDA
scoresLDAPLDA <- speaker$scoresLDAPLDA
responses <- data.frame(speaker$keys$V3)
predictors <- data.frame(
n1 = as.numeric(scoresLDA),
n2 = as.numeric(scoresPLDA),
n3 = as.numeric(scoresLDAPLDA)
)
detcurve <- detc(responses,predictors,
names = c("LDA+DC","PLDA","LDA+PLDA"),
positive = "target",
title = "Voxceleb verification test",
plotROC = TRUE)
# }
Run the code above in your browser using DataLab