tests/testthat/test_stats.R

In radiant-rstats/radiant.text: Text Menu for Radiant: Business Analytics using R and Shiny

trim <- function(x) gsub("^\\s+|\\s+$", "", x)

######### tests ########
context("Text")

test_that("regress", {
  # result <-
  # res1 <- capture.output(summary(result))[10] %>% trim
  # cat(paste0(res1, "\n"))
  # res2 <- "carat           8438.030    51.101 165.125  < .001 ***"
  # expect_equal(res1,res2)
})