# Load an example dataset
data(data_temp)
# Fit logistic model relating neutralizing titer to disease status
logisticFit <- glm(disease_any ~ nAb1, data = data_temp, family = binomial())
# Estimate vaccine efficacy and 95\% confidence interval based on the fitted model
ve(logisticFit, data_temp, nboot = 500)
Run the code above in your browser using DataLab