# NOT RUN {
# Defined by:
library(tidyr)
dm_mrs_cause <- dimensional_model() %>%
define_fact(
name = "mrs_cause",
measures = c(
"Pneumonia and Influenza Deaths",
"Other Deaths"
),
) %>%
define_dimension(
name = "when",
attributes = c(
"Week Ending Date",
"WEEK",
"Year"
)
) %>%
define_dimension(
name = "when_received",
attributes = c(
"Reception Date",
"Reception Week",
"Reception Year"
)
) %>%
define_dimension(
name = "when_available",
attributes = c(
"Data Availability Date",
"Data Availability Week",
"Data Availability Year"
)
) %>%
define_dimension(
name = "where",
attributes = c(
"REGION",
"State",
"City"
)
)
# }
Run the code above in your browser using DataCamp Workspace