Daily Presentations of Asthma at Campbelltown Hospital

Share:

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

1

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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
### 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)