data( hivDK )
# Convert the dates to fractional years so that rates are
# expressed in cases per year
for( i in 2:4 ) hivDK[,i] <- cal.yr( hivDK[,i] )
m.RR <- Icens( entry, well, ill,
model="MRR", formula=~pyr+us, breaks=seq(1980,1990,5),
data=hivDK)
# Currently the MRR model returns a list with 2 glm objects.
round( ci.lin( m.RR$rates ), 4 )
round( ci.lin( m.RR$cov, Exp=TRUE ), 4 )
# There is actually a print method:
print( m.RR )
m.ER <- Icens( entry, well, ill,
model="AER", formula=~pyr+us, breaks=seq(1980,1990,5),
data=hivDK)
# There is actually a print method:
print( m.ER )
Run the code above in your browser using DataLab