# NOT RUN {
data(PRIME_SimuData)
X = PRIME_SimuData[,-1]
Y = PRIME_SimuData[,1]
model_structure <- c(rep(0,5),1,1,1)
# estimation
result <- PRIME(Y, X, method = 'PRIME', model_structure, intercept = FALSE, weight_type = 'CV')
result$coef
result$beta
# }
Run the code above in your browser using DataLab