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
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.