R/nlsrsqure.R

nlsrsqure=function(
  data,
  dependent, 
  nlsobject
){
  mn=mean(data[,dependent])
  data[,"tss"]= (data[,dependent]-mn)^2
  value=1-sum(residuals(nlsobject)^2)/sum(data$tss)
  return(value)
}
CheilSeriMMM/MMM_beta documentation built on May 6, 2019, 9:58 a.m.