# Data generating helpers for testing a development purposes.
# Behavior data with categories documented, not_documented.
# Derived from VA GoCC data.
gen_va_gocc_data <- function(){
structure(list(
sta6a = c("4369AA", "4369AA", "4369AA", "4369AA",
"4369AA", "4369AA", "4429AA", "4429AA", "4429AA", "4429AA", "4429AA",
"4429AA", "4609AA", "4609AA", "4609AA", "4609AA", "4609AA", "4609AA",
"5039AA", "5039AA", "5039AA", "5039AA", "5039AA", "5039AA", "5069AA",
"5069AA", "5069AA", "5069AA", "5069AA", "5069AA", "5129AA", "5129AA",
"5129AA", "5129AA", "5129AA", "5129AA", "5129AC", "5129AC", "5129AC",
"5129AC", "5129AC", "5129AC", "5159AA", "5159AA", "5159AA", "5159AA",
"5159AA", "5159AA", "5299AA", "5299AA", "5299AA", "5299AA", "5299AA",
"5299AA", "5429AA", "5429AA", "5429AA", "5429AA", "5429AA", "5429AA",
"5509AA", "5509AA", "5509AA", "5509AA", "5509AA", "5509AA", "5539AA",
"5539AA", "5539AA", "5539AA", "5539AA", "5539AA", "5549AB", "5549AB",
"5549AB", "5549AB", "5549AB", "5549AB", "5569AA", "5569AA", "5569AA",
"5569AA", "5569AA", "5569AA", "5629AA", "5629AA", "5629AA", "5629AA",
"5629AA", "5629AA", "5689AA", "5689AA", "5689AA", "5689AA", "5689AA",
"5689AA", "5689AB", "5689AB", "5689AB", "5689AB", "5689AB", "5689AB",
"5759AA", "5759AA", "5759AA", "5759AA", "5759AA", "5759AA", "5959AA",
"5959AA", "5959AA", "5959AA", "5959AA", "5959AA", "6079AA", "6079AA",
"6079AA", "6079AA", "6079AA", "6079AA", "6109AA", "6109AA", "6109AA",
"6109AA", "6109AA", "6109AA", "6309AB", "6309AB", "6309AB", "6309AB",
"6309AB", "6309AB", "6359AA", "6359AA", "6359AA", "6359AA", "6359AA",
"6359AA", "6429AA", "6429AA", "6429AA", "6429AA", "6429AA", "6429AA",
"6559AA", "6559AA", "6559AA", "6559AA", "6559AA", "6559AA", "6669AA",
"6669AA", "6669AA", "6669AA", "6669AA", "6669AA", "6939AA", "6939AA",
"6939AA", "6939AA", "6939AA", "6939AA"),
report_month = structure(c(17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713, 17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713, 17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713, 17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713, 17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713, 17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713, 17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713, 17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713, 17563,
17591, 17622, 17652, 17683, 17713, 17563, 17591, 17622, 17652,
17683, 17713, 17563, 17591, 17622, 17652, 17683, 17713), class = "Date"),
documented = c(0, 0, 0, 1, 0, 2, 5, 2, 2, 3, 1, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 5, 3, 3, 5, 5, 0, 0, 0,
5, 7, 4, 0, 0, 0, 5, 1, 3, 1, 0, 0, 2, 1, 2, 1, 0, 0, 1,
1, 2, 0, 1, 3, 8, 7, 8, 0, 3, 2, 3, 1, 0, 0, 0, 0, 0, 3,
5, 0, 0, 0, 0, 0, 0, 3, 3, 2, 2, 2, 3, 0, 0, 0, 0, 0, 0,
3, 5, 7, 5, 7, 3, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0,
0, 0, 7, 8, 10, 5, 10, 8, 10, 9, 8, 0, 0, 0, 1, 1, 2, 0,
0, 0, 3, 2, 4, 0, 0, 10, 9, 13, 7, 0, 0, 1, 1, 4, 7, 0, 1,
1, 1, 0, 8, 0, 0, 0, 0, 0, 0, 6, 6, 8, 8, 5, 10),
not_documented = c(1,
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 4, 1, 1, 1, 0, 4, 1, 1,
1, 3, 2, 2, 4, 0, 1, 0, 0, 1, 8, 8, 7, 9, 2, 1, 4, 5, 3,
2, 2, 1, 7, 8, 8, 4, 2, 1, 3, 5, 6, 3, 3, 3, 3, 6, 7, 3,
0, 0, 4, 5, 6, 9, 5, 5, 6, 7, 5, 11, 0, 0, 3, 0, 1, 1, 2,
0, 0, 0, 0, 0, 0, 0, 4, 1, 4, 6, 4, 1, 0, 0, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 2, 6, 5, 5, 1, 6, 10, 8, 11, 5, 0, 0, 0,
0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 9, 8, 5, 3, 2, 2, 22, 21,
9, 10, 3, 6, 14, 13, 2, 6, 4, 0, 5, 9, 5, 4, 4, 1, 3, 1,
3, 2, 1, 3, 0, 0, 0, 0, 0, 0)),
class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"),
row.names = c(NA, -162L),
spec = structure(list(
cols = list(
sta6a = structure(list(), class = c("collector_character", "collector")),
report_month = structure(list(format = ""), class = c("collector_date", "collector")),
documented = structure(list(), class = c("collector_double", "collector")),
not_documented = structure(list(), class = c("collector_double", "collector"))),
default = structure(list(), class = c("collector_guess", "collector")),
skip = 1),
class = "col_spec"))
}
# Behavior data with perscribing numerators, denominators, and rates.
# Derived from publicly available NHS perscriber data.
gen_mtx_behavior_data <- function(){
structure(list(
practice = c("B85008", "B85008", "B85008", "B85008",
"B85008", "B85008", "B85008", "B85008", "B85008", "B85008", "E82012",
"E82012", "E82012", "E82012", "E82012", "E82012", "E82012", "E82012",
"E82012", "E82012", "E83006", "E83006", "E83006", "E83006", "E83006",
"E83006", "E83006", "E83006", "E83006", "E83006", "E87746", "E87746",
"E87746", "E87746", "E87746", "E87746", "E87746", "E87746", "E87746",
"E87746", "H83037", "H83037", "H83037", "H83037", "H83037", "H83037",
"H83037", "H83037", "H83037", "H83037", "L84071", "L84071", "L84071",
"L84071", "L84071", "L84071", "L84071", "L84071", "L84071", "L84071",
"M82006", "M82006", "M82006", "M82006", "M82006", "M82006", "M82006",
"M82006", "M82006", "M82006", "M85027", "M85027", "M85027", "M85027",
"M85027", "M85027", "M85027", "M85027", "M85027", "M85027", "P81063",
"P81063", "P81063", "P81063", "P81063", "P81063", "P81063", "P81063",
"P81063", "P81063"),
period = structure(c(17532, 17563, 17591,
17622, 17652, 17683, 17744, 17775, 17805, 17836, 17532, 17563,
17591, 17622, 17652, 17683, 17744, 17775, 17805, 17836, 17532,
17563, 17591, 17622, 17652, 17683, 17744, 17775, 17805, 17836,
17532, 17563, 17591, 17622, 17652, 17683, 17744, 17775, 17805,
17836, 17532, 17563, 17591, 17622, 17652, 17683, 17744, 17775,
17805, 17836, 17532, 17563, 17591, 17622, 17652, 17683, 17744,
17775, 17805, 17836, 17532, 17563, 17591, 17622, 17652, 17683,
17744, 17775, 17805, 17836, 17532, 17563, 17591, 17622, 17652,
17683, 17744, 17775, 17805, 17836, 17532, 17563, 17591, 17622,
17652, 17683, 17744, 17775, 17805, 17836),
class = "Date"),
total_scripts = c(19,
19, 21, 16, 19, 23, 22, 22, 24, 23, 31, 27, 29, 25, 27, 32, 35,
26, 28, 35, 8, 2, 5, 4, 7, 1, 5, 1, 6, 3, 4, 4, 8, 4, 4, 4, 4,
4, 4, 4, 5, 6, 7, 15, 14, 8, 7, 7, 7, 9, 32, 27, 35, 33, 27,
33, 26, 32, 33, 30, 34, 38, 40, 39, 39, 34, 37, 40, 43, 39, 27,
23, 21, 17, 20, 17, 21, 16, 22, 16, 28, 29, 31, 22, 29, 29, 29,
20, 37, 27),
total_quantity = c(600, 580, 612, 388, 580, 580,
460, 508, 652, 656, 900, 704, 848, 616, 744, 796, 860, 612, 694,
868, 284, 76, 140, 196, 204, 24, 224, 32, 208, 56, 32, 32, 52,
32, 32, 8, 8, 8, 8, 8, 136, 168, 204, 231, 368, 228, 220, 160,
184, 236, 777, 700, 832, 828, 648, 812, 608, 780, 784, 732, 768,
910, 926, 948, 892, 804, 900, 888, 1028, 924, 631, 486, 496,
428, 502, 372, 528, 372, 556, 358, 666, 808, 688, 616, 744, 714,
690, 600, 826, 678),
high_dose_scripts = c(0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0,
0, 1, 1, 4, 4, 8, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ),
high_dose_quantity = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 12, 0, 0, 0, 8, 8, 32, 32,
52, 32, 32, 8, 8, 8, 8, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4,
4, 4, 4, 4, 4, 4, 8, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
hd_script_ratio = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0.25, 0.285714285714286, 0, 0, 0, 0.166666666666667, 0.333333333333333,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.03125,
0.037037037037037, 0.0285714285714286, 0.0303030303030303, 0.037037037037037,
0.0303030303030303, 0.0384615384615385, 0.03125, 0.0606060606060606,
0.0333333333333333, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0476190476190476,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
hd_quantity_ratio = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0.0204081632653061, 0.0588235294117647, 0, 0, 0, 0.0384615384615385,
0.142857142857143, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0.00514800514800515, 0.00571428571428571, 0.00480769230769231,
0.00483091787439614, 0.00617283950617284, 0.00492610837438424,
0.00657894736842105, 0.00512820512820513, 0.0102040816326531,
0.00546448087431694, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0161290322580645,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)),
row.names = c(NA, -90L),
spec = structure(
list( cols = list(
X1 = structure(list(), class = c("collector_double", "collector")),
practice = structure(list(), class = c("collector_character", "collector")),
period = structure(list(format = ""), class = c("collector_date", "collector")),
total_scripts = structure(list(), class = c("collector_double", "collector")),
total_quantity = structure(list(), class = c("collector_double", "collector")),
high_dose_scripts = structure(list(), class = c("collector_double", "collector")),
high_dose_quantity = structure(list(), class = c("collector_double", "collector")),
hd_script_ratio = structure(list(), class = c("collector_double", "collector")),
hd_quantity_ratio = structure(list(), class = c("collector_double", "collector"))),
default = structure(list(), class = c("collector_guess", "collector")),
skip = 1), class = "col_spec"),
class = c("tbl_df", "tbl", "data.frame"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.