# NOT RUN {
library("HelpersMG")
lat <- 5.74
long <- -54
Awala2004 <- tide.info(year=2004, longitude=long, latitude=lat, tz="America/Cayenne")
with(Awala2004, plot(Date.Time, Level, bty="n", las=1, type="l",
xlab=paste("Year", as.POSIXlt(Date.Time[1])$year+1900),
ylab="Tide level in m"))
# }
Run the code above in your browser using DataLab