data <- data.frame(
X1_FLAG = c(0, 0, 0),
X1 = factor(c(NA, "C", "B"), levels = LETTERS[2:3]),
X2_FLAG = c(NA, 0, 1),
X2 = c(2, NA, 3)
)
missingReference <- data.frame(
X1_FLAG = 1,
X1 = factor("A", levels = LETTERS[1:2]),
X2 = 1,
X2_FLAG = 1
)
getDataInShape(data, missingReference)
Run the code above in your browser using DataLab