# Defined by:
when <- dimension_schema(name = "When",
attributes = c("Year"))
where <- dimension_schema(name = "Where",
attributes = c("REGION",
"State",
"City"))
mrs_age_schema <- star_schema() |>
define_facts(name = "MRS Age",
measures = c("All Deaths")) |>
define_dimension(when) |>
define_dimension(where) |>
define_dimension(name = "Who",
attributes = c("Age"))
Run the code above in your browser using DataLab