# NOT RUN {
library(tidyr)
# dput(colnames(mrs_age))
#
# c(
# "Reception Year",
# "Reception Week",
# "Reception Date",
# "Data Availability Year",
# "Data Availability Week",
# "Data Availability Date",
# "Year",
# "WEEK",
# "Week Ending Date",
# "REGION",
# "State",
# "City",
# "Age Range",
# "Deaths"
# )
dm <- dimensional_model() %>%
define_fact(
name = "mrs_age",
measures = c("Deaths"),
agg_functions = c("SUM"),
nrow_agg = "nrow_agg"
)
dm <- dimensional_model() %>%
define_fact(
name = "mrs_age",
measures = c("Deaths")
)
dm <- dimensional_model() %>%
define_fact(name = "Factless fact")
# }
Run the code above in your browser using DataCamp Workspace