cleanup part deux

andrewallenbruce · Nov 5, 2023 · 05088e7 · 05088e7
1 parent 629f1d4
commit 05088e7
Show file tree

Hide file tree

Showing 5 changed files with 37 additions and 9 deletions.
diff --git a/R/globals.R b/R/globals.R
@@ -7,6 +7,11 @@ utils::globalVariables(c(
   "y", # <beneficiaries>
   "y", # <betos>
   "rbcs_major_ind", # <betos>
+  "hcpcs", # <rbcs_util>
+  "category", # <rbcs_util>
+  "subcategory", # <rbcs_util>
+  "family", # <rbcs_util>
+  "procedure", # <rbcs_util>
   "copy", # <ror>
   ":=", # <ror>
   "lg", # <ror>
@@ -197,11 +202,6 @@ utils::globalVariables(c(
   "address", # <tidyup_service>
   "specialty", # <tidyup_service>
   "place_of_srvc", # <tidyup_geography>
-  "hcpcs", # <rbcs_util>
-  "category", # <rbcs_util>
-  "subcategory", # <rbcs_util>
-  "family", # <rbcs_util>
-  "procedure", # <rbcs_util>
   "title", # <cms_update>
   "modified", # <cms_update>
   "distribution", # <cms_update>

diff --git a/man/ndc_lookup.Rd b/man/ndc_lookup.Rd
diff --git a/man/open_payments.Rd b/man/open_payments.Rd
diff --git a/man/opt_out.Rd b/man/opt_out.Rd
diff --git a/vignettes/articles/partb-stats.Rmd b/vignettes/articles/partb-stats.Rmd
@@ -26,6 +26,7 @@ library(tidyr)
 library(dplyr)
 library(purrr)
 library(furrr)
+library(ggplot2)
 library(gt)
 library(gtExtras)
 ```
@@ -53,12 +54,25 @@ plan(sequential)
 ## Overall Performance
 
 ```{r}
-ind |> 
+performance <- ind |> 
   unnest(performance) |> 
+  mutate(year = as.integer(year)) |> 
   select(year, tot_hcpcs:.pymt_per_srvc)
+performance
 ```
 
 
+```{r}
+lm.performance <- lm(tot_payment ~ .srvcs_per_bene + tot_benes + .pymt_per_srvc, data = performance)
+summary(lm.performance)
+```
+
+
+```{r}
+ggplot(performance, aes(x = tot_payment, y = .srvcs_per_bene, fill = year, group = year)) +
+  geom_point(shape = 21, size = 4, alpha = 0.75) +
+  theme_minimal()
+```
 
 
 ```{r}