Title: | Obesity Cost Database |
---|---|
Description: | This database contains necessary data relevant to medical costs on obesity throughout the United States. This database, in form of an R package, could output necessary data frames relevant to obesity costs, where the clients could easily manipulate the output using difference parameters, e.g. relative risks for each illnesses. This package contributes to parts of our published journal named "Modeling the Economic Cost of Obesity Risk and Its Relation to the Health Insurance Premium in the United States: A State Level Analysis". Please use the following citation for the journal: Woods Thomas, Tatjana Miljkovic (2022) "Modeling the Economic Cost of Obesity Risk and Its Relation to the Health Insurance Premium in the United States: A State Level Analysis" <doi:10.3390/risks10100197>. The database is composed of the following main tables: 1. Relative_Risks: (constant) Relative risks for a given disease group with a risk factor of obesity; 2. Disease_Cost: (obesity_cost_disease) Supplementary output with all variables related to individual disease groups in a given state and year; 3. Full_Cost: (obesity_cost_full) Complete output with all variables used to make cost calculations, as well as cost calculations in a given state and year; 4. National_Summary: (obesity_cost_national_summary) National summary cost calculations in a given year. Three functions are included to assist users in calling and adjusting the mentioned tables and they are data_load(), data_produce(), and rel_risk_fun(). |
Authors: | Tianyue Zang [aut, cre, cph], Thomas Woods [aut], Tatjana Miljkovic [aut] |
Maintainer: | Tianyue Zang <[email protected]> |
License: | LGPL |
Version: | 0.1.0 |
Built: | 2025-02-13 04:42:34 UTC |
Source: | https://github.com/cran/obcost |
This database contains necessary data relevant to medical costs on obesity throughout the United States. This database, in form of an R package, could output necessary data frames relevant to obesity costs, where the clients could easily manipulate the output using difference parameters, e.g. relative risks for each illnesses.
So far the functions included in the package are:
data_load
generate the essential four tables that concerns obesity
data_produce
load all critical values in a returned list format
rel_risk_fun
update the relative risks (or the constants) when crucial data needs updating
The database is composed of the following main tables:
constant
Relative risks for a given disease group with a risk factor of obesity.
obesity_cost_disease
Supplementary output with all variables related to individual disease groups in a given state and year.
obesity_cost_full
Complete output with all variables used to make cost calculations, as well as cost calculations in a given state and year.
obesity_cost_national_summary
National summary cost calculations in a given year.
full_data
Necessary raw data for generating new tables with user input
This package contributes to parts of our published journal named "Modeling the Economic Cost of Obesity Risk and Its Relation to the Health Insurance Premium in the United States: A State Level Analysis" Please use the following citation for the journal: Woods Thomas, Tatjana Miljkovic. 2022. Modeling the Economic Cost of Obesity Risk and Its Relation to the Health Insurance Premium in the United States: A State Level Analysis. Risks 10: 197. <doi:10.3390/risks10100197>
Package: | obcost |
Type: | Package |
Version: | 0.1.0 |
Date: | 2022-10-23 |
License: | public |
LazyData: | no |
Please make sure that packages of dplyr and tidyr is applied
Tianyue Zang ([email protected])([email protected]) Thomas Woods, Tatjana Miljkovic
Maintainer: Tianyue Zang ([email protected])([email protected])
State Population Totals. 2020. State Population Totals and Components of Change: 2010–2019. Suitland: U.S. Census Bureau. Available online: www.census.gov (accessed on 20 July 2021).
Current Population Survey Annual Social and Economic Supplements. 2020. Income and Poverty in the United States: 2019. Available online: www.census.gov (accessed on 20 July 2021).
Disability Characteristics. 2020. American Community Survey (acs). Available online: www.census.gov (accessed on 20 July 2021).
Characteristics of the Employed. 2020. Current Population Survey (cps). Available online: www.bls.gov (accessed on 20 July 2021).
Employer Costs for Employee Compensation. 2021. Archived News Releases. Available online: www.bls.gov (accessed on 20 July 2021).
Table of Overweight and Obesity (BMI). 2020. Behavioral Risk Factor Surveillance System. Available online: www.cdc.gov (accessed on 21 July 2021).
Premium, Schedule T., and Annuity Considerations. 2020. Total Health Industry Schedule T Allocated by States and Territories. Available online: www.spglobal.com (accessed on 29 October 2021).
Murray, Christopher J. L., Aleksandr Y. Aravkin, Peng Zheng, Cristiana Abbafati, Kaja M. Abbas, Mohsen Abbasi-Kangevari, Foad Abd-Allah, Ahmed Abdelalim, Mohammad Abdollahi, Ibrahim Abdollahpour, and et al. 2020. Global burden of 87 risk factors in 204 countries and territories, 1990–2019: A systematic analysis for the global burden of disease study 2019. The Lancet 396: 1223–249. [CrossRef]
Consumer Price Index. 2021. All Urban Consumers (Current Series). Available online: www.bls.gov (accessed on 21 July 2021).
This dataset gives default input of Relative Risk, however could be updated latter by the user
Relative Risk for cardiovascular disease
Relative Risk for diabetes
Relative Risk for cancer
Relative Risk for chronic obstructive pulmonary disease or asthma
Relative Risk for osteoarthritis
Relative Risk for hypertension
Relative Risk for kidney diseases
Relative Risk for gallbladder, liver, and pancreatic diseases
Relative Risk for strokes
constant
constant
An object of class tbl_df
(inherits from tbl
, data.frame
) with 9 rows and 2 columns.
The function "data_load" would load all critical values in a returned list format
data_load()
data_load()
a list(dataframe) of pop (population), gdp (global gdp), mi (median income), bmi (body mass index), disab (disability rate), employ (employment rate), med_cost (medical conditions cost), med_prev (medical conditions prevalence cost), natl_med_prev (national medical conditions prevalence), rel_risk (relative risk), benefits, and insurance
raw_data <- data_load() population <- raw_data$pop
raw_data <- data_load() population <- raw_data$pop
The data_produce function would generate the essential four tables that concerns obesity including 1. Relative Risks (constant): Relative risks for a given disease group with a risk factor of obesity. 2. Disease Cost (obesity_cost_disease): Supplementary output with all variables related to individual disease groups in a given state and year. 3. Full Cost (obesity_cost_full): Complete output with all variables used to make cost calculations, as well as cost calculations in a given state and year. 4. National Summary (obesity_cost_national_summary): National summary cost calculations in a given year.
data_produce(rr = c())
data_produce(rr = c())
rr |
the relative risks of diseases – Cardiovascular disease, diabetes, cancer, Chronic obstructive pulmonary disease or asthma, osteoarthritis, hypertension, kidney diseases, (Gallbladder, Liver, Pancreatic) diseases, and strokes. |
a list (dataframe) of constant, obesity_cost_disease, obesity_cost_full, and obesity_cost_national_summary
new_data <- data_produce(rr = c(1,2,3,4,5,6,7,8,9.1)) cnst <- new_data$constant
new_data <- data_produce(rr = c(1,2,3,4,5,6,7,8,9.1)) cnst <- new_data$constant
This dataset gives users opportunities to update the outputs with there own input of relative risks
Population
GDP 1963-2020 in millions of current dollars
Median Income 1967-2019
BMI 1996-2019
Disability 1981-2019
Employment Rate 1950-2020
Medical Conditions Cost 1996-2018
Medical Conditions Prevalence 1996-2019
Medical Conditions National Prevalence 2996-2019
Relative Risks
Employee Benefits 1996-2018
insurance_data
full_data
full_data
An object of class list
of length 12.
This dataset gives supplementary output with all variables related to individual disease groups in a given state and year.
state of interest
year of interest
obesity prevalence in state i and year t
disease group
relative risk of disease group j on obesity
national cost of disease group j in year t
population-attributable risk percent of disease group j in state i and year t
direct cost for disease group j in state i and year t
obesity_cost_disease
obesity_cost_disease
An object of class data.frame
with 10350 rows and 8 columns.
Complete output with all variables used to make cost calculations, as well as cost calculations in a given state and year.
state of interest
year of interest
median income in year t
work-impacting disability prevalence in year t
employment average ration in year t
employment benefit in year t
population in state i and year t
obesity prevalence in state i and year t
total employee benefits in year t
gross domestic product of state i in year t
direct cost of state i in year t
excess mortality cost of state i in year t
absenteeism cost of state i in year t
disability cost of state i in year t
indirect cost of state i in year t
total cost of state i in year t
obesity_cost_full
obesity_cost_full
An object of class data.frame
with 1150 rows and 16 columns.
National summary cost calculations in a given year
year of interest
direct cost in year t
excess mortality cost in year t
absenteeism cost in year t
disability cost in year t
indirect cost in year t
total cost in year t
total population in year t
average obesity rate in year t
obesity_cost_national_summary
obesity_cost_national_summary
An object of class data.frame
with 23 rows and 9 columns.
The "rel_risk_fun" could update the relative risks (or the constants) when crucial data needs updating
rel_risk_fun(rr)
rel_risk_fun(rr)
rr |
the relative risks of diseases – Cardiovascular disease, diabetes, cancer, Chronic obstructive pulmonary disease or asthma, osteoarthritis, hypertension, kidney diseases, (Gallbladder, Liver, Pancreatic) diseases, and strokes. |
a list (dataframe) of relative risks
key <- rel_risk_fun(rr = c(1,2,3,4,5,6,7,8,1.2)) key$rr
key <- rel_risk_fun(rr = c(1,2,3,4,5,6,7,8,1.2)) key$rr