Nothing
#' Returns significance level.
#'
#' Returns the significance level as stars, or NA if a non-numeric value is
#' passed in.
#'
#' @param x p-value.
star <- function(x) {
if(is.numeric(x)) {
return(cut(x,
breaks=c(-Inf,.001,.01,.05,.1,Inf),
labels=c('***','**','*','.',''))
)
} else {
return(NA)
}
}
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.