# NOT RUN {
#--------------------------------------------------------
# Example 1
#--------------------------------------------------------
# Load the data
data(EstacaDeBares)
# Parameters
Uxlim=c(0,25)
Uylim=c(0,25)
Uxlab<-" "
Uylab<-" "
plotmain<-"Wave Energy Flux. Estaca De Bares."
sfactor<-0.25
plotRMSE<-TRUE
ref<-EstacaDeBares[["ref"]][,c("mod","U","V")]
mod<-EstacaDeBares[["mod"]][,c("mod","U","V")]
# 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=0,RMSE_legend_units = " W/m",
referenceName="Buoy")
# }
Run the code above in your browser using DataLab