# NOT RUN {
# Load data
data(z500)
# Tidying our atmospheric variables (500 hPa geopotential height).
z500_tidy <- tidy_nc(x = list(z500),
name_vars = c("z500"))
# SOM classification
som_cl <- som_clas(z500_tidy, xdim = 4, ydim = 4, iter = 200)
# }
Run the code above in your browser using DataLab