R/nObs.ssdeR.R

In ssdeR: Sample Selection Models with a Common Dummy Endogenous Regressor in Simultaneous Equations

#######################
# ssdeR.nobs
########################
nObs.ssdeR <- function (object, ...)
{
  object$param$nObs
}

#######################
# ssdeR.nobs
########################
nobs.ssdeR <- function (object, ...)
{
  object$param$nObs
}