nobs.md

These packages were checked are are compatible with stats::nobs:

• aer
• plm
• betareg
• gam
• gamlss
• geefit
• glmnet
• lme4
• mass-polr
• mass-rlm
• mediate
• mgcv
• ordinal
• psych
• speedglm
• stats-arima
• stats-factanal
• stats-glm
• stats-lm
• stats-nls

These packages still need to be checked:

• caret
• joineRML
• ergm
• mass-ridgelm
• nlme
• multinom
• orcutt
• quantreg-rq
• quantreg-rqs
• rstanarm
• survival-*
• lavaan: conflict between stats::nobs and lavaan::nobs

Custom nobs methods:

# biglm
nobs.biglm <- function(object, ...) {
    object$n
}

# glmnet-cv-glmnet
nobs.cv.glmnet <- function(object, ...) {
    stats::nobs(object$glmnet.fit)
}

# gmm
nobs.gmm <- function(object, ...) {
    object$n
}

#lfe - felm
nobs.felm <- function(object, ...) {
    object$N
}

#lmodel2
nobs.lmodel2 <- function(object, ...) {
    object$n
}

#mclust
nobs.Mclust <- function(object, ...) {
    object$n
}

#muhaz
nobs.muhaz <- function(object, ...) {
    length(object$pin$times)
}

#polca
nobs.poLCA <- function(object, ...) {
    object$N
}

#robust-glmrob
nobs.lmRob <- function(object, ...) {
    length(object$residuals)
}
nobs.glmRob <- function(object, ...) {
    length(object$residuals)
}

#stats-loess
nobs.loess <- function(object, ...) {
    object$n
}

#stats-prcomp
nobs.prcomp <- function(object, ...) {
    NROW(object$x)
}

#stats-smooth
nobs.smooth.spline <- function(object, ...) {
    length(object$x)
}

#bbmle
nobs.bbmle <- function(object, ...) {
    length(object@data[[1]])
}

#survival-aareg
nobs.aareg <- function(object, ...) {
    object$n[1] # obs / event times / event times in computation
}

#survival-survreg
nobs.survreg <- function(object, ...) {
    length(object$linear.predictors)
}

#survival-survfit
nobs.survfit <- function(object, ...) {
    object$n
}

#survival-coxph
nobs.coxph <- function(object, ...) {
    length(object$lienar.predictors)
}