rBatt

#' Scatter plot with certain groups of points getting own regression and fitted line
#' 
#' @param Data a data.table
#' @param x,y,lineBy character, name of column in \code{Data}
#' @param ptCol,lineCol character or quoted expression (call) for point or line color, repsectively
#' @param ... arguments to be passed to \code{\link{plot}} and \code{link{lines}}
#' 
#' @examples
#' dt <- data.table( 
#' 	x=x<-rnorm(9, sd=2), # why <- is better than =

rBatt

x = arima.sim(model=list(ar=0.9), n=200)

acf(x)

pacf(x

rBatt

#Test case for calculating metabolism
library(LakeMetabolizer)

#set up test example where DO starts and ends at same level, is at saturation (= no flux)
DOobs = c(3, 2, 3, 4, 3, 2)
DOsat = c(3, 2, 3, 4, 3, 2)
kGas = c(.2, .2, .2, .2, .2, .2)
zMix = c(1, 1, 1, 1, 1, 1)
irr = c(0, 1, 1, 0, 0, 0)