# NOT RUN {
subset <- Subset(sampleMap$mod, c('dataset', 'sdate', 'ftime'),
list(1, 1, 1), drop = 'selected')
PlotLayout(PlotEquiMap, c('lat', 'lon'), subset,
sampleMap$lon, sampleMap$lat,
titles = paste('Member', 1:3))
# }
Run the code above in your browser using DataLab