set.seed(12)
library(dplyr)
library(VGAM)
raw_data <- data.frame(
X1 = sample(1:3, 1200, replace = TRUE),
X2 = sample(1:3, 1200, replace = TRUE),
X3 = sample(1:3, 1200, replace = TRUE),
X4 = sample(1:3, 1200, replace = TRUE),
X5 = sample(1:3, 1200, replace = TRUE),
Y = rlaplace(1200, 0, 1)
)
processed_data <- data_pc(raw_data)
Run the code above in your browser using DataLab