df <- make_data()
df <- df[df$group == "g1", ]
out <- circa_single(x = df, col_time = "time", col_outcome = "measure")
out
# with sample weights (arbitrary weights for demonstration)
sw <- runif(n = nrow(df))
out2 <- circa_single(
x = df,
col_time = "time",
col_outcome = "measure",
weights = sw,
suppress_all = TRUE
)
out2
Run the code above in your browser using DataLab