R/report_t.R

In ECO230/eco230r:

report_t <- function(model_t,tails,analysis_desc) {
  t <- model_t$statistic
  p <- model_t$p.value
  Df <- model_t$parameter
  r <- sqrt(t^2/(t^2+Df))
  if (tails == 1) {p <- p/2}
  res <- paste(c('t(', round(Df,2), ') = ', round(t,3),', p = ', round(p,3),', r = ',round(r,3)), collapse = '')
  list('analysis_type' = analysis_desc,'results' = res)
}