# NOT RUN {
# Load the data
data(Synthetic)
Uxlim=c(0,15)
Uylim=c(-25,10)
Uxlab<-"Ux (m/s)"
Uylab<-"Uy (m/s)"
plotmain<-"Reference and synthetic models"
sfactor<-1
ref<-Synthetic[["ref"]]
mod<-Synthetic[["mod"]]
#--------------------------------------------------------
# Example 1: Figure 4 (left) from S<U+00E1>enz et al. (2020)
#--------------------------------------------------------
SailoR.Plot(ref, mod, ColourList=NULL, sfactor, docenter=FALSE,
Uxlim, Uylim, Uxlab, Uylab, plotmain, plotlegend=TRUE,
Ensembles=TRUE, plotRMSElegend=TRUE,
plotscalelegend=TRUE, RMSE_legend_Rounding=2,
RMSE_legend_units = " m/s")
#--------------------------------------------------------
# Example 2: Figure 4 (right) from S<U+00E1>enz et al. (2020)
#--------------------------------------------------------
SailoR.Plot(ref, mod, ColourList=NULL, sfactor, docenter=TRUE,
Uxlim, Uylim, Uxlab, Uylab, plotmain, plotlegend=TRUE,
Ensembles=TRUE, plotRMSElegend=TRUE,
plotscalelegend=TRUE, RMSE_legend_Rounding=2,
RMSE_legend_units = " m/s")
# }
Run the code above in your browser using DataLab