sign.code <- function(x) {
return(ifelse(x < 0.001, "***", ifelse(x < 0.01, "**", ifelse(x < 0.05, "*", ifelse(x < 0.1, ".", "")))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.