data(ExampleDataBinary)
outcome = ExampleDataBinary$Y
covar = ExampleDataBinary$Z
ProvID = ExampleDataBinary$ProvID
fit_re <- logis_re(Y = outcome, Z = covar, ProvID = ProvID)
SR <- SM_output(fit_re, stdz = "direct", measure = "rate")
SR$direct.rate
Run the code above in your browser using DataLab