# \donttest{
data(climate_indices)
X <- climate_indices$AO
Y <- climate_indices$AAO
# Basic cross-validation
cv_result <- pcCrossValidation(
X, Y,
E = 3, tau = 1,
metric = "euclidean",
h = 1,
weighted = FALSE,
numberset = c(100, 200, 300)
)
# Cross-validation with bootstrap
cv_result_boot <- pcCrossValidation(
X, Y,
E = 3, tau = 1,
metric = "euclidean",
h = 1,
weighted = FALSE,
numberset = c(100, 200, 300),
random = TRUE,
bootstrap = 100
)
# }
Run the code above in your browser using DataLab