hist.TPDT <- function(tpdt,breaks){
hist(tpdt$test$resam, 50)
abline(v = tpdt$test$stat, col = 2)
legend("topright", legend = tpdt$test$pval, lty = 2, col = 2, title = "pvalue")
}
box.TPDT <- function(tpdt){
boxplot(tpdt$test$resam,horizontal=TRUE)
abline(v = tpdt$test$stat, col = 2)
legend("topright", legend = tpdt$test$pval, title = "pvalue")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.