Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- mymodel <- multinom(job~height, data = dataset)
- pred <- predict(mymodel,dataset,type = 'prob')
- roc_pred <- prediction(pred,dataset$job)
- roc <- performance(roc_pred,"tpr","fpr")
- plot(roc,colorize=T)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement