# Load sample data as in Load() example:
example(LoadSampleData)
anomalies <- Ano_CrossValid(sampleData$mod, sampleData$obs)
ano_exp <- Reorder(anomalies$exp, c(2, 3, 1, 4))
ano_obs <- Reorder(anomalies$obs, c(2, 3, 1, 4))
# \donttest{
PlotAno(ano_exp, ano_obs, startDates,
toptitle = paste('anomalies'), ytitle = c('K', 'K', 'K'),
legends = 'ERSST', biglab = FALSE)
# }
Run the code above in your browser using DataLab