Nothing
# define some complete data frames for testing ------------
df_XY_2 <- data.frame(X = 1:2, Y = 101:102)
df_XY_20 <- data.frame(X = 1:20, Y = 101:120)
df_XY_100 <- data.frame(X = 1:100, Y = 101:200)
df_XYZ_100 <- data.frame(X = 1:100, Y = 101:200, Z = 300:201)
df_XY_X_constant <- data.frame(X = rep(1, 20), Y = 101:120)
df_XY_X_one_outlier <- data.frame(X = c(rep(1, 19), 5), Y = 101:120)
df_XY_X_unequal_dummy <- data.frame(X = c(rep(0, 10), 1), Y = 101:111)
df_with_ord_factors <- data.frame(X = ordered(letters[1:20]), Y = 1:20)
df_with_unord_factor <- data.frame(X = factor(letters[1:20],
ordered = FALSE
), Y = 1:20)
df_XY_X_binary <- data.frame(X = c(rep(1, 10), rep(0, 10)), Y = 1:20)
df_ordered <- data.frame(let = ordered(letters), LET = ordered(LETTERS))
df_classes_test <- data.frame(X = c(1, 1, 2, 2, 2), Y = c(5, 3, 3, 4, 3))
n <- 20
df_mixed <- data.frame(
X_double = seq(0, 1, length.out = n), X_int = seq_len(n),
X_ord = ordered(letters[1:n]), X_unord = factor(LETTERS[1:n]),
X_char = LETTERS[1:n]
)
# define some incomplete data frames for testing ----------
df_XY_X_mis <- df_XY_100
df_XY_X_mis[c(1, 3, 5, 20:40), "X"] <- NA
df_XY_X_mis_50_obs <- df_XY_100
df_XY_X_mis_50_obs[1:50, "X"] <- NA
df_XY_X_mis_one_comp_obs <- df_XY_100
df_XY_X_mis_one_comp_obs[1:99, "X"] <- NA
df_XY_XY_mis <- df_XY_X_mis
df_XY_XY_mis[c(2, 4, 5, 30:50), "Y"] <- NA
df_XY_no_comp_obs <- df_XY_XY_mis
df_XY_no_comp_obs[c(1:31, 50:100), "X"] <- NA
df_XY_mis_with_comp_chars <- cbind(df_XY_XY_mis, char_col = rep("a", 100))
df_ordered_mis <- df_ordered
df_ordered_mis[1:10, "let"] <- NA
df_ordered_mis[5:20, "LET"] <- NA
df_with_ord_factors_mis <- df_with_ord_factors
df_with_ord_factors_mis[2:5, "X"] <- NA
df_with_ord_factors_mis[12:15, "Y"] <- NA
df_mixed_mis <- delete_MCAR(df_mixed, 0.3)
df_XYZ_100_mis <- df_XYZ_100
df_XYZ_100_mis[c(1:2, 25:50), "X"] <- NA
df_XYZ_100_mis[c(2, 3, 20:30), "Y"] <- NA
# define some special cases -------------------------------
# one completely missing column
df_one_comp_missing_col <- data.frame(
X = c(rep(NA, 10), 11:20),
Y = rep(NA, 20)
)
# first row comp missing
df_first_row_comp_missing <- data.frame(X = c(NA, 2:10), Y = c(NA, 102:110))
# no complete obs
df_no_comp_obs <- data.frame(
X = c(rep(NA, 11), 12:20),
Y = c(101:110, rep(NA, 10))
)
# all values NA
df_all_NA <- data.frame(X = rep(NA, 10), Y = rep(NA, 10))
# define some matrices for testing ------------------------
matrix_100_2 <- matrix(1:200, nrow = 100)
matrix_20_2 <- matrix(c(1:20, 101:120), ncol = 2)
matrix_20_10 <- matrix(c(1:100, 200:101), nrow = 20)
matrix_classes_test <- as.matrix(df_classes_test)
# define some incomplete matrices for testing ------------------------
matrix_100_2_mis <- matrix_100_2
matrix_100_2_mis[is.na(df_XY_XY_mis)] <- NA
# define some complete tibbles for testing ------------
tbl_XY_100 <- tibble::tibble(X = 1:100, Y = 101:200)
tbl_XY_20 <- tibble::tibble(X = 1:20, Y = 101:120)
tbl_XYZ_100 <- tibble::tibble(X = 1:100, Y = 101:200, Z = 300:201)
tbl_classes_test <- tibble::as_tibble(df_classes_test)
tbl_mixed <- tibble::as_tibble(df_mixed)
## Define some incomplete tibbles for testing ---------------------------------
tbl_XY_X_mis <- tbl_XY_100
tbl_XY_X_mis[c(1, 3, 5, 20:40), "X"] <- NA
tbl_XY_XY_mis <- tbl_XY_X_mis
tbl_XY_XY_mis[c(2, 4, 5, 30:50), "Y"] <- NA
tbl_mixed_mis <- delete_MCAR(tbl_mixed, 0.3)
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.