print.nhat

Description

Print the estimates of N from a CJS object in a nice format.

Usage

1
2
3
 
## S3 method for class 'nhat'
print(x, width=10, ...)

Arguments

x

An object of class "nhat", which inherits from class "cr". This class of object is output from F.cr.model.avg.

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 compatability with the generic print function.

Details

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.

Value

Nothing. Run for side effects

Author(s)

Trent McDonald, WEST-INC, tmcdonald@west-inc.com

See Also

plot.cjs, print.cjs, F.cjs.estim

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
# 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)