R/getInitiallbc.R

In soilphysics: Soil Physical Analysis

Defines functions getInitiallbc

Documented in getInitiallbc

getInitiallbc <-
function(theta, sigmaP)
{
   if (length(theta) != length(sigmaP))
      stop("incompatible dimensions!")
   dat <- data.frame(theta, sigmaP)
   ini <- getInitial(sigmaP ~ SSlbc(theta, b0, b1),
      data = dat)
   return(ini)
}

Try the soilphysics package in your browser