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)
}