p.val <- function(x, sig.indicator=FALSE, pass.chars=FALSE){
if(pass.chars==FALSE){
x <- as.numeric(x)
p.val <- ifelse(x >= .05, paste0('p=', format(round(x, 2), nsmall=2)),
ifelse(x < .05 & x >= .01, 'p<.05',
ifelse(x < .01 & x >= .001, 'p<.01',
ifelse(x< .001, 'p<.001', NA))))
}
else{
p.val <- ifelse(is.na(as.numeric(x)), x,
ifelse(as.numeric(x) >= .05, paste0('p=', format(round(as.numeric(x), 2), nsmall=2)),
ifelse(as.numeric(x) < .05 & as.numeric(x) >= .01, 'p<.05',
ifelse(as.numeric(x) < .01 & as.numeric(x) >= .001, 'p<.01',
ifelse(as.numeric(x)< .001, 'p<.001', NA)))))
}
if(sig.indicator==TRUE){
p.val <- ifelse(p.val=='p<.05', paste0(p.val, '*'),
ifelse(p.val=='p<.01', paste0(p.val, '**'),
ifelse(p.val=='p<.001', paste0(p.val, '***'),
p.val))) }
return(gsub('0\\.', '.', as.character(p.val)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.