# NOT RUN {
#Get system data file paths
wtr.path <- system.file('extdata', 'Sparkling.wtr', package="rLakeAnalyzer")
bth.path <- system.file('extdata', 'Sparkling.bth', package="rLakeAnalyzer")
wnd.path <- system.file('extdata', 'Sparkling.wnd', package="rLakeAnalyzer")
#Load data for example lake, Sparkilng Lake, Wisconsin.
wtr = load.ts(wtr.path)
wnd = load.ts(wnd.path)
bth = load.bathy(bth.path)
wh = 1 # user specified, here as 1 m.
# }
# NOT RUN {
#generate default plot
lake.number.plot(wtr,wnd,wh,bth)
# }
Run the code above in your browser using DataLab