transition to survival's nobs() methods (closes #1224)

NAMESPACE

@@ -137,7 +137,6 @@ S3method(nobs,Mclust)
 S3method(nobs,aareg)
 S3method(nobs,bbmle)
 S3method(nobs,biglm)
-S3method(nobs,coxph)
 S3method(nobs,cv.glmnet)
 S3method(nobs,felm)
 S3method(nobs,fitdistr)
@@ -157,7 +156,6 @@ S3method(nobs,smooth.spline)
 S3method(nobs,survdiff)
 S3method(nobs,survfit)
 S3method(nobs,survfit.cox)
-S3method(nobs,survreg)
 S3method(tidy,"NULL")
 S3method(tidy,Arima)
 S3method(tidy,Gam)

NEWS.md

@@ -1,5 +1,9 @@
 # broom (development version)
 
+* Corrected `nobs` entries in `glance.coxph()` output: the package used to 
+  return `length(object$linear.predictors)` (equal to `n` rather than `nevent`) 
+  and now uses survival's method (#1224).
+
 * Corrected confidence interval values in `tidy.boot()` and addressed errors
   when bootstrapping confidence intervals for multiple terms (#1212).
 

R/nobs.R

@@ -123,12 +123,6 @@ nobs.aareg <- function(object, ...) {
   object$n[1] # obs / event times / event times in computation
 }
 
-# survival-survreg
-#' @export
-nobs.survreg <- function(object, ...) {
-  length(object$linear.predictors)
-}
-
 # survival-survfit
 #' @export
 nobs.survfit <- function(object, ...) {
@@ -141,12 +135,6 @@ nobs.survfit.cox <- function(object, ...) {
   object$n
 }
 
-# survival-coxph
-#' @export
-nobs.coxph <- function(object, ...) {
-  length(object$linear.predictors)
-}
-
 # survival-pyears
 #' @export
 nobs.pyears <- function(object, ...) {