### For independent observations:
# Estimates from logistic regression with conditional standardization -
# delta method
data("titanic", package = "prLogistic")
attach(titanic)
prLogisticDelta(survived~ sex + pclass + embarked, data = titanic)
# Estimates from logistic regression with marginal standardization -
# delta method
prLogisticDelta(survived~ sex + pclass + embarked,
data = titanic, pattern="marginal")
### For clustered data
# Estimates from random-effects logistic regression with conditional
# standardization - delta method
data("Thailand", package = "prLogistic")
prLogisticDelta(rgi~ sex + pped + (1|schoolid),
data = Thailand, cluster=TRUE)
# Estimates from random-effects logistic regression with marginal
# standardization - delta method
prLogisticDelta(rgi ~ sex + pped + (1|schoolid), data = Thailand,
pattern="marginal", cluster=TRUE)Run the code above in your browser using DataLab