# Load sample data as in Load() example:
example(Load)
anomalies <- Ano_CrossValid(sampleData$mod, sampleData$obs)
if (FALSE) {
PlotAno(anomalies$exp, anomalies$obs, startDates,
toptitle = paste('anomalies'), ytitle = c('K', 'K', 'K'),
legends = 'ERSST', biglab = FALSE)
}
Run the code above in your browser using DataLab