set.seed(123)
df <- data.frame( "ID" = paste("ID", seq(1,100,1), sep = ""),
"x1" = sample(90:220, size = 100, replace = TRUE),
"x2" = sample(90:220, size = 100, replace = TRUE),
"x3" = sample(90:220, size = 100, replace = TRUE),
"x4" = sample(90:220, size = 100, replace = TRUE),
"x5" = sample(90:220, size = 100, replace = TRUE))
rst <- VIM(data=df,id="ID",repeat.vars=paste0("x",1:5))
Run the code above in your browser using DataLab