#' @export
#' @method plot vpudms.fit
plot.vpudms.fit<-function(x,y,...){
idx=which(x$py1 == x$py1.opt)
rocplot(x$roc_curves[[idx]],x$py1.opt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.