clust <- medic(
complications,
id = id,
atc = atc,
k = 3:5,
timing = first_trimester:third_trimester
)
# Crop the cluster frequency summary
clust |>
cluster_frequency() |>
summary_crop(top_n = 3)
clust |>
summary() |>
summary_crop(which = "cluster_frequency", top_n = 3)
# Crop the medication frequency summary
clust |>
medication_frequency() |>
summary_crop(top_n = 3)
clust |>
summary() |>
summary_crop(which = "medication_frequency", top_n = 3)
# Crop the co-medication count summary
clust |>
comedication_count() |>
summary_crop(min_count = 10)
clust |>
summary() |>
summary_crop(which = "comedication_count", min_count = 10)
# crop the timing trajectory summary
clust |>
timing_trajectory() |>
summary_crop()
clust |>
summary() |>
summary_crop(which = "timing_trajectory")
# crop the timing ATC group summary
clust |>
timing_atc_group() |>
summary_crop()
clust |>
summary() |>
summary_crop(which = "timing_atc_group")
# crop multiple summaries
clust |>
summary() |>
summary_crop(
which = c("cluster_frequency", "medication_frequency"),
top_n = 3
)
Run the code above in your browser using DataLab