set.seed(123)
n <- 100
r <- sqrt(runif(n, 0.05, 1))
theta <- runif(n, 0, 2*pi)
X <- cbind(r * cos(theta), r * sin(theta))
y <- ifelse(r < 0.5, 1, -1)
cvfit <- cv.kroclearn(
X, y,
lambda.vec = exp(seq(log(0.01), log(5), length.out = 3)),
kernel = "radial",
approx=TRUE, nfolds = 2
)
plot(cvfit)
Run the code above in your browser using DataLab