sstEdi <- getEdinfo()[['jplMURSST41']]
if (FALSE) {
# interactively select
sstEdi <- varSelect(sstEdi)
}
# select all variables
sstEdi <- varSelect(sstEdi, TRUE)
# select the first two of four
sstEdi <- varSelect(sstEdi, c(TRUE, TRUE, FALSE, FALSE))
Run the code above in your browser using DataLab