# NOT RUN {
library(DET)
data(speaker)
scoresLDA = speaker$scoresLDA
scoresPLDA = speaker$scoresPLDA
scoresLDAPLDA = speaker$scoresLDAPLDA
predictors = matrix(c(as.numeric(scoresLDA),
as.numeric(scoresPLDA),
as.numeric(scoresLDAPLDA)), ncol = 3)
colnames(predictors) = c("LDA", "PLDA", "LDAandPLDA")
response = as.factor(speaker$keys$V3)
detCurves =
detc(
response,
predictors,
names = colnames(predictors),
positive = "target"
)
plot(detCurves, main = "Voxceleb verification test")
# }
Run the code above in your browser using DataLab