# NOT RUN {
# Load data (mslp or precp_grid)
data(mslp)
data(z500)
# Tidying our atmospheric variables (500 hPa geopotential height
# and mean sea level pressure) together.
# Time subset between two dates
atm_data1 <- tidy_nc(x = list(mslp,z500),
name_vars = c("mslp","z500"))
# S-mode classification
smode_clas <- synoptclas(atm_data1, ncomp = 6)
# ct2env (precipitation example)
ct2env(x = pcp, clas = smode_clas$clas, fun = mean, out = "data.frame")
# }
Run the code above in your browser using DataLab