modify the age scatter function to allow users to change the point alpha

age_scatter <- function(
    object,
    strata = NULL,
    alpha = 0.7, # Add alpha as a parameter
    age_var = object |> get_age_var(),
    value_var = object |> get_values_var()) {
  # create default plotting
