# 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))
# Deciding on the number of PC to retain
info <- pca_decision(atm_data1)
# }
Run the code above in your browser using DataLab