eList <- Choptank_eList
eList <- setUpEstimation(eList)
nSegments <- 2
segStart <- c(1985,2000)
segEnd <- c(2001,2010)
dStart <- as.Date(c("1988-10-01","2002-05-15"))
dEnd <- as.Date(c("1998-09-30","2009-09-30"))
eList <- flexFN(eList,nSegments,segStart,segEnd,dStart,dEnd)
plotFluxHist(eList)
Run the code above in your browser using DataLab