Nothing
suppressWarnings(RNGversion("3.5.0"))
#################################
context("cro_fun_df")
data(mtcars)
mtcars = apply_labels(mtcars,
mpg = "Miles/(US) gallon",
cyl = "Number of cylinders",
disp = "Displacement (cu.in.)",
hp = "Gross horsepower",
drat = "Rear axle ratio",
wt = "Weight (lb/1000)",
qsec = "1/4 mile time",
vs = "V/S",
vs = c("Straight" = 0, "V" = 1),
am = "Transmission (0 = automatic, 1 = manual)",
am = c(" automatic" = 0, " manual" = 1),
gear = "Number of forward gears",
carb = "Number of carburetors"
)
expect_equal_to_reference(
mtcars %$% cro_fun_df(mpg,
col_vars = vs,
fun = w_mean,
row_vars = am
)
,"rds/table_summary_df0.rds", update = FALSE
)
# test for empty rowlabels
expect_equal_to_reference(
mtcars %$% cro_fun_df(sheet(mpg, disp, hp, qsec),
col_vars = vs,
fun = function(x) {res = colMeans(x, na.rm = TRUE); unname(res)},
row_vars = am
)
,"rds/table_summary_df0rowlabels.rds", update = FALSE
)
expect_error(
mtcars %$% cro_fun_df(mpg,
col_vars = vs[1:2],
fun = w_mean,
row_vars = am
)
)
expect_error(
mtcars %$% cro_fun_df(mpg[1:2],
col_vars = vs,
fun = w_mean,
row_vars = am
)
)
expect_error(
mtcars %$% cro_fun_df(mpg,
col_vars = vs,
fun = w_mean,
row_vars = am[1:2]
)
)
expect_error(
mtcars %$% cro_fun_df(mpg,
col_vars = vs,
fun = w_mean,
row_vars = am,
weight = 1:2
)
)
expect_equal_to_reference(
mtcars %$% cro_fun_df(mpg,
col_vars = vs,
fun = colMeans,
row_vars = am
)
,"rds/table_summary_df0_colMeans.rds", update = FALSE
)
expect_equal_to_reference(
mtcars %$% cro_fun_df(mpg,
col_vars = vs,
fun = function(x) numeric(0),
row_vars = am
)
,"rds/table_summary_df0empty.rds", update = FALSE
)
expect_equal_to_reference(
mtcars %$% cro_fun_df(mpg,
col_vars = vs,
fun = function(x, weight = NULL) numeric(0),
row_vars = am, weight = 1
)
,"rds/table_summary_df0empty.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am) %>% set_var_lab("|") %>% as.list,
col_vars = mtcars$am, fun = colMeans)
,"rds/table_summary_df1.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am), col_vars = mtcars$am, fun = function(x){
sheet(parameter = names(x), mean = colMeans(x))
})
,"rds/table_summary_df2.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am) %>% unvr, col_vars = mtcars$am, fun = colMeans
)
,"rds/table_summary_df3.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am), col_vars = mtcars$am, fun = colMeans)
,"rds/table_summary_df4.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am), col_vars = mtcars$am, row_vars = mtcars$vs,
fun = colMeans
)
,"rds/table_summary_df5.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am), col_vars = sheet("Total", mtcars$am),
row_vars = sheet("Total",mtcars$vs),
fun = colMeans
)
,"rds/table_summary_df5c.rds", update = FALSE
)
expect_equal_to_reference(
mtcars[FALSE,] %>% calculate(cro_fun_df(vars(!fixed("vs") & !fixed("am")), col_vars = am,
row_vars = vs,
fun = colMeans
))
,"rds/table_summary_df5a.rds", update = FALSE
)
expect_equal_to_reference(
mtcars[FALSE,] %>% calc(cro_fun_df(vars(!fixed("vs") & !fixed("am")),
col_vars = am,
fun = colMeans
))
,"rds/table_summary_df5b.rds", update = FALSE
)
expect_equal_to_reference(
mtcars[FALSE,] %>% cross_fun_df(vars(!fixed("vs") & !fixed("am")),
col_vars = list(total(1), am),
fun = colMeans
)
,"rds/table_summary_df5bb.rds", update = FALSE
)
expect_identical(
mtcars[FALSE,] %>% cross_fun_df(vars(!fixed("vs") & !fixed("am")),
col_vars = list(total(1), am),
fun = colMeans
)
,
mtcars %>% cross_fun_df(vars(!fixed("vs") & !fixed("am")),
col_vars = list(total(1), am),
fun = colMeans,
subgroup = FALSE
)
)
expect_identical(
mtcars[FALSE,] %>% cross_fun_df(vars(!fixed("vs") & !fixed("am")),
col_vars = am,
fun = colMeans
)
, mtcars %>% cross_fun_df(vars(!fixed("vs") & !fixed("am")),
col_vars = am,
fun = colMeans,
subgroup = FALSE
)
)
expect_identical(
mtcars[mtcars$cyl == 6,] %>% cross_fun_df(vars(!fixed("vs") & !fixed("am")),
col_vars = am,
fun = colMeans
),
mtcars %>% cross_fun_df(vars(!fixed("vs") & !fixed("am")),
col_vars = am,
fun = colMeans,
subgroup = cyl==6
)
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am), col_vars = mtcars$am, row_vars = mtcars$vs,
fun = function(x, weight = NULL){
w_cor(x, weight = weight)[,1]
}
)
,"rds/table_summary_df6.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am), col_vars = mtcars$am, row_vars = mtcars$vs,
fun = function(x, weight = NULL){
res = w_cor(x, weight = weight)
means = unlist(lapply(x, w_mean, weight = weight))
sheet(cor = res[,1], mean = means)
}
)
,"rds/table_summary_df7.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am) %>% unvr, col_vars = mtcars$am,
fun = colSums
)
,"rds/table_summary_df9.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% qc(vs, am) %>% unvr, col_vars = mtcars$am,
fun = function(x, weight = NULL){
if(is.null(weight)) weight = 1
colSums(x*weight)
}, weight = 2)
,"rds/table_summary_df10.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% c("cyl", "am") ,
col_vars = list("Total", mtcars$am), fun = colMeans),
"rds/table_summary_df11.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(mtcars %n_d% c("cyl", "am") %>% set_var_lab("|") %>% as.list,
col_vars = list("Total", unvr(mtcars$am)),
fun = colMeans
),
"rds/table_summary_df12.rds", update = FALSE
)
expect_error(
cro_fun_df(mtcars %n_d% c("cyl", "am"), col_vars = mtcars$am, fun = colMeans, weight = 2)
)
context("table correlations")
val_lab(mtcars$am) = val_lab(mtcars$am)[1:2]
expect_equal_to_reference(
cro_pearson(mtcars %n_d% qc(vs, am), col_vars = mtcars$am)
,"rds/table_cor_1.rds", update = FALSE
)
val_lab(mtcars$am) = val_lab(mtcars$am)[1:2]
expect_equal_to_reference(
cross_pearson(mtcars, ..[!perl("vs|am")], col_vars = am)
,"rds/table_cor_1.rds", update = FALSE
)
expect_equal_to_reference(
cro_spearman(mtcars %n_d% qc(vs, am), col_vars = mtcars$am)
,"rds/table_cor_2.rds", update = FALSE
)
expect_equal_to_reference(
cross_spearman(mtcars, ..[!perl("vs|am")], col_vars = am)
,"rds/table_cor_2.rds", update = FALSE
)
expect_equal_to_reference(
mtcars[FALSE,] %>% cross_pearson(vars(!perl("vs|am")), col_vars = am)
,"rds/table_cor_1a.rds", update = FALSE
)
expect_equal_to_reference(
mtcars[FALSE,] %>% cross_pearson(vars(!perl("vs|am")), col_vars = am)
,"rds/table_cor_1a.rds", update = FALSE
)
expect_equal_to_reference(
cro_spearman(mtcars %n_d% qc(vs, am), col_vars = mtcars$am)
,"rds/table_cor_2.rds", update = FALSE
)
expect_equal_to_reference(
cro_spearman(mtcars %n_d% qc(vs, am), col_vars = mtcars$am, weight = 1)
,"rds/table_cor_2.rds", update = FALSE
)
expect_identical(
mtcars[FALSE,] %>% cross_pearson(vars(!perl("vs|am")), col_vars = am)
,
mtcars %>% cross_pearson(vars(!perl("vs|am")), col_vars = am, subgroup = FALSE)
)
expect_identical(
mtcars[FALSE,] %>% cross_spearman(vars(!perl("vs|am")), col_vars = am)
,
mtcars %>% cross_spearman(vars(!perl("vs|am")), col_vars = am, subgroup = FALSE)
)
expect_identical(
mtcars[mtcars$cyl == 8,] %>% cross_pearson(vars(!perl("vs|am")), col_vars = am)
,
mtcars %>% cross_pearson(vars(!perl("vs|am")), col_vars = am, subgroup = (cyl == 8))
)
expect_identical(
mtcars[mtcars$cyl > 4,] %>% cross_pearson(vars(!perl("vs|am")), col_vars = am, row_vars = cyl)
,
mtcars %>% cross_pearson(vars(!perl("vs|am")), col_vars = am, row_vars = cyl, subgroup = (cyl > 4))
)
expect_identical(
mtcars[mtcars$cyl == 8,] %>% cross_spearman(vars(!perl("vs|am")), col_vars = am)
,
mtcars %>% cross_spearman(vars(!perl("vs|am")), col_vars = am, subgroup = (cyl == 8))
)
set.seed(1)
weight = runif(nrow(mtcars), 1,2)
expect_equal_to_reference(
cro_pearson(mtcars %>% columns(-vs, -am), col_vars = mtcars$am, weight = weight)
,"rds/table_cor_3.rds", update = FALSE
)
expect_equal_to_reference(
cro_spearman(mtcars %>% columns(-vs, -am), col_vars = mtcars$am, weight = weight)
,"rds/table_cor_4.rds", update = FALSE
)
expect_equal(cro_pearson(mtcars %>% columns(-vs, -am), col_vars = "Total")[[2]],
unname(cor(mtcars %>% columns(-vs, -am))[,1]))
expect_equal(cro_spearman(mtcars %>% columns(-vs, -am), col_vars = "Total")[[2]],
unname(cor(mtcars %>% columns(-vs, -am), method = "spearman")[,1]))
context("table_summary_df datetime")
dates = as.POSIXct(rep(paste0("2017-02-", 1:10), each = 10))
measure = runif(length(dates), 1, 2)
expect_equal_to_reference(
cro_fun_df(measure, col_vars = list("Total"), row_vars = list(dates), fun = mean)
,"rds/table_summary_df_dates1.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(list(measure), col_vars = list(dates), fun = mean)
,"rds/table_summary_df_dates2.rds", update = FALSE
)
var_lab(dates) = "Day"
expect_equal_to_reference(
cro_fun_df(list(measure), col_vars = list("Total"), row_vars = list(dates), fun = mean)
,"rds/table_summary_df_dates3.rds", update = FALSE
)
expect_equal_to_reference(
cro_fun_df(list(measure), col_vars = list(dates), fun = mean)
,"rds/table_summary_df_dates4.rds", update = FALSE
)
context("cro_fun_df duplicated names")
expect_equal_to_reference(
calculate(mtcars, cro_mean(list(mpg, mpg, mpg, mpg), list(am))),
"rds/cro_fun_df_duplicated_names.rds", update = FALSE
)
expect_equal_to_reference(
cross_mean(mtcars, list(mpg, mpg, mpg, mpg), list(am)),
"rds/cro_fun_df_duplicated_names.rds", update = FALSE
)
expect_equal_to_reference(
calculate(mtcars, cro_mean(list(mpg, mpg, mpg, mpg), list(am), weight = wt)),
"rds/cro_fun_df_duplicated_names_weighted.rds", update = FALSE
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.