print.nhat {mra} | R Documentation |
Print the estimates of N from a CJS object in a nice format.
## S3 method for class 'nhat' print(x, width=10, ...)
x |
An object of class "nhat", which inherits from class "cr". This class of object is
output from |
width |
The minimum width of columns in the table printed by this routine. |
... |
Arguments to other functions called by this one. Currently no other
functions are called, so this is not used, but must be here
for compatibility with the generic |
Horvitz-Thompson estimates of N, along with
standard errors, are printed. print.cjs
also prints N estimates, if present,
but as a brief, one-row summary. This routine prints a more complete table. Numerical
values of the supsmu
smooth of N estimates (bass
= 0.5) associated with
plots produced by plot.cjs
are printed.
Nothing. Run for side effects
Trent McDonald, WEST-INC, tmcdonald@west-inc.com
plot.cjs
, print.cjs
, F.cjs.estim
# Fit CJS model to dipper data, time-varying capture and survivals. data(dipper.histories) # Method 1: explicit matricies xy <- F.cjs.covars( nrow(dipper.histories), ncol(dipper.histories) ) for(j in 1:ncol(dipper.histories)){ assign(paste("x",j,sep=""), xy$x[,,j]) } dipper.cjs <- F.cjs.estim( ~x2+x3+x4+x5+x6, ~x1+x2+x3+x4+x5, dipper.histories ) print(dipper.cjs) # Method 2: indicator vectors x <- factor(1:ncol(dipper.histories), labels=paste("t",1:ncol(dipper.histories),sep="")) nd <- nrow(dipper.histories) dipper.cjs <- F.cjs.estim( ~tvar(x,nan=nd,drop=c(1,7)), ~tvar(x,nan=nd,drop=c(6,7)), dipper.histories) print(dipper.cjs)