Nothing
#' @rdname pcps
#' @encoding UTF-8
#' @export
scores.pcps<-function(x, choices = c(1, 2), ...){
sco <- summary(x, choices = choices)$scores
return(sco)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.