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