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