R/deFit-methods.R

#' @rdname summary
setMethod("summary",
          signature=signature(object="deFit"),
          function(object) {
            cat('\n'); cat('deFit Summary', '\n', '\n')
            #  cat('Models:', '\n')
            #  print([email protected])
            cat('fit.full:', '\n')
            print(signif(object@fit.full[(1:min(3, nrow(object@fit.full))), ]), digits=3)
            cat('\nfit.null:', '\n')
            print(signif(object@fit.null[(1:min(3, nrow(object@fit.null))), ]), digits=3)
            cat('\nres.full:', '\n')
            print(signif(object@res.full[(1:min(3, nrow(object@res.full))), ]), digits=3)
            cat('\nres.null:', '\n')
            print(signif(object@res.null[(1:min(3, nrow(object@res.null))), ]), digits=3)
            cat('\nbeta.coef:', '\n')
            print(signif(object@beta.coef[(1:min(3, nrow(object@beta.coef))), ]), digits=3)
            cat('\nstat.type:', '\n')
            print(object@stat.type)
          })
#'@rdname show
setMethod("show",
          signature=signature(object="deFit"),
          function(object) {
            cat('\n'); cat('deFit Summary', '\n', '\n')
          #  cat('Models:', '\n')
          #  print([email protected])
            cat('fit.full:', '\n')
            print(signif(object@fit.full[(1:min(2, nrow(object@fit.full))), ]), digits=3)
            cat('\nfit.null:', '\n')
            print(signif(object@fit.null[(1:min(2, nrow(object@fit.null))), ]), digits=3)
            cat('\nres.full:', '\n')
            print(signif(object@res.full[(1:min(2, nrow(object@res.full))), ]), digits=3)
            cat('\nres.null:', '\n')
            print(signif(object@res.null[(1:min(2, nrow(object@res.null))), ]), digits=3)
            cat('\nbeta.coef:', '\n')
            print(signif(object@beta.coef[(1:min(5, nrow(object@beta.coef))), ]), digits=3)
            cat('\nstat.type:', '\n')
            print(object@stat.type)
          })

Try the edge package in your browser

Any scripts or data that you put into this service are public.

edge documentation built on May 6, 2019, 4:58 a.m.