# NOT RUN {
#--------------------------------------------------------
# Example 1: Figure 6 (left) from S<U+00E1>enz et al. (2020)
#--------------------------------------------------------
# Load the data
data(Current)
# Parameters
Uxlim=c(-0.5,0.5)
Uylim=c(-0.5,0.5)
Uxlab<-"Ux (m/s)"
Uylab<-"Uy (m/s)"
plotmain<-"Surface current"
sfactor<-4
ref<-Current[["ref"]]
mod<-Current[["mod"]]
# Index
SailoR.Indices(ref,mod)
# Plot
SailoR.Plot(ref, mod, ColourList=NULL, sfactor, docenter=TRUE,
Uxlim, Uylim, Uxlab, Uylab, plotmain, plotlegend=TRUE,
plotRMSElegend=TRUE, plotscalelegend=TRUE,
RMSE_legend_Rounding=2, RMSE_legend_units = " m/s",
referenceName="Buoy")
# }
Run the code above in your browser using DataLab