dat <- data.frame(
X1 = rep(NA, 5),
X2 = factor(rep(NA, 5), levels = LETTERS[1:3]),
X3 = 1:5,
X4 = LETTERS[1:5],
X5 = c(NA, 2, 3, 10, NA),
X6 = factor(c("A", NA, NA, "B", "B"), levels = LETTERS[1:3])
)
missingFix(dat)
Run the code above in your browser using DataLab