Asthma {glarma} | R Documentation |
Daily Presentations of Asthma at Campbelltown Hospital
Description
The data arose from a single hospital (at Campbelltown) as part of a larger (ongoing) study into the relationship between atmospheric pollution and the number of asthma cases presenting themselves to various emergency departments in local hospitals in the South West region of Sydney, Australia.
Usage
data(Asthma)
Format
A data frame containing the following columns:
[, 1] | Count | Daily counts of asthma at Campbelltown Hospital. |
[, 2] | Intercept | A vector of ones, providing the intercept in the model. |
[, 3] | Sunday | Takes value one for Sundays, otherwise zero. |
[, 4] | Monday | Takes value one for Mondays, otherwise zero. |
[, 5] | CosAnnual | cos((2*pi*t)/365), annual cosine term. |
[, 6] | SinAnnual | sin((2*pi*t)/365), annual sine term. |
[, 7] | H7 | Scaled lagged and smoothed humidity variable. |
[, 8] | NO2max | Maximum daily nitrogen dioxide. |
[, 9:16] | T1.1990 - T2.1993 | Smooth shapes to capture school terms in each year. |
Source
Davis, Richard A and Dunsmuir, William TM and Streett, Sarah B (2003) Observation-driven models for Poisson counts. Biometrika, 90, 777–790.
Examples
### Example with asthma data
data(Asthma)
y <- Asthma[,1]
X <- as.matrix(Asthma[,2:16])
## Model in Davis, Dunsmuir and Streett (2003)
## MA(7) specification - see Davis, Dunsmuir and Streett (2003)
## Pearson Residuals, Fisher Scoring
glarmamod <- glarma(y, X, thetaLags = 7, type = "Poi", method = "FS",
residuals = "Pearson", maxit = 100, grad = 1e-6)
glarmamod
summary(glarmamod)
likTests(glarmamod)
plot.glarma(glarmamod)
## Not run:
## Example is specified as \dontrun because it takes too long
## for package inclusion on CRAN
## Pearson Residuals, Newton Raphson, Negative Binomial
## Initial value of the shape parameter take to be zero
glarmamod <- glarma(y, X, thetaLags = 7, type = "NegBin", method = "NR",
residuals = "Pearson", alphaInit = 0,
maxit = 100, grad = 1e-6)
glarmamod
summary(glarmamod)
likTests(glarmamod)
plot.glarma(glarmamod)
## End(Not run)
[Package glarma version 1.6-0 Index]