# NOT RUN {
set.seed(-88106935)
data(iris)
testset <- sample(1:150,50)
train <- as.matrix(iris[-testset,-5])
test <- as.matrix(iris[testset,-5])
wtr <- iris[-testset, 5]
wte <- iris[testset, 5]
result <- bkpc(train, y = wtr, n.iter = 1000, thin = 10, n.kpc = 2,
intercept = FALSE, rotate = TRUE)
summary(result, n.burnin = 0)
# }
Run the code above in your browser using DataLab