Two Parameters

Author

Ansh Kare

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.1     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
Loading required package: Rcpp

Loading 'brms' package (version 2.21.0). Useful instructions
can be found by typing help('brms'). A more detailed introduction
to the package is available through vignette('brms_overview').


Attaching package: 'brms'


The following object is masked from 'package:stats':

    ar



Attaching package: 'tidybayes'


The following objects are masked from 'package:brms':

    dstudent_t, pstudent_t, qstudent_t, rstudent_t

Warning: Rows containing NAs were excluded from the model.

We wanted to find the specific question of whether the next person we meet would be above 180 centimeters. We used the data from NHANES a survey recorded across the US and took the height of those to make a prediction. However that data is from 2010 and we are trying to predict the future , so assuming validity we combined the data with our preceptor table and NHANES data. One important thing to note is that our data is from a survey which is voluntary and not all countries were surveyed thoroughly meaning there is some bias to the data. Then we used a statistical model to determine the average height of a male. Next we focused to a specific question being whether the next person we meet would be above 180 cm with a odds of 30%.

Characteristic	Beta	95% CI ¹
(Intercept)	162	161, 162
¹ CI = Credible Interval

`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

# A tibble: 1 × 2
   .row  odds
  <int> <dbl>
1     1 0.182