R/slopebypoint.R

In gtatters/Thermimage: Thermal Image Analysis

Defines functions slopebypoint

Documented in slopebypoint

#' @export
#' 
slopebypoint <-
function(data) 
{
  t<-seq(0,length(data)-1,1)
  s<-stats::lm(data~t)$coef[2]
  names(s)<-NULL
  s<-s
}