tests/testthat/test-model.R

In aelhabr/temisc: Tony's Personal Package

context("model")
require("bindrcpp")
require("dplyr")

test_that("normalization", {
  df <- dplyr::data_frame(a = seq(0, 10, 1), b = seq(0, 100, 10))
  df_mutated <-
    dplyr::mutate(
      df,
      a1 = unitize(a),
      b1 = unitize(b),
      a2 = standardize_z(a),
      b2 = standardize_z(b)
    )
  df_mutated

  df_summary_means <- dplyr::summarise_at(df_mutated, vars(a1, b1, a2, b2), funs(mean))
  df_summary_means
  df_summary_sums <- dplyr::summarise_at(df_mutated, vars(a1, b1, a2, b2), funs(sum))
  df_summary_sums
})

test_that("formulas", {
  idx <- seq(1, 5, 1)

  var_y_1 <- letters[length(letters)]
  var_y_1
  vars_x_1 <- letters[c(idx)]
  fmla_1 <- create_fmla(var_y_1, vars_x_1)
  fmla_1
  fmla_1_char <- convert_fmla_to_char(fmla_1)
  fmla_1_char

  var_y_2 <- paste0(var_y_1, length(letters))
  var_y_2
  vars_x_2 <- paste0(vars_x_1, idx)
  vars_x_2
  fmla_2 <- create_fmla(var_y_2, vars_x_2)
  fmla_2
  fmla_2_char <- convert_fmla_to_char(fmla_2)
  fmla_2_char

  var_y_3 <- paste0(var_y_1, -1)
  var_y_3
  vars_x_3 <- c(idx)
  vars_x_3
  fmla_3 <- create_fmla(var_y_3, vars_x_3)
  fmla_3
  fmla_3_char <- convert_fmla_to_char(fmla_3)
  fmla_3_char
})