# \donttest{
data(climate_indices)
dataset <- climate_indices[, -1]
pcmatrix <- pcMatrix(dataset, E = 3, tau = 1,
metric = "euclidean", h = 1,
weighted = TRUE)
effects <- pcEffect(pcmatrix)
print(effects)
plot(effects)
# }
Run the code above in your browser using DataLab