# \donttest{
data <- matrix(
c(1, 2, NA, 4,
2, 3, 4, 5,
3, NA, 5, 6,
4, 5, 6, 7),
nrow = 4,
byrow = TRUE,
dimnames = list(c("x1", "x2", "x3", "x4"), c("s1", "s2", "s3", "s4"))
)
dataset <- list(data = data)
impute_nas_knn(dataset, k = 2)
# }
Run the code above in your browser using DataLab