Nothing
format_p <- function(p, add.stars=TRUE){
if(add.stars==FALSE){
p <- ifelse(p < .001, "< .001",
ifelse(p < .01, "< .01",
ifelse(p < .05, "< .05",
ifelse(p >= 0.1, "> .1",
paste("= ", substring(as.character(format(round(p, 2), nsmall=2)), 2), "^", sep="")))))
} else{
p <- ifelse(p < .001, "< .001***",
ifelse(p < .01, "< .01**",
ifelse(p < .05, "< .05*",
ifelse(p >= 0.1, "> .1",
paste("= ", substring(as.character(format(round(p, 2), nsmall=2)), 2), "^", sep="")))))
}
return(p)
}
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.