Eye Exam
Introduction
In this section we will:
* identify which Basic Metabolic Panel procedures were excluded and why
* identify which different Basic Metabolic Panel subgroups were created and why
If you have questions or concerns about this data please contact Alexander Nielson (alexnielson@utah.gov)
Load Libraries
Load Libraries
library(data.table)
library(tidyverse)## Warning: replacing previous import 'vctrs::data_frame' by 'tibble::data_frame'
## when loading 'dplyr'library(stringi)
library(ggridges)
library(broom)
library(disk.frame)
library(RecordLinkage)
library(googlesheets4)
library(bigrquery)
library(DBI)
devtools::install_github("utah-osa/hcctools2", upgrade="never" )
library(hcctools2)Establish color palettes
cust_color_pal1 <- c(
"Anesthesia" = "#f3476f",
"Facility" = "#e86a33",
"Medicine Proc" = "#e0a426",
"Pathology" = "#77bf45",
"Radiology" = "#617ff7",
"Surgery" = "#a974ee"
)
cust_color_pal2 <- c(
"TRUE" = "#617ff7",
"FALSE" = "#e0a426"
)
cust_color_pal3 <- c(
"above avg" = "#f3476f",
"avg" = "#77bf45",
"below avg" = "#a974ee"
)
fac_ref_regex <- "(UTAH)|(IHC)|(HOSP)|(HOSPITAL)|(CLINIC)|(ANESTH)|(SCOPY)|(SURG)|(LLC)|(ASSOC)|(MEDIC)|(CENTER)|(ASSOCIATES)|(U OF U)|(HEALTH)|(OLOGY)|(OSCOPY)|(FAMILY)|(VAMC)|(SLC)|(SALT LAKE)|(CITY)|(PROVO)|(OGDEN)|(ENDO )|( VALLEY)|( REGIONAL)|( CTR)|(GRANITE)|( INSTITUTE)|(INSTACARE)|(WASATCH)|(COUNTY)|(PEDIATRIC)|(CORP)|(CENTRAL)|(URGENT)|(CARE)|(UNIV)|(ODYSSEY)|(MOUNTAINSTAR)|( ORTHOPEDIC)|(INSTITUT)|(PARTNERSHIP)|(PHYSICIAN)|(CASTLEVIEW)|(CONSULTING)|(MAGEMENT)|(PRACTICE)|(EMERGENCY)|(SPECIALISTS)|(DIVISION)|(GUT WHISPERER)|(INTERMOUNTAIN)|(OBGYN)"Connect to GCP database
bigrquery::bq_auth(path = 'D:/gcp_keys/healthcare-compare-prod-95b3b7349c32.json')
# set my project ID and dataset name
project_id <- 'healthcare-compare-prod'
dataset_name <- 'healthcare_compare'
con <- dbConnect(
bigrquery::bigquery(),
project = project_id,
dataset = dataset_name,
billing = project_id
)Get NPI table
query <- paste0("SELECT npi, clean_name, osa_group, osa_class, osa_specialization
FROM `healthcare-compare-prod.healthcare_compare.npi_full`")
#bq_project_query(billing, query) # uncomment to determine billing price for above query.
npi_full <- dbGetQuery(con, query) %>%
data.table() get a subset of the NPI providers based upon taxonomy groups
gs4_auth(email="alexnielson@utah.gov") npi_prov_pair <- npi_full %>%
.[,.(npi=npi,
clean_name = clean_name
)
] Load Data
bun_proc <- disk.frame("full_apcd.df")eye <- bun_proc[proc_code_str_sorted %>% stri_detect_regex("(92002)|(92004)|(92012)|(92014)") & tp_med >0 & tp_med < 1000]eye %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 514 x 2
## name correlation
## <chr> <dbl>
## 1 faci_bun_t_visit 0.437
## 2 faci_bun_t_pat 0.371
## 3 faci_bun_t_office 0.366
## 4 faci_bun_t_est 0.362
## 5 path_bun_t_panel 0.231
## 6 surg_bun_t_drug 0.210
## 7 surg_bun_t_injection 0.208
## 8 radi_bun_t_mammo 0.201
## 9 path_bun_t_assay 0.199
## 10 path_bun_t_test 0.187
## # ... with 504 more rowscols_to_check <- eye %>% select_if(is.logical)
tag_frequency <- apply(cols_to_check, 2, function(i) sum(i > 0)) %>% enframe() %>% as.data.table() %>% .[,.(tag=name, freq=value)]
outlier_tag_list <- tag_frequency[freq < 1000] %>% .[["tag"]]eye_clean <- remove_bun_proc_with_rare_tags(outlier_tag_list=outlier_tag_list, df=eye)## [1] "Start of rare tag removal"
## [1] "nrow:68133 , ncol:1404"
## [1] "nrow:68133"
## [1] "removing: surg_bun_t_a-grft"
## [1] 68133
## [1] "removing: surg_bun_t_abd"
## [1] 68132
## [1] "removing: surg_bun_t_abdom"
## [1] 68132
## [1] "removing: surg_bun_t_abdomen"
## [1] 68132
## [1] "removing: surg_bun_t_ablate"
## [1] 68132
## [1] "removing: surg_bun_t_abortion"
## [1] 68132
## [1] "removing: surg_bun_t_abscess"
## [1] 68112
## [1] "removing: surg_bun_t_acell"
## [1] 68112
## [1] "removing: surg_bun_t_acellular"
## [1] 68112
## [1] "removing: surg_bun_t_acne"
## [1] 68105
## [1] "removing: surg_bun_t_acute"
## [1] 68105
## [1] "removing: surg_bun_t_add-on"
## [1] 68095
## [1] "removing: surg_bun_t_adenoid"
## [1] 68095
## [1] "removing: surg_bun_t_adjust"
## [1] 68095
## [1] "removing: surg_bun_t_airway"
## [1] 68095
## [1] "removing: surg_bun_t_amput"
## [1] 68095
## [1] "removing: surg_bun_t_anal"
## [1] 68094
## [1] "removing: surg_bun_t_analysis"
## [1] 68094
## [1] "removing: surg_bun_t_aneurysm"
## [1] 68094
## [1] "removing: surg_bun_t_ankle"
## [1] 68089
## [1] "removing: surg_bun_t_anoscopy"
## [1] 68082
## [1] "removing: surg_bun_t_ant"
## [1] 68065
## [1] "removing: surg_bun_t_antepartum"
## [1] 68065
## [1] "removing: surg_bun_t_aorta"
## [1] 68065
## [1] "removing: surg_bun_t_aortic"
## [1] 68065
## [1] "removing: surg_bun_t_aply"
## [1] 68065
## [1] "removing: surg_bun_t_appendectomy"
## [1] 68065
## [1] "removing: surg_bun_t_application"
## [1] 68055
## [1] "removing: surg_bun_t_apply"
## [1] 68053
## [1] "removing: surg_bun_t_approach"
## [1] 68053
## [1] "removing: surg_bun_t_arm"
## [1] 68053
## [1] "removing: surg_bun_t_art"
## [1] 68052
## [1] "removing: surg_bun_t_arterial"
## [1] 68052
## [1] "removing: surg_bun_t_artery"
## [1] 68052
## [1] "removing: surg_bun_t_arthro"
## [1] 68052
## [1] "removing: surg_bun_t_arthroplasty"
## [1] 68052
## [1] "removing: surg_bun_t_arthroscopy"
## [1] 68052
## [1] "removing: surg_bun_t_artificial"
## [1] 68052
## [1] "removing: surg_bun_t_augmentation"
## [1] 68052
## [1] "removing: surg_bun_t_autograft"
## [1] 68052
## [1] "removing: surg_bun_t_b9"
## [1] 67806
## [1] "removing: surg_bun_t_back"
## [1] 67806
## [1] "removing: surg_bun_t_balloon"
## [1] 67806
## [1] "removing: surg_bun_t_bed"
## [1] 67780
## [1] "removing: surg_bun_t_biceps"
## [1] 67780
## [1] "removing: surg_bun_t_bile"
## [1] 67780
## [1] "removing: surg_bun_t_bilobectomy"
## [1] 67780
## [1] "removing: surg_bun_t_biopsy"
## [1] 67743
## [1] "removing: surg_bun_t_bladder"
## [1] 67732
## [1] "removing: surg_bun_t_bleeding"
## [1] 67732
## [1] "removing: surg_bun_t_block"
## [1] 67712
## [1] "removing: surg_bun_t_blockage"
## [1] 67712
## [1] "removing: surg_bun_t_blood"
## [1] 67710
## [1] "removing: surg_bun_t_body"
## [1] 67319
## [1] "removing: surg_bun_t_bone"
## [1] 67318
## [1] "removing: surg_bun_t_bowel"
## [1] 67318
## [1] "removing: surg_bun_t_brace"
## [1] 67318
## [1] "removing: surg_bun_t_brain"
## [1] 67318
## [1] "removing: surg_bun_t_breast"
## [1] 67318
## [1] "removing: surg_bun_t_bronchial"
## [1] 67318
## [1] "removing: surg_bun_t_bronchoscopy"
## [1] 67318
## [1] "removing: surg_bun_t_brow"
## [1] 67318
## [1] "removing: surg_bun_t_bulge"
## [1] 67318
## [1] "removing: surg_bun_t_burn"
## [1] 67318
## [1] "removing: surg_bun_t_burr"
## [1] 67318
## [1] "removing: surg_bun_t_bursa"
## [1] 67107
## [1] "removing: surg_bun_t_buttck"
## [1] 67107
## [1] "removing: surg_bun_t_buttock"
## [1] 67107
## [1] "removing: surg_bun_t_byp"
## [1] 67107
## [1] "removing: surg_bun_t_bypass"
## [1] 67107
## [1] "removing: surg_bun_t_cabg"
## [1] 67107
## [1] "removing: surg_bun_t_canal"
## [1] 67107
## [1] "removing: surg_bun_t_cannula"
## [1] 67107
## [1] "removing: surg_bun_t_capillary"
## [1] 67107
## [1] "removing: surg_bun_t_capsule"
## [1] 67107
## [1] "removing: surg_bun_t_care"
## [1] 67106
## [1] "removing: surg_bun_t_carotid"
## [1] 67106
## [1] "removing: surg_bun_t_cartilage"
## [1] 67106
## [1] "removing: surg_bun_t_cast"
## [1] 67106
## [1] "removing: surg_bun_t_cath"
## [1] 67104
## [1] "removing: surg_bun_t_cavity"
## [1] 67104
## [1] "removing: surg_bun_t_cell"
## [1] 67104
## [1] "removing: surg_bun_t_cervix"
## [1] 67100
## [1] "removing: surg_bun_t_cesarean"
## [1] 67100
## [1] "removing: surg_bun_t_chamber"
## [1] 67100
## [1] "removing: surg_bun_t_change"
## [1] 67100
## [1] "removing: surg_bun_t_chemical"
## [1] 67100
## [1] "removing: surg_bun_t_chemodenerv"
## [1] 67097
## [1] "removing: surg_bun_t_chest"
## [1] 67097
## [1] "removing: surg_bun_t_chin"
## [1] 67097
## [1] "removing: surg_bun_t_cholangiogram"
## [1] 67097
## [1] "removing: surg_bun_t_cholangiopancreatograph"
## [1] 67097
## [1] "removing: surg_bun_t_cholecystoenterostomy"
## [1] 67097
## [1] "removing: surg_bun_t_chronic"
## [1] 67097
## [1] "removing: surg_bun_t_circulation"
## [1] 67097
## [1] "removing: surg_bun_t_circumcision"
## [1] 67097
## [1] "removing: surg_bun_t_clamp"
## [1] 67097
## [1] "removing: surg_bun_t_clavicle"
## [1] 67096
## [1] "removing: surg_bun_t_clearance"
## [1] 67095
## [1] "removing: surg_bun_t_cleft"
## [1] 67095
## [1] "removing: surg_bun_t_clitoris"
## [1] 67095
## [1] "removing: surg_bun_t_cloacal"
## [1] 67095
## [1] "removing: surg_bun_t_closed"
## [1] 67095
## [1] "removing: surg_bun_t_closure"
## [1] 67093
## [1] "removing: surg_bun_t_clot"
## [1] 67093
## [1] "removing: surg_bun_t_collar"
## [1] 67093
## [1] "removing: surg_bun_t_colon"
## [1] 67086
## [1] "removing: surg_bun_t_colonoscopy"
## [1] 67086
## [1] "removing: surg_bun_t_coloproctostomy"
## [1] 67086
## [1] "removing: surg_bun_t_colostomy"
## [1] 67086
## [1] "removing: surg_bun_t_complex"
## [1] 67086
## [1] "removing: surg_bun_t_compression"
## [1] 67086
## [1] "removing: surg_bun_t_contriction"
## [1] 67086
## [1] "removing: surg_bun_t_control"
## [1] 67084
## [1] "removing: surg_bun_t_cord"
## [1] 67084
## [1] "removing: surg_bun_t_cornea"
## [1] 67065
## [1] "removing: surg_bun_t_coronary"
## [1] 67065
## [1] "removing: surg_bun_t_coronoid"
## [1] 67065
## [1] "removing: surg_bun_t_correct"
## [1] 67065
## [1] "removing: surg_bun_t_cranial"
## [1] 67065
## [1] "removing: surg_bun_t_craniofacial"
## [1] 67065
## [1] "removing: surg_bun_t_cryotherapy"
## [1] 67065
## [1] "removing: surg_bun_t_cuff"
## [1] 67065
## [1] "removing: surg_bun_t_cult"
## [1] 67065
## [1] "removing: surg_bun_t_cyst"
## [1] 67056
## [1] "removing: surg_bun_t_cysto"
## [1] 67056
## [1] "removing: surg_bun_t_cystometrogram"
## [1] 67056
## [1] "removing: surg_bun_t_cystoscopy"
## [1] 67056
## [1] "removing: surg_bun_t_cystouretero"
## [1] 67056
## [1] "removing: surg_bun_t_debrid"
## [1] 67038
## [1] "removing: surg_bun_t_debride"
## [1] 67038
## [1] "removing: surg_bun_t_decompression"
## [1] 67038
## [1] "removing: surg_bun_t_deep"
## [1] 67037
## [1] "removing: surg_bun_t_defect"
## [1] 67037
## [1] "removing: surg_bun_t_defib"
## [1] 67037
## [1] "removing: surg_bun_t_deformity"
## [1] 67037
## [1] "removing: surg_bun_t_degenerated"
## [1] 67037
## [1] "removing: surg_bun_t_delivery"
## [1] 67037
## [1] "removing: surg_bun_t_deplet"
## [1] 67037
## [1] "removing: surg_bun_t_dermabrasion"
## [1] 67037
## [1] "removing: surg_bun_t_design"
## [1] 67037
## [1] "removing: surg_bun_t_destroy"
## [1] 67010
## [1] "removing: surg_bun_t_destruction"
## [1] 67007
## [1] "removing: surg_bun_t_dev"
## [1] 66978
## [1] "removing: surg_bun_t_device"
## [1] 66978
## [1] "removing: surg_bun_t_diagnostic"
## [1] 66955
## [1] "removing: surg_bun_t_dialysis"
## [1] 66955
## [1] "removing: surg_bun_t_diaphragm"
## [1] 66955
## [1] "removing: surg_bun_t_digit"
## [1] 66955
## [1] "removing: surg_bun_t_dilat"
## [1] 66897
## [1] "removing: surg_bun_t_dilation"
## [1] 66897
## [1] "removing: surg_bun_t_disc"
## [1] 66897
## [1] "removing: surg_bun_t_diskectomy"
## [1] 66897
## [1] "removing: surg_bun_t_dislocat"
## [1] 66896
## [1] "removing: surg_bun_t_dissect"
## [1] 66896
## [1] "removing: surg_bun_t_donar"
## [1] 66896
## [1] "removing: surg_bun_t_donor"
## [1] 66896
## [1] "removing: surg_bun_t_drain"
## [1] 66889
## [1] "removing: surg_bun_t_draw"
## [1] 66889
## [1] "removing: surg_bun_t_dressing"
## [1] 66889
## [1] "removing: surg_bun_t_drill"
## [1] 66889
## [1] "removing: surg_bun_t_drug"
## [1] 66174
## [1] "removing: surg_bun_t_duct"
## [1] 65579
## [1] "removing: surg_bun_t_duoden"
## [1] 65579
## [1] "removing: surg_bun_t_dura"
## [1] 65568
## [1] "removing: surg_bun_t_ear"
## [1] 65552
## [1] "removing: surg_bun_t_eardrum"
## [1] 65552
## [1] "removing: surg_bun_t_ectopic"
## [1] 65552
## [1] "removing: surg_bun_t_egd"
## [1] 65552
## [1] "removing: surg_bun_t_elbow"
## [1] 65552
## [1] "removing: surg_bun_t_electrical"
## [1] 65552
## [1] "removing: surg_bun_t_electrode"
## [1] 65552
## [1] "removing: surg_bun_t_electroejaculation"
## [1] 65552
## [1] "removing: surg_bun_t_electrolysis"
## [1] 65552
## [1] "removing: surg_bun_t_embolize"
## [1] 65552
## [1] "removing: surg_bun_t_embryo"
## [1] 65552
## [1] "removing: surg_bun_t_endo"
## [1] 65475
## [1] "removing: surg_bun_t_endoscopy"
## [1] 65475
## [1] "removing: surg_bun_t_endovas"
## [1] 65475
## [1] "removing: surg_bun_t_enlarge"
## [1] 65475
## [1] "removing: surg_bun_t_enterectomy"
## [1] 65475
## [1] "removing: surg_bun_t_epiderm"
## [1] 65475
## [1] "removing: surg_bun_t_epididymis"
## [1] 65475
## [1] "removing: surg_bun_t_epiphysis"
## [1] 65475
## [1] "removing: surg_bun_t_episiotomy"
## [1] 65475
## [1] "removing: surg_bun_t_esoph"
## [1] 65475
## [1] "removing: surg_bun_t_esophagoscopy"
## [1] 65475
## [1] "removing: surg_bun_t_esophagus"
## [1] 65475
## [1] "removing: surg_bun_t_exam"
## [1] 65438
## [1] "removing: surg_bun_t_exc"
## [1] 65431
## [1] "removing: surg_bun_t_excessive"
## [1] 65431
## [1] "removing: surg_bun_t_excise"
## [1] 65431
## [1] "removing: surg_bun_t_excision"
## [1] 65431
## [1] "removing: surg_bun_t_exostosis"
## [1] 65431
## [1] "removing: surg_bun_t_expander"
## [1] 65431
## [1] "removing: surg_bun_t_explora"
## [1] 65431
## [1] "removing: surg_bun_t_explore"
## [1] 65431
## [1] "removing: surg_bun_t_extra"
## [1] 65431
## [1] "removing: surg_bun_t_extremity"
## [1] 65431
## [1] "removing: surg_bun_t_eyelashes"
## [1] 65223
## [1] "removing: surg_bun_t_eyelid"
## [1] 65016
## [1] "removing: surg_bun_t_face"
## [1] 65015
## [1] "removing: surg_bun_t_fallopian"
## [1] 65015
## [1] "removing: surg_bun_t_fascia"
## [1] 65015
## [1] "removing: surg_bun_t_fat"
## [1] 65015
## [1] "removing: surg_bun_t_femur"
## [1] 65015
## [1] "removing: surg_bun_t_fibula"
## [1] 65015
## [1] "removing: surg_bun_t_finger"
## [1] 65014
## [1] "removing: surg_bun_t_fissure"
## [1] 65014
## [1] "removing: surg_bun_t_fistula"
## [1] 65014
## [1] "removing: surg_bun_t_fixation"
## [1] 65014
## [1] "removing: surg_bun_t_flap"
## [1] 65014
## [1] "removing: surg_bun_t_flow"
## [1] 65009
## [1] "removing: surg_bun_t_fluid"
## [1] 65009
## [1] "removing: surg_bun_t_fna"
## [1] 65009
## [1] "removing: surg_bun_t_follow-up"
## [1] 65009
## [1] "removing: surg_bun_t_foot"
## [1] 65009
## [1] "removing: surg_bun_t_forearm"
## [1] 65009
## [1] "removing: surg_bun_t_forehead"
## [1] 65009
## [1] "removing: surg_bun_t_foreign"
## [1] 65009
## [1] "removing: surg_bun_t_fracture"
## [1] 65007
## [1] "removing: surg_bun_t_free"
## [1] 65007
## [1] "removing: surg_bun_t_frontal"
## [1] 65007
## [1] "removing: surg_bun_t_fundoplasty"
## [1] 65007
## [1] "removing: surg_bun_t_fusion"
## [1] 65007
## [1] "removing: surg_bun_t_gallbladder"
## [1] 65007
## [1] "removing: surg_bun_t_gastrointestinal"
## [1] 65007
## [1] "removing: surg_bun_t_gastrostomy"
## [1] 65007
## [1] "removing: surg_bun_t_gentialia"
## [1] 65007
## [1] "removing: surg_bun_t_gi"
## [1] 65007
## [1] "removing: surg_bun_t_gland"
## [1] 65007
## [1] "removing: surg_bun_t_glaucoma"
## [1] 65007
## [1] "removing: surg_bun_t_graft"
## [1] 65007
## [1] "removing: surg_bun_t_growth"
## [1] 65007
## [1] "removing: surg_bun_t_gum"
## [1] 65007
## [1] "removing: surg_bun_t_hair"
## [1] 65007
## [1] "removing: surg_bun_t_hallux"
## [1] 65007
## [1] "removing: surg_bun_t_halo"
## [1] 65007
## [1] "removing: surg_bun_t_hand"
## [1] 65007
## [1] "removing: surg_bun_t_harvest"
## [1] 65007
## [1] "removing: surg_bun_t_head"
## [1] 64991
## [1] "removing: surg_bun_t_heart"
## [1] 64991
## [1] "removing: surg_bun_t_hematoma"
## [1] 64991
## [1] "removing: surg_bun_t_hemorrhoid"
## [1] 64985
## [1] "removing: surg_bun_t_hemorrhoidopexy"
## [1] 64985
## [1] "removing: surg_bun_t_hernia"
## [1] 64985
## [1] "removing: surg_bun_t_hip"
## [1] 64985
## [1] "removing: surg_bun_t_hole"
## [1] 64985
## [1] "removing: surg_bun_t_hormone"
## [1] 64985
## [1] "removing: surg_bun_t_humer"
## [1] 64985
## [1] "removing: surg_bun_t_hydrocele"
## [1] 64985
## [1] "removing: surg_bun_t_hyst"
## [1] 64984
## [1] "removing: surg_bun_t_hysterectomy"
## [1] 64984
## [1] "removing: surg_bun_t_iliopsoas"
## [1] 64984
## [1] "removing: surg_bun_t_illiac"
## [1] 64984
## [1] "removing: surg_bun_t_imag"
## [1] 64978
## [1] "removing: surg_bun_t_implant"
## [1] 64978
## [1] "removing: surg_bun_t_incision"
## [1] 64978
## [1] "removing: surg_bun_t_infect"
## [1] 64978
## [1] "removing: surg_bun_t_injection"
## [1] 64973
## [1] "removing: surg_bun_t_inner"
## [1] 64970
## [1] "removing: surg_bun_t_insert"
## [1] 64969
## [1] "removing: surg_bun_t_interlaminar"
## [1] 64944
## [1] "removing: surg_bun_t_internal"
## [1] 64944
## [1] "removing: surg_bun_t_intestine"
## [1] 64944
## [1] "removing: surg_bun_t_intracorporeal"
## [1] 64944
## [1] "removing: surg_bun_t_intracranial"
## [1] 64944
## [1] "removing: surg_bun_t_intranasal"
## [1] 64944
## [1] "removing: surg_bun_t_inverted"
## [1] 64944
## [1] "removing: surg_bun_t_iris"
## [1] 64940
## [1] "removing: surg_bun_t_jaw"
## [1] 64940
## [1] "removing: surg_bun_t_joint"
## [1] 64927
## [1] "removing: surg_bun_t_kidney"
## [1] 64927
## [1] "removing: surg_bun_t_knee"
## [1] 64927
## [1] "removing: surg_bun_t_kneecap"
## [1] 64927
## [1] "removing: surg_bun_t_knuckle"
## [1] 64927
## [1] "removing: surg_bun_t_kyphectomy"
## [1] 64927
## [1] "removing: surg_bun_t_laceration"
## [1] 64927
## [1] "removing: surg_bun_t_lamina"
## [1] 64927
## [1] "removing: surg_bun_t_laminotomy"
## [1] 64927
## [1] "removing: surg_bun_t_lap"
## [1] 64927
## [1] "removing: surg_bun_t_laparoscop"
## [1] 64927
## [1] "removing: surg_bun_t_large"
## [1] 64927
## [1] "removing: surg_bun_t_laryngoscopy"
## [1] 64923
## [1] "removing: surg_bun_t_larynx"
## [1] 64923
## [1] "removing: surg_bun_t_laser"
## [1] 64667
## [1] "removing: surg_bun_t_lavage"
## [1] 64667
## [1] "removing: surg_bun_t_lefort"
## [1] 64667
## [1] "removing: surg_bun_t_leg"
## [1] 64667
## [1] "removing: surg_bun_t_lengthen"
## [1] 64667
## [1] "removing: surg_bun_t_lesion"
## [1] 64392
## [1] "removing: surg_bun_t_ligament"
## [1] 64392
## [1] "removing: surg_bun_t_ligation"
## [1] 64392
## [1] "removing: surg_bun_t_lining"
## [1] 64392
## [1] "removing: surg_bun_t_lip"
## [1] 64392
## [1] "removing: surg_bun_t_lipectomy"
## [1] 64392
## [1] "removing: surg_bun_t_liver"
## [1] 64392
## [1] "removing: surg_bun_t_lobectomy"
## [1] 64392
## [1] "removing: surg_bun_t_long"
## [1] 64392
## [1] "removing: surg_bun_t_lower"
## [1] 64392
## [1] "removing: surg_bun_t_lumbar"
## [1] 64392
## [1] "removing: surg_bun_t_lung"
## [1] 64392
## [1] "removing: surg_bun_t_lymph"
## [1] 64392
## [1] "removing: surg_bun_t_major"
## [1] 64392
## [1] "removing: surg_bun_t_mandible"
## [1] 64392
## [1] "removing: surg_bun_t_marrow"
## [1] 64392
## [1] "removing: surg_bun_t_mast"
## [1] 64392
## [1] "removing: surg_bun_t_mastectomy"
## [1] 64392
## [1] "removing: surg_bun_t_mastoid"
## [1] 64392
## [1] "removing: surg_bun_t_material"
## [1] 64392
## [1] "removing: surg_bun_t_maxilla"
## [1] 64392
## [1] "removing: surg_bun_t_mcp"
## [1] 64392
## [1] "removing: surg_bun_t_mesh"
## [1] 64392
## [1] "removing: surg_bun_t_metacarpal"
## [1] 64392
## [1] "removing: surg_bun_t_microvasc"
## [1] 64392
## [1] "removing: surg_bun_t_middle"
## [1] 64392
## [1] "removing: surg_bun_t_midfoot"
## [1] 64392
## [1] "removing: surg_bun_t_mitral"
## [1] 64392
## [1] "removing: surg_bun_t_mohs"
## [1] 64392
## [1] "removing: surg_bun_t_mouth"
## [1] 64392
## [1] "removing: surg_bun_t_musc"
## [1] 64375
## [1] "removing: surg_bun_t_myelography"
## [1] 64375
## [1] "removing: surg_bun_t_myomectomy"
## [1] 64375
## [1] "removing: surg_bun_t_nail"
## [1] 64367
## [1] "removing: surg_bun_t_nasal"
## [1] 64367
## [1] "removing: surg_bun_t_nasolacrimal"
## [1] 64367
## [1] "removing: surg_bun_t_neck"
## [1] 64367
## [1] "removing: surg_bun_t_needle"
## [1] 64367
## [1] "removing: surg_bun_t_nephrectomy"
## [1] 64367
## [1] "removing: surg_bun_t_nerve"
## [1] 64367
## [1] "removing: surg_bun_t_neuroelectrode"
## [1] 64367
## [1] "removing: surg_bun_t_neuroendoscopy"
## [1] 64367
## [1] "removing: surg_bun_t_nipple"
## [1] 64367
## [1] "removing: surg_bun_t_njx"
## [1] 64367
## [1] "removing: surg_bun_t_node"
## [1] 64367
## [1] "removing: surg_bun_t_nodule"
## [1] 64367
## [1] "removing: surg_bun_t_nonfacial"
## [1] 64367
## [1] "removing: surg_bun_t_nose"
## [1] 64367
## [1] "removing: surg_bun_t_nosebleed"
## [1] 64367
## [1] "removing: surg_bun_t_nuero"
## [1] 64367
## [1] "removing: surg_bun_t_obstetrical"
## [1] 64367
## [1] "removing: surg_bun_t_open"
## [1] 64367
## [1] "removing: surg_bun_t_opening"
## [1] 64367
## [1] "removing: surg_bun_t_oral"
## [1] 64367
## [1] "removing: surg_bun_t_orbitocranial"
## [1] 64367
## [1] "removing: surg_bun_t_orchiopexy"
## [1] 64367
## [1] "removing: surg_bun_t_other"
## [1] 64367
## [1] "removing: surg_bun_t_ovarian"
## [1] 64367
## [1] "removing: surg_bun_t_ovary"
## [1] 64367
## [1] "removing: surg_bun_t_pacemaker"
## [1] 64367
## [1] "removing: surg_bun_t_pad"
## [1] 64367
## [1] "removing: surg_bun_t_palate"
## [1] 64367
## [1] "removing: surg_bun_t_palm"
## [1] 64367
## [1] "removing: surg_bun_t_palsy"
## [1] 64367
## [1] "removing: surg_bun_t_pancreas"
## [1] 64367
## [1] "removing: surg_bun_t_pancreatectomy"
## [1] 64367
## [1] "removing: surg_bun_t_paravert"
## [1] 64361
## [1] "removing: surg_bun_t_part"
## [1] 64361
## [1] "removing: surg_bun_t_partial"
## [1] 64361
## [1] "removing: surg_bun_t_pedcle"
## [1] 64361
## [1] "removing: surg_bun_t_pedicle"
## [1] 64361
## [1] "removing: surg_bun_t_peel"
## [1] 64361
## [1] "removing: surg_bun_t_pelvic"
## [1] 64361
## [1] "removing: surg_bun_t_pelvis"
## [1] 64361
## [1] "removing: surg_bun_t_penile"
## [1] 64361
## [1] "removing: surg_bun_t_penis"
## [1] 64361
## [1] "removing: surg_bun_t_percut"
## [1] 64361
## [1] "removing: surg_bun_t_percutaneous"
## [1] 64361
## [1] "removing: surg_bun_t_perineum"
## [1] 64361
## [1] "removing: surg_bun_t_pernineum"
## [1] 64361
## [1] "removing: surg_bun_t_pharynx"
## [1] 64361
## [1] "removing: surg_bun_t_pierce"
## [1] 64361
## [1] "removing: surg_bun_t_pilonidal"
## [1] 64361
## [1] "removing: surg_bun_t_place"
## [1] 64361
## [1] "removing: surg_bun_t_plastic"
## [1] 64361
## [1] "removing: surg_bun_t_plate"
## [1] 64361
## [1] "removing: surg_bun_t_pneumonectomy"
## [1] 64361
## [1] "removing: surg_bun_t_polyp"
## [1] 64361
## [1] "removing: surg_bun_t_pouch"
## [1] 64361
## [1] "removing: surg_bun_t_pregnancy"
## [1] 64361
## [1] "removing: surg_bun_t_prep"
## [1] 64361
## [1] "removing: surg_bun_t_prepare"
## [1] 64361
## [1] "removing: surg_bun_t_pressure"
## [1] 64361
## [1] "removing: surg_bun_t_process"
## [1] 64361
## [1] "removing: surg_bun_t_proctosigmoidoscopy"
## [1] 64361
## [1] "removing: surg_bun_t_prolapse"
## [1] 64361
## [1] "removing: surg_bun_t_prostat"
## [1] 64361
## [1] "removing: surg_bun_t_prostate"
## [1] 64361
## [1] "removing: surg_bun_t_prosthesis"
## [1] 64361
## [1] "removing: surg_bun_t_prosthetic"
## [1] 64361
## [1] "removing: surg_bun_t_pulmonary"
## [1] 64361
## [1] "removing: surg_bun_t_punch"
## [1] 64361
## [1] "removing: surg_bun_t_puncture"
## [1] 64361
## [1] "removing: surg_bun_t_pyeloplasty"
## [1] 64361
## [1] "removing: surg_bun_t_radius"
## [1] 64361
## [1] "removing: surg_bun_t_realignment"
## [1] 64361
## [1] "removing: surg_bun_t_rechannel"
## [1] 64361
## [1] "removing: surg_bun_t_reconstruct"
## [1] 64361
## [1] "removing: surg_bun_t_reconstruction"
## [1] 64361
## [1] "removing: surg_bun_t_rectal"
## [1] 64361
## [1] "removing: surg_bun_t_rectum"
## [1] 64361
## [1] "removing: surg_bun_t_reduction"
## [1] 64361
## [1] "removing: surg_bun_t_reinforce"
## [1] 64361
## [1] "removing: surg_bun_t_release"
## [1] 64361
## [1] "removing: surg_bun_t_remov"
## [1] 64347
## [1] "removing: surg_bun_t_removal"
## [1] 64347
## [1] "removing: surg_bun_t_remove"
## [1] 64347
## [1] "removing: surg_bun_t_renal"
## [1] 64347
## [1] "removing: surg_bun_t_repair"
## [1] 64333
## [1] "removing: surg_bun_t_replantation"
## [1] 64333
## [1] "removing: surg_bun_t_resect"
## [1] 64333
## [1] "removing: surg_bun_t_reset"
## [1] 64333
## [1] "removing: surg_bun_t_retina"
## [1] 64233
## [1] "removing: surg_bun_t_retinopathy"
## [1] 64205
## [1] "removing: surg_bun_t_revise"
## [1] 64205
## [1] "removing: surg_bun_t_revision"
## [1] 64205
## [1] "removing: surg_bun_t_rib"
## [1] 64205
## [1] "removing: surg_bun_t_ridge"
## [1] 64205
## [1] "removing: surg_bun_t_ring"
## [1] 64205
## [1] "removing: surg_bun_t_roof"
## [1] 64205
## [1] "removing: surg_bun_t_rotator"
## [1] 64205
## [1] "removing: surg_bun_t_routine"
## [1] 64205
## [1] "removing: surg_bun_t_sacrum"
## [1] 64205
## [1] "removing: surg_bun_t_salivary"
## [1] 64205
## [1] "removing: surg_bun_t_scapula"
## [1] 64205
## [1] "removing: surg_bun_t_scar"
## [1] 64205
## [1] "removing: surg_bun_t_scope"
## [1] 64205
## [1] "removing: surg_bun_t_scrotum"
## [1] 64205
## [1] "removing: surg_bun_t_segment"
## [1] 64205
## [1] "removing: surg_bun_t_segmental"
## [1] 64205
## [1] "removing: surg_bun_t_segmentectomy"
## [1] 64205
## [1] "removing: surg_bun_t_septum"
## [1] 64205
## [1] "removing: surg_bun_t_sex"
## [1] 64205
## [1] "removing: surg_bun_t_shave"
## [1] 64205
## [1] "removing: surg_bun_t_sheath"
## [1] 64205
## [1] "removing: surg_bun_t_shorten"
## [1] 64205
## [1] "removing: surg_bun_t_shoulder"
## [1] 64205
## [1] "removing: surg_bun_t_shunt"
## [1] 64205
## [1] "removing: surg_bun_t_sigmoidoscopy"
## [1] 64205
## [1] "removing: surg_bun_t_simple"
## [1] 64205
## [1] "removing: surg_bun_t_sinus"
## [1] 64205
## [1] "removing: surg_bun_t_skeletal"
## [1] 64205
## [1] "removing: surg_bun_t_skin"
## [1] 64205
## [1] "removing: surg_bun_t_skull"
## [1] 64205
## [1] "removing: surg_bun_t_sleeve"
## [1] 64205
## [1] "removing: surg_bun_t_slipped"
## [1] 64205
## [1] "removing: surg_bun_t_small"
## [1] 64205
## [1] "removing: surg_bun_t_socket"
## [1] 64130
## [1] "removing: surg_bun_t_soft"
## [1] 64130
## [1] "removing: surg_bun_t_sore"
## [1] 64130
## [1] "removing: surg_bun_t_sperm"
## [1] 64130
## [1] "removing: surg_bun_t_sphenoid"
## [1] 64130
## [1] "removing: surg_bun_t_sphincter"
## [1] 64130
## [1] "removing: surg_bun_t_spine"
## [1] 64130
## [1] "removing: surg_bun_t_spleen"
## [1] 64130
## [1] "removing: surg_bun_t_splint"
## [1] 64130
## [1] "removing: surg_bun_t_split"
## [1] 64130
## [1] "removing: surg_bun_t_stem"
## [1] 64130
## [1] "removing: surg_bun_t_stenosis"
## [1] 64130
## [1] "removing: surg_bun_t_stent"
## [1] 64130
## [1] "removing: surg_bun_t_sternal"
## [1] 64130
## [1] "removing: surg_bun_t_sternum"
## [1] 64130
## [1] "removing: surg_bun_t_stimulation"
## [1] 64130
## [1] "removing: surg_bun_t_stomach"
## [1] 64130
## [1] "removing: surg_bun_t_stone"
## [1] 64130
## [1] "removing: surg_bun_t_stop"
## [1] 64130
## [1] "removing: surg_bun_t_strapping"
## [1] 64130
## [1] "removing: surg_bun_t_stricture"
## [1] 64130
## [1] "removing: surg_bun_t_styloid"
## [1] 64130
## [1] "removing: surg_bun_t_sub"
## [1] 64107
## [1] "removing: surg_bun_t_suction"
## [1] 64107
## [1] "removing: surg_bun_t_superficial"
## [1] 64107
## [1] "removing: surg_bun_t_suspension"
## [1] 64107
## [1] "removing: surg_bun_t_sutures"
## [1] 64107
## [1] "removing: surg_bun_t_sweat"
## [1] 64107
## [1] "removing: surg_bun_t_tags"
## [1] 64107
## [1] "removing: surg_bun_t_tail"
## [1] 64107
## [1] "removing: surg_bun_t_tear"
## [1] 64107
## [1] "removing: surg_bun_t_temporal"
## [1] 64107
## [1] "removing: surg_bun_t_tendon"
## [1] 64107
## [1] "removing: surg_bun_t_testis"
## [1] 64107
## [1] "removing: surg_bun_t_therapy"
## [1] 64107
## [1] "removing: surg_bun_t_thigh"
## [1] 64107
## [1] "removing: surg_bun_t_thoracoscopy"
## [1] 64107
## [1] "removing: surg_bun_t_thoracotomy"
## [1] 64107
## [1] "removing: surg_bun_t_thorax"
## [1] 64107
## [1] "removing: surg_bun_t_throat"
## [1] 64107
## [1] "removing: surg_bun_t_thrombin"
## [1] 64107
## [1] "removing: surg_bun_t_thrombo"
## [1] 64107
## [1] "removing: surg_bun_t_thumb"
## [1] 64107
## [1] "removing: surg_bun_t_thymus"
## [1] 64107
## [1] "removing: surg_bun_t_thyroid"
## [1] 64107
## [1] "removing: surg_bun_t_tip"
## [1] 64107
## [1] "removing: surg_bun_t_tiss"
## [1] 64106
## [1] "removing: surg_bun_t_tkr"
## [1] 64106
## [1] "removing: surg_bun_t_toe"
## [1] 64106
## [1] "removing: surg_bun_t_tongue"
## [1] 64106
## [1] "removing: surg_bun_t_tonsil"
## [1] 64106
## [1] "removing: surg_bun_t_torsion"
## [1] 64106
## [1] "removing: surg_bun_t_total"
## [1] 64106
## [1] "removing: surg_bun_t_tract"
## [1] 64106
## [1] "removing: surg_bun_t_transcath"
## [1] 64106
## [1] "removing: surg_bun_t_transfer"
## [1] 64106
## [1] "removing: surg_bun_t_transform"
## [1] 64106
## [1] "removing: surg_bun_t_transplant"
## [1] 64106
## [1] "removing: surg_bun_t_treat"
## [1] 64106
## [1] "removing: surg_bun_t_triceps"
## [1] 64106
## [1] "removing: surg_bun_t_tricuspid"
## [1] 64106
## [1] "removing: surg_bun_t_trigger"
## [1] 64095
## [1] "removing: surg_bun_t_trim"
## [1] 64095
## [1] "removing: surg_bun_t_tube"
## [1] 64095
## [1] "removing: surg_bun_t_tum"
## [1] 64095
## [1] "removing: surg_bun_t_tumor"
## [1] 64095
## [1] "removing: surg_bun_t_tunneled"
## [1] 64095
## [1] "removing: surg_bun_t_ulcer"
## [1] 64095
## [1] "removing: surg_bun_t_ulna"
## [1] 64095
## [1] "removing: surg_bun_t_umbil"
## [1] 64095
## [1] "removing: surg_bun_t_unit"
## [1] 64095
## [1] "removing: surg_bun_t_unstable"
## [1] 64095
## [1] "removing: surg_bun_t_upper"
## [1] 64095
## [1] "removing: surg_bun_t_ureter"
## [1] 64095
## [1] "removing: surg_bun_t_urethra"
## [1] 64095
## [1] "removing: surg_bun_t_urethrovaginal"
## [1] 64095
## [1] "removing: surg_bun_t_uterus"
## [1] 64095
## [1] "removing: surg_bun_t_uvula"
## [1] 64095
## [1] "removing: surg_bun_t_vag"
## [1] 64095
## [1] "removing: surg_bun_t_vagotomy"
## [1] 64095
## [1] "removing: surg_bun_t_valgus"
## [1] 64095
## [1] "removing: surg_bun_t_valve"
## [1] 64095
## [1] "removing: surg_bun_t_vascular"
## [1] 64095
## [1] "removing: surg_bun_t_vein"
## [1] 64095
## [1] "removing: surg_bun_t_venipuncture"
## [1] 64095
## [1] "removing: surg_bun_t_ventricular"
## [1] 64095
## [1] "removing: surg_bun_t_vertebra"
## [1] 64095
## [1] "removing: surg_bun_t_vessel"
## [1] 64095
## [1] "removing: surg_bun_t_vulva"
## [1] 64095
## [1] "removing: surg_bun_t_wall"
## [1] 64095
## [1] "removing: surg_bun_t_wax"
## [1] 64095
## [1] "removing: surg_bun_t_web"
## [1] 64095
## [1] "removing: surg_bun_t_wedge"
## [1] 64095
## [1] "removing: surg_bun_t_window"
## [1] 64095
## [1] "removing: surg_bun_t_windpipe"
## [1] 64095
## [1] "removing: surg_bun_t_wound"
## [1] 64095
## [1] "removing: surg_bun_t_wrinkle"
## [1] 64095
## [1] "removing: surg_bun_t_wrist"
## [1] 64095
## [1] "removing: surg_bun_t_x-ray"
## [1] 64095
## [1] "removing: surg_bun_t_xenograft"
## [1] 64095
## [1] "removing: surg_bun_t_xenogrft"
## [1] 64095
## [1] "removing: surg_bun_t_xgraft"
## [1] 64095
## [1] "removing: medi_bun_t_add-on"
## [1] 64086
## [1] "removing: medi_bun_t_analy"
## [1] 64036
## [1] "removing: medi_bun_t_applicat"
## [1] 64036
## [1] "removing: medi_bun_t_apply"
## [1] 64036
## [1] "removing: medi_bun_t_asses"
## [1] 64011
## [1] "removing: medi_bun_t_benzathine"
## [1] 64006
## [1] "removing: medi_bun_t_betamethasone"
## [1] 64003
## [1] "removing: medi_bun_t_boot"
## [1] 63982
## [1] "removing: medi_bun_t_candida"
## [1] 63982
## [1] "removing: medi_bun_t_cast"
## [1] 63982
## [1] "removing: medi_bun_t_cathet"
## [1] 63982
## [1] "removing: medi_bun_t_catheterisation"
## [1] 63982
## [1] "removing: medi_bun_t_chiropract"
## [1] 63555
## [1] "removing: medi_bun_t_choline"
## [1] 63554
## [1] "removing: medi_bun_t_clinic"
## [1] 63435
## [1] "removing: medi_bun_t_clostridium"
## [1] 63435
## [1] "removing: medi_bun_t_cochlear"
## [1] 63432
## [1] "removing: medi_bun_t_cold"
## [1] 63423
## [1] "removing: medi_bun_t_consult"
## [1] 63423
## [1] "removing: medi_bun_t_consultation"
## [1] 63423
## [1] "removing: medi_bun_t_crutch"
## [1] 63423
## [1] "removing: medi_bun_t_cyst"
## [1] 63423
## [1] "removing: medi_bun_t_depression"
## [1] 63341
## [1] "removing: medi_bun_t_derma"
## [1] 63341
## [1] "removing: medi_bun_t_dermal"
## [1] 63341
## [1] "removing: medi_bun_t_device"
## [1] 63295
## [1] "removing: medi_bun_t_dialys"
## [1] 63259
## [1] "removing: medi_bun_t_discharg"
## [1] 63259
## [1] "removing: medi_bun_t_drain"
## [1] 63259
## [1] "removing: medi_bun_t_draw"
## [1] 63228
## [1] "removing: medi_bun_t_dtap"
## [1] 63151
## [1] "removing: medi_bun_t_dtap-ipv"
## [1] 63151
## [1] "removing: medi_bun_t_emotional"
## [1] 62918
## [1] "removing: medi_bun_t_endocrine"
## [1] 62918
## [1] "removing: medi_bun_t_epstein-barr"
## [1] 62918
## [1] "removing: medi_bun_t_equipment"
## [1] 62918
## [1] "removing: medi_bun_t_estradiol"
## [1] 62918
## [1] "removing: medi_bun_t_flu"
## [1] 62561
## [1] "removing: medi_bun_t_follow-up"
## [1] 62561
## [1] "removing: medi_bun_t_gastroenterology"
## [1] 62561
## [1] "removing: medi_bun_t_gonorrhoeae"
## [1] 62561
## [1] "removing: medi_bun_t_haloperidol"
## [1] 62561
## [1] "removing: medi_bun_t_hearing"
## [1] 62443
## [1] "removing: medi_bun_t_hemorrhoid"
## [1] 62443
## [1] "removing: medi_bun_t_hepatitis"
## [1] 62443
## [1] "removing: medi_bun_t_hiv - 2"
## [1] 62443
## [1] "removing: medi_bun_t_hiv - 3"
## [1] 62443
## [1] "removing: medi_bun_t_home"
## [1] 62442
## [1] "removing: medi_bun_t_hormone"
## [1] 62442
## [1] "removing: medi_bun_t_hpv"
## [1] 62352
## [1] "removing: medi_bun_t_hydrate"
## [1] 62352
## [1] "removing: medi_bun_t_hydration"
## [1] 62346
## [1] "removing: medi_bun_t_iiv"
## [1] 61848
## [1] "removing: medi_bun_t_immune"
## [1] 61838
## [1] "removing: medi_bun_t_immunoassay"
## [1] 61829
## [1] "removing: medi_bun_t_immunohisto"
## [1] 61829
## [1] "removing: medi_bun_t_immunotherapy"
## [1] 61423
## [1] "removing: medi_bun_t_influenza"
## [1] 61423
## [1] "removing: medi_bun_t_inject"
## [1] 61309
## [1] "removing: medi_bun_t_insulin"
## [1] 61309
## [1] "removing: medi_bun_t_intrauterine"
## [1] 61309
## [1] "removing: medi_bun_t_iodine"
## [1] 61309
## [1] "removing: medi_bun_t_laiv4"
## [1] 61307
## [1] "removing: medi_bun_t_manual"
## [1] 60664
## [1] "removing: medi_bun_t_medroxyprogesterone"
## [1] 60641
## [1] "removing: medi_bun_t_mental"
## [1] 60624
## [1] "removing: medi_bun_t_metabolic"
## [1] 60624
## [1] "removing: medi_bun_t_methylprednisolone"
## [1] 60618
## [1] "removing: medi_bun_t_mgmt"
## [1] 60604
## [1] "removing: medi_bun_t_mmr"
## [1] 60563
## [1] "removing: medi_bun_t_monitor"
## [1] 60544
## [1] "removing: medi_bun_t_muscle"
## [1] 60544
## [1] "removing: medi_bun_t_needle"
## [1] 60544
## [1] "removing: medi_bun_t_non-invasive"
## [1] 60544
## [1] "removing: medi_bun_t_non-stress"
## [1] 60544
## [1] "removing: medi_bun_t_normal"
## [1] 60543
## [1] "removing: medi_bun_t_nursing"
## [1] 60543
## [1] "removing: medi_bun_t_nutrition"
## [1] 60501
## [1] "removing: medi_bun_t_observ"
## [1] 60501
## [1] "removing: medi_bun_t_oral"
## [1] 60413
## [1] "removing: medi_bun_t_outpatient"
## [1] 60413
## [1] "removing: medi_bun_t_outpt"
## [1] 60413
## [1] "removing: medi_bun_t_pap"
## [1] 60406
## [1] "removing: medi_bun_t_physical"
## [1] 60405
## [1] "removing: medi_bun_t_portable"
## [1] 60405
## [1] "removing: medi_bun_t_prednisolone"
## [1] 60405
## [1] "removing: medi_bun_t_pressure"
## [1] 60405
## [1] "removing: medi_bun_t_progesterone"
## [1] 60405
## [1] "removing: medi_bun_t_psych"
## [1] 60241
## [1] "removing: medi_bun_t_psychiat"
## [1] 60241
## [1] "removing: medi_bun_t_psycho"
## [1] 60241
## [1] "removing: medi_bun_t_pulmonary"
## [1] 60241
## [1] "removing: medi_bun_t_puncture"
## [1] 59491
## [1] "removing: medi_bun_t_rabies"
## [1] 59491
## [1] "removing: medi_bun_t_radiation"
## [1] 59491
## [1] "removing: medi_bun_t_radio"
## [1] 59491
## [1] "removing: medi_bun_t_reeducation"
## [1] 59405
## [1] "removing: medi_bun_t_reeval"
## [1] 59405
## [1] "removing: medi_bun_t_rehab"
## [1] 59404
## [1] "removing: medi_bun_t_remove"
## [1] 59404
## [1] "removing: medi_bun_t_rheumatoid"
## [1] 59404
## [1] "removing: medi_bun_t_riv4"
## [1] 59361
## [1] "removing: medi_bun_t_routine"
## [1] 59361
## [1] "removing: medi_bun_t_rubella"
## [1] 59361
## [1] "removing: medi_bun_t_saline"
## [1] 59361
## [1] "removing: medi_bun_t_sciatic"
## [1] 59361
## [1] "removing: medi_bun_t_serum"
## [1] 59361
## [1] "removing: medi_bun_t_services"
## [1] 59340
## [1] "removing: medi_bun_t_shave"
## [1] 59340
## [1] "removing: medi_bun_t_simple"
## [1] 59340
## [1] "removing: medi_bun_t_sleep"
## [1] 59327
## [1] "removing: medi_bun_t_smear"
## [1] 59327
## [1] "removing: medi_bun_t_sodium"
## [1] 59314
## [1] "removing: medi_bun_t_soft"
## [1] 59314
## [1] "removing: medi_bun_t_solution"
## [1] 59313
## [1] "removing: medi_bun_t_sound"
## [1] 59295
## [1] "removing: medi_bun_t_speech"
## [1] 59288
## [1] "removing: medi_bun_t_splint"
## [1] 59288
## [1] "removing: medi_bun_t_splt"
## [1] 59288
## [1] "removing: medi_bun_t_stent"
## [1] 59288
## [1] "removing: medi_bun_t_sterile"
## [1] 59288
## [1] "removing: medi_bun_t_stimulation"
## [1] 59245
## [1] "removing: medi_bun_t_stocking"
## [1] 59245
## [1] "removing: medi_bun_t_stone"
## [1] 59245
## [1] "removing: medi_bun_t_stool"
## [1] 59245
## [1] "removing: medi_bun_t_strep"
## [1] 59245
## [1] "removing: medi_bun_t_stress"
## [1] 59237
## [1] "removing: medi_bun_t_stud"
## [1] 59175
## [1] "removing: medi_bun_t_subseq"
## [1] 58676
## [1] "removing: medi_bun_t_substitute"
## [1] 58676
## [1] "removing: medi_bun_t_sulfate"
## [1] 58676
## [1] "removing: medi_bun_t_supplies"
## [1] 58676
## [1] "removing: medi_bun_t_suppls"
## [1] 58676
## [1] "removing: medi_bun_t_support"
## [1] 58676
## [1] "removing: medi_bun_t_susceptible"
## [1] 58676
## [1] "removing: medi_bun_t_swallow"
## [1] 58675
## [1] "removing: medi_bun_t_synth"
## [1] 58674
## [1] "removing: medi_bun_t_syphilis"
## [1] 58674
## [1] "removing: medi_bun_t_syringe"
## [1] 58674
## [1] "removing: medi_bun_t_system"
## [1] 58674
## [1] "removing: medi_bun_t_tdap"
## [1] 58549
## [1] "removing: medi_bun_t_test"
## [1] 58377
## [1] "removing: medi_bun_t_testing"
## [1] 58377
## [1] "removing: medi_bun_t_testosterone"
## [1] 58377
## [1] "removing: medi_bun_t_tests"
## [1] 58377
## [1] "removing: medi_bun_t_tetanus"
## [1] 58377
## [1] "removing: medi_bun_t_thyroxine"
## [1] 58377
## [1] "removing: medi_bun_t_tobacco"
## [1] 58377
## [1] "removing: medi_bun_t_toe"
## [1] 58377
## [1] "removing: medi_bun_t_tolerance"
## [1] 58377
## [1] "removing: medi_bun_t_topical"
## [1] 58377
## [1] "removing: medi_bun_t_toxin"
## [1] 58377
## [1] "removing: medi_bun_t_trach"
## [1] 58377
## [1] "removing: medi_bun_t_tracing"
## [1] 58344
## [1] "removing: medi_bun_t_traction"
## [1] 58334
## [1] "removing: medi_bun_t_training"
## [1] 58310
## [1] "removing: medi_bun_t_transfusion"
## [1] 58310
## [1] "removing: medi_bun_t_treat"
## [1] 58297
## [1] "removing: medi_bun_t_typhoid"
## [1] 58294
## [1] "removing: medi_bun_t_ultrasound"
## [1] 58294
## [1] "removing: medi_bun_t_urinalysis"
## [1] 58294
## [1] "removing: medi_bun_t_urinary"
## [1] 58294
## [1] "removing: medi_bun_t_urine"
## [1] 58294
## [1] "removing: medi_bun_t_uterine"
## [1] 58294
## [1] "removing: medi_bun_t_valve"
## [1] 58294
## [1] "removing: medi_bun_t_vein"
## [1] 58294
## [1] "removing: medi_bun_t_venipuncture"
## [1] 58294
## [1] "removing: medi_bun_t_virus"
## [1] 58292
## [1] "removing: medi_bun_t_visit"
## [1] 58286
## [1] "removing: medi_bun_t_vitamin"
## [1] 58286
## [1] "removing: medi_bun_t_wbc"
## [1] 58286
## [1] "removing: medi_bun_t_wheelchair"
## [1] 58286
## [1] "removing: medi_bun_t_wheezing"
## [1] 58275
## [1] "removing: medi_bun_t_whirlpool"
## [1] 58273
## [1] "removing: medi_bun_t_wire"
## [1] 58273
## [1] "removing: medi_bun_t_without"
## [1] 58270
## [1] "removing: medi_bun_t_wkend"
## [1] 58270
## [1] "removing: medi_bun_t_wound"
## [1] 58262
## [1] "removing: medi_bun_t_menb"
## [1] 58242
## [1] "removing: medi_bun_t_hzv"
## [1] 58202
## [1] "removing: medi_bun_t_xgraft"
## [1] 58202
## [1] "removing: medi_bun_t_hepa"
## [1] 58177
## [1] "removing: medi_bun_t_hepb"
## [1] 58170
## [1] "removing: medi_bun_t_ppsv23"
## [1] 58160
## [1] "removing: medi_bun_t_pcv13"
## [1] 58151
## [1] "removing: medi_bun_t_var_vaccine_live_subq"
## [1] 58145
## [1] "removing: medi_bun_t_menacwy"
## [1] 58129
## [1] "removing: radi_bun_t_abdom"
## [1] 58059
## [1] "removing: radi_bun_t_adrenal"
## [1] 58059
## [1] "removing: radi_bun_t_angiography"
## [1] 58056
## [1] "removing: radi_bun_t_ankle"
## [1] 58009
## [1] "removing: radi_bun_t_aorta"
## [1] 58009
## [1] "removing: radi_bun_t_area"
## [1] 58009
## [1] "removing: radi_bun_t_arm"
## [1] 57999
## [1] "removing: radi_bun_t_artery"
## [1] 57999
## [1] "removing: radi_bun_t_bile"
## [1] 57999
## [1] "removing: radi_bun_t_bladder"
## [1] 57999
## [1] "removing: radi_bun_t_blade"
## [1] 57998
## [1] "removing: radi_bun_t_blockage"
## [1] 57998
## [1] "removing: radi_bun_t_body"
## [1] 57998
## [1] "removing: radi_bun_t_bone"
## [1] 57912
## [1] "removing: radi_bun_t_brain"
## [1] 57892
## [1] "removing: radi_bun_t_breast"
## [1] 57519
## [1] "removing: radi_bun_t_cardiac"
## [1] 57519
## [1] "removing: radi_bun_t_cast"
## [1] 57519
## [1] "removing: radi_bun_t_chest"
## [1] 57413
## [1] "removing: radi_bun_t_complex"
## [1] 57413
## [1] "removing: radi_bun_t_contrast"
## [1] 57402
## [1] "removing: radi_bun_t_cranial"
## [1] 57402
## [1] "removing: radi_bun_t_ct"
## [1] 57361
## [1] "removing: radi_bun_t_ct_scan"
## [1] 57361
## [1] "removing: radi_bun_t_delivery"
## [1] 57360
## [1] "removing: radi_bun_t_diagnostic"
## [1] 57360
## [1] "removing: radi_bun_t_dislocation"
## [1] 57360
## [1] "removing: radi_bun_t_duct"
## [1] 57360
## [1] "removing: radi_bun_t_echo"
## [1] 56522
## [1] "removing: radi_bun_t_elbow"
## [1] 56507
## [1] "removing: radi_bun_t_epidurograpy"
## [1] 56507
## [1] "removing: radi_bun_t_evaluation"
## [1] 56507
## [1] "removing: radi_bun_t_eye"
## [1] 56507
## [1] "removing: radi_bun_t_femur"
## [1] 56503
## [1] "removing: radi_bun_t_fetal"
## [1] 56501
## [1] "removing: radi_bun_t_finger"
## [1] 56469
## [1] "removing: radi_bun_t_fistula"
## [1] 56469
## [1] "removing: radi_bun_t_fluoroscopy"
## [1] 56469
## [1] "removing: radi_bun_t_fmri"
## [1] 56469
## [1] "removing: radi_bun_t_foot"
## [1] 56368
## [1] "removing: radi_bun_t_forearm"
## [1] 56368
## [1] "removing: radi_bun_t_fracture"
## [1] 56368
## [1] "removing: radi_bun_t_gadobutrol"
## [1] 56368
## [1] "removing: radi_bun_t_gastric"
## [1] 56368
## [1] "removing: radi_bun_t_general"
## [1] 56368
## [1] "removing: radi_bun_t_gential"
## [1] 56368
## [1] "removing: radi_bun_t_gestation"
## [1] 56368
## [1] "removing: radi_bun_t_gi_tract"
## [1] 56368
## [1] "removing: radi_bun_t_glands"
## [1] 56368
## [1] "removing: radi_bun_t_guide"
## [1] 56368
## [1] "removing: radi_bun_t_hand"
## [1] 56344
## [1] "removing: radi_bun_t_head"
## [1] 56300
## [1] "removing: radi_bun_t_heart"
## [1] 56300
## [1] "removing: radi_bun_t_heel"
## [1] 56300
## [1] "removing: radi_bun_t_humerus"
## [1] 56299
## [1] "removing: radi_bun_t_hyperthermia"
## [1] 56299
## [1] "removing: radi_bun_t_imag"
## [1] 56298
## [1] "removing: radi_bun_t_image"
## [1] 56298
## [1] "removing: radi_bun_t_imaging"
## [1] 56298
## [1] "removing: radi_bun_t_infant"
## [1] 56298
## [1] "removing: radi_bun_t_interpret"
## [1] 56298
## [1] "removing: radi_bun_t_jaw"
## [1] 56298
## [1] "removing: radi_bun_t_joint"
## [1] 56283
## [1] "removing: radi_bun_t_kidney"
## [1] 56283
## [1] "removing: radi_bun_t_leg"
## [1] 56282
## [1] "removing: radi_bun_t_lesion"
## [1] 56282
## [1] "removing: radi_bun_t_liver"
## [1] 56282
## [1] "removing: radi_bun_t_lower"
## [1] 56281
## [1] "removing: radi_bun_t_lumbar"
## [1] 56266
## [1] "removing: radi_bun_t_lung"
## [1] 56266
## [1] "removing: radi_bun_t_mammo"
## [1] 56117
## [1] "removing: radi_bun_t_mammogra"
## [1] 56117
## [1] "removing: radi_bun_t_management"
## [1] 56116
## [1] "removing: radi_bun_t_marrow"
## [1] 56116
## [1] "removing: radi_bun_t_mastoids"
## [1] 56116
## [1] "removing: radi_bun_t_mra"
## [1] 56116
## [1] "removing: radi_bun_t_mri"
## [1] 56091
## [1] "removing: radi_bun_t_myelography"
## [1] 56091
## [1] "removing: radi_bun_t_neck"
## [1] 56057
## [1] "removing: radi_bun_t_nuclear"
## [1] 56057
## [1] "removing: radi_bun_t_oncology"
## [1] 56057
## [1] "removing: radi_bun_t_pancreas"
## [1] 56057
## [1] "removing: radi_bun_t_pelvi"
## [1] 56006
## [1] "removing: radi_bun_t_penis"
## [1] 56006
## [1] "removing: radi_bun_t_pet"
## [1] 56006
## [1] "removing: radi_bun_t_pituitary"
## [1] 56006
## [1] "removing: radi_bun_t_plan"
## [1] 56005
## [1] "removing: radi_bun_t_plasma"
## [1] 56005
## [1] "removing: radi_bun_t_radiation"
## [1] 56005
## [1] "removing: radi_bun_t_radio"
## [1] 56005
## [1] "removing: radi_bun_t_repair"
## [1] 56005
## [1] "removing: radi_bun_t_rib"
## [1] 56003
## [1] "removing: radi_bun_t_scan"
## [1] 56003
## [1] "removing: radi_bun_t_shoulder"
## [1] 55972
## [1] "removing: radi_bun_t_sinuses"
## [1] 55972
## [1] "removing: radi_bun_t_skull"
## [1] 55971
## [1] "removing: radi_bun_t_socket"
## [1] 55971
## [1] "removing: radi_bun_t_speech"
## [1] 55971
## [1] "removing: radi_bun_t_spine"
## [1] 55922
## [1] "removing: radi_bun_t_spleen"
## [1] 55922
## [1] "removing: radi_bun_t_tear"
## [1] 55922
## [1] "removing: radi_bun_t_teeth"
## [1] 55922
## [1] "removing: radi_bun_t_therapy"
## [1] 55922
## [1] "removing: radi_bun_t_thigh"
## [1] 55922
## [1] "removing: radi_bun_t_thorac"
## [1] 55922
## [1] "removing: radi_bun_t_thorax"
## [1] 55922
## [1] "removing: radi_bun_t_throat"
## [1] 55922
## [1] "removing: radi_bun_t_thrombosis"
## [1] 55922
## [1] "removing: radi_bun_t_thyroid"
## [1] 55922
## [1] "removing: radi_bun_t_toe"
## [1] 55917
## [1] "removing: radi_bun_t_tract"
## [1] 55917
## [1] "removing: radi_bun_t_treatment"
## [1] 55917
## [1] "removing: radi_bun_t_trunk"
## [1] 55917
## [1] "removing: radi_bun_t_tumor"
## [1] 55917
## [1] "removing: radi_bun_t_upper"
## [1] 55917
## [1] "removing: radi_bun_t_urethra"
## [1] 55917
## [1] "removing: radi_bun_t_urinary"
## [1] 55917
## [1] "removing: radi_bun_t_vein"
## [1] 55917
## [1] "removing: radi_bun_t_ventilation"
## [1] 55917
## [1] "removing: radi_bun_t_veous"
## [1] 55917
## [1] "removing: radi_bun_t_vessel"
## [1] 55917
## [1] "removing: radi_bun_t_view"
## [1] 55888
## [1] "removing: radi_bun_t_wrist"
## [1] 55871
## [1] "removing: radi_bun_t_with_dye"
## [1] 55871
## [1] "removing: radi_bun_t_without_dye"
## [1] 55871
## [1] "removing: radi_bun_t_x-ray"
## [1] 55776
## [1] "removing: radi_bun_t_xray"
## [1] 55776
## [1] "removing: radi_bun_t_xtremity"
## [1] 55776
## [1] "removing: path_bun_t_acet"
## [1] 55775
## [1] "removing: path_bun_t_acid"
## [1] 55728
## [1] "removing: path_bun_t_acute"
## [1] 55724
## [1] "removing: path_bun_t_agent"
## [1] 55705
## [1] "removing: path_bun_t_alkaline"
## [1] 55698
## [1] "removing: path_bun_t_allerg"
## [1] 55692
## [1] "removing: path_bun_t_amikacin"
## [1] 55692
## [1] "removing: path_bun_t_amino"
## [1] 55672
## [1] "removing: path_bun_t_amitripytline"
## [1] 55672
## [1] "removing: path_bun_t_ammonia"
## [1] 55672
## [1] "removing: path_bun_t_amniotic"
## [1] 55672
## [1] "removing: path_bun_t_anabolic"
## [1] 55672
## [1] "removing: path_bun_t_analgesics"
## [1] 55672
## [1] "removing: path_bun_t_analysis"
## [1] 55671
## [1] "removing: path_bun_t_anti"
## [1] 55306
## [1] "removing: path_bun_t_antibod"
## [1] 55306
## [1] "removing: path_bun_t_antidepressant"
## [1] 55306
## [1] "removing: path_bun_t_antiepileptics"
## [1] 55306
## [1] "removing: path_bun_t_antipsychotic"
## [1] 55306
## [1] "removing: path_bun_t_aortic"
## [1] 55306
## [1] "removing: path_bun_t_autopsy"
## [1] 55306
## [1] "removing: path_bun_t_bact"
## [1] 55242
## [1] "removing: path_bun_t_bacteria"
## [1] 55242
## [1] "removing: path_bun_t_barbiturate"
## [1] 55242
## [1] "removing: path_bun_t_benzo"
## [1] 55242
## [1] "removing: path_bun_t_bile"
## [1] 55242
## [1] "removing: path_bun_t_bilirubin"
## [1] 55237
## [1] "removing: path_bun_t_biopsy"
## [1] 55237
## [1] "removing: path_bun_t_bleeding"
## [1] 55237
## [1] "removing: path_bun_t_blood"
## [1] 55152
## [1] "removing: path_bun_t_cadmium"
## [1] 55152
## [1] "removing: path_bun_t_calcium"
## [1] 55144
## [1] "removing: path_bun_t_cannabinoids"
## [1] 55144
## [1] "removing: path_bun_t_carbamazepine"
## [1] 55144
## [1] "removing: path_bun_t_carbon"
## [1] 55144
## [1] "removing: path_bun_t_catecholamine"
## [1] 55144
## [1] "removing: path_bun_t_chlamydia"
## [1] 55144
## [1] "removing: path_bun_t_chloride"
## [1] 55144
## [1] "removing: path_bun_t_chromosome"
## [1] 55144
## [1] "removing: path_bun_t_chromotograph"
## [1] 55143
## [1] "removing: path_bun_t_class"
## [1] 55143
## [1] "removing: path_bun_t_clot"
## [1] 55143
## [1] "removing: path_bun_t_clozapine"
## [1] 55143
## [1] "removing: path_bun_t_coagulation"
## [1] 55143
## [1] "removing: path_bun_t_cocaine"
## [1] 55143
## [1] "removing: path_bun_t_colon"
## [1] 55074
## [1] "removing: path_bun_t_comprehen"
## [1] 54666
## [1] "removing: path_bun_t_count"
## [1] 54652
## [1] "removing: path_bun_t_cpk"
## [1] 54646
## [1] "removing: path_bun_t_creatinine"
## [1] 54626
## [1] "removing: path_bun_t_cryopreservd"
## [1] 54626
## [1] "removing: path_bun_t_culture"
## [1] 54544
## [1] "removing: path_bun_t_cyanide"
## [1] 54544
## [1] "removing: path_bun_t_cyclosporine"
## [1] 54544
## [1] "removing: path_bun_t_cystines"
## [1] 54544
## [1] "removing: path_bun_t_cytopath"
## [1] 54423
## [1] "removing: path_bun_t_cytopathol"
## [1] 54423
## [1] "removing: path_bun_t_dehydroepiandrosterone"
## [1] 54410
## [1] "removing: path_bun_t_desipramine"
## [1] 54410
## [1] "removing: path_bun_t_detect"
## [1] 54403
## [1] "removing: path_bun_t_digoxin"
## [1] 54403
## [1] "removing: path_bun_t_dihydro"
## [1] 54402
## [1] "removing: path_bun_t_dilation"
## [1] 54402
## [1] "removing: path_bun_t_dioxide"
## [1] 54402
## [1] "removing: path_bun_t_dipropylacetic"
## [1] 54402
## [1] "removing: path_bun_t_disease"
## [1] 54402
## [1] "removing: path_bun_t_dna"
## [1] 54319
## [1] "removing: path_bun_t_draw"
## [1] 54319
## [1] "removing: path_bun_t_drug"
## [1] 54297
## [1] "removing: path_bun_t_dysfunction"
## [1] 54297
## [1] "removing: path_bun_t_embryo"
## [1] 54297
## [1] "removing: path_bun_t_encephalitis"
## [1] 54297
## [1] "removing: path_bun_t_endocrine"
## [1] 54297
## [1] "removing: path_bun_t_enzyme"
## [1] 54292
## [1] "removing: path_bun_t_epstein-barr"
## [1] 54292
## [1] "removing: path_bun_t_estrogen"
## [1] 54292
## [1] "removing: path_bun_t_ethanol"
## [1] 54292
## [1] "removing: path_bun_t_evaluation"
## [1] 54292
## [1] "removing: path_bun_t_factor"
## [1] 54285
## [1] "removing: path_bun_t_fecal"
## [1] 54284
## [1] "removing: path_bun_t_fentanyl"
## [1] 54284
## [1] "removing: path_bun_t_ferritin"
## [1] 54254
## [1] "removing: path_bun_t_fetal"
## [1] 54254
## [1] "removing: path_bun_t_fibrinogen"
## [1] 54254
## [1] "removing: path_bun_t_fibronlytic"
## [1] 54254
## [1] "removing: path_bun_t_flouride"
## [1] 54254
## [1] "removing: path_bun_t_fluid"
## [1] 54068
## [1] "removing: path_bun_t_free"
## [1] 53955
## [1] "removing: path_bun_t_function"
## [1] 53915
## [1] "removing: path_bun_t_galacto"
## [1] 53915
## [1] "removing: path_bun_t_gases"
## [1] 53915
## [1] "removing: path_bun_t_gastrin"
## [1] 53915
## [1] "removing: path_bun_t_gene"
## [1] 53780
## [1] "removing: path_bun_t_general"
## [1] 53780
## [1] "removing: path_bun_t_genome"
## [1] 53780
## [1] "removing: path_bun_t_genotpying"
## [1] 53780
## [1] "removing: path_bun_t_giardia"
## [1] 53779
## [1] "removing: path_bun_t_glucagon"
## [1] 53779
## [1] "removing: path_bun_t_glucose"
## [1] 53772
## [1] "removing: path_bun_t_gonorr"
## [1] 53772
## [1] "removing: path_bun_t_growth"
## [1] 53772
## [1] "removing: path_bun_t_gynecologic"
## [1] 53772
## [1] "removing: path_bun_t_haloperidol"
## [1] 53772
## [1] "removing: path_bun_t_health"
## [1] 53772
## [1] "removing: path_bun_t_hearing"
## [1] 53772
## [1] "removing: path_bun_t_heavy"
## [1] 53772
## [1] "removing: path_bun_t_heinz"
## [1] 53772
## [1] "removing: path_bun_t_hematocrit"
## [1] 53766
## [1] "removing: path_bun_t_hep"
## [1] 53761
## [1] "removing: path_bun_t_hepati"
## [1] 53761
## [1] "removing: path_bun_t_heridatary"
## [1] 53761
## [1] "removing: path_bun_t_heroin"
## [1] 53761
## [1] "removing: path_bun_t_herpes"
## [1] 53761
## [1] "removing: path_bun_t_hiv"
## [1] 53761
## [1] "removing: path_bun_t_hold"
## [1] 53761
## [1] "removing: path_bun_t_hormone"
## [1] 53676
## [1] "removing: path_bun_t_hpa"
## [1] 53676
## [1] "removing: path_bun_t_hsv"
## [1] 53676
## [1] "removing: path_bun_t_imipramine"
## [1] 53676
## [1] "removing: path_bun_t_immuno"
## [1] 53667
## [1] "removing: path_bun_t_immunoassay"
## [1] 53667
## [1] "removing: path_bun_t_immunohisto"
## [1] 53667
## [1] "removing: path_bun_t_influenza"
## [1] 53648
## [1] "removing: path_bun_t_insulin"
## [1] 53647
## [1] "removing: path_bun_t_iodine"
## [1] 53647
## [1] "removing: path_bun_t_iron"
## [1] 53646
## [1] "removing: path_bun_t_lab"
## [1] 53646
## [1] "removing: path_bun_t_lamotrigine"
## [1] 53646
## [1] "removing: path_bun_t_levetiracetam"
## [1] 53646
## [1] "removing: path_bun_t_lidocaine"
## [1] 53646
## [1] "removing: path_bun_t_lipid"
## [1] 53588
## [1] "removing: path_bun_t_lipoprotein"
## [1] 53588
## [1] "removing: path_bun_t_lithium"
## [1] 53587
## [1] "removing: path_bun_t_loss"
## [1] 53587
## [1] "removing: path_bun_t_low"
## [1] 53587
## [1] "removing: path_bun_t_lung"
## [1] 53587
## [1] "removing: path_bun_t_lyme"
## [1] 53587
## [1] "removing: path_bun_t_lympg"
## [1] 53587
## [1] "removing: path_bun_t_magnesium"
## [1] 53584
## [1] "removing: path_bun_t_malaria"
## [1] 53584
## [1] "removing: path_bun_t_mercury"
## [1] 53584
## [1] "removing: path_bun_t_metal"
## [1] 53584
## [1] "removing: path_bun_t_microbe"
## [1] 53584
## [1] "removing: path_bun_t_microscop"
## [1] 53584
## [1] "removing: path_bun_t_microscopic"
## [1] 53584
## [1] "removing: path_bun_t_microscopy"
## [1] 53584
## [1] "removing: path_bun_t_mitocondrial"
## [1] 53584
## [1] "removing: path_bun_t_mopath"
## [1] 53584
## [1] "removing: path_bun_t_mumps"
## [1] 53584
## [1] "removing: path_bun_t_mycophenolate"
## [1] 53584
## [1] "removing: path_bun_t_nicotine"
## [1] 53584
## [1] "removing: path_bun_t_nile"
## [1] 53584
## [1] "removing: path_bun_t_non-opioid"
## [1] 53584
## [1] "removing: path_bun_t_nonantibody"
## [1] 53584
## [1] "removing: path_bun_t_nucleic"
## [1] 53584
## [1] "removing: path_bun_t_obstretric"
## [1] 53584
## [1] "removing: path_bun_t_occult"
## [1] 53584
## [1] "removing: path_bun_t_onco"
## [1] 53584
## [1] "removing: path_bun_t_oocyte"
## [1] 53584
## [1] "removing: path_bun_t_opioid"
## [1] 53584
## [1] "removing: path_bun_t_ovulation"
## [1] 53584
## [1] "removing: path_bun_t_oxycodone"
## [1] 53584
## [1] "removing: path_bun_t_paper"
## [1] 53584
## [1] "removing: path_bun_t_patho"
## [1] 53493
## [1] "removing: path_bun_t_pathologist"
## [1] 53493
## [1] "removing: path_bun_t_period"
## [1] 53493
## [1] "removing: path_bun_t_phenobarbital"
## [1] 53493
## [1] "removing: path_bun_t_phenytoin"
## [1] 53493
## [1] "removing: path_bun_t_phosphatase"
## [1] 53493
## [1] "removing: path_bun_t_phosphorus"
## [1] 53493
## [1] "removing: path_bun_t_pituitary"
## [1] 53493
## [1] "removing: path_bun_t_plasminogen"
## [1] 53493
## [1] "removing: path_bun_t_poliovirus"
## [1] 53493
## [1] "removing: path_bun_t_potassium"
## [1] 53491
## [1] "removing: path_bun_t_pregabalin"
## [1] 53491
## [1] "removing: path_bun_t_pregnancy"
## [1] 53449
## [1] "removing: path_bun_t_primidone"
## [1] 53449
## [1] "removing: path_bun_t_procainamide"
## [1] 53449
## [1] "removing: path_bun_t_procedure"
## [1] 53449
## [1] "removing: path_bun_t_progesterone"
## [1] 53439
## [1] "removing: path_bun_t_prophobulinogen"
## [1] 53439
## [1] "removing: path_bun_t_prophyrins"
## [1] 53439
## [1] "removing: path_bun_t_propoxyphene"
## [1] 53439
## [1] "removing: path_bun_t_prostate"
## [1] 53439
## [1] "removing: path_bun_t_protein"
## [1] 53424
## [1] "removing: path_bun_t_psa"
## [1] 53408
## [1] "removing: path_bun_t_quantitative"
## [1] 53408
## [1] "removing: path_bun_t_quinide"
## [1] 53408
## [1] "removing: path_bun_t_quinine"
## [1] 53408
## [1] "removing: path_bun_t_reagent"
## [1] 53408
## [1] "removing: path_bun_t_renal"
## [1] 53408
## [1] "removing: path_bun_t_renin"
## [1] 53407
## [1] "removing: path_bun_t_retinal"
## [1] 53407
## [1] "removing: path_bun_t_rickettsia"
## [1] 53407
## [1] "removing: path_bun_t_rotovirus"
## [1] 53407
## [1] "removing: path_bun_t_rubella"
## [1] 53407
## [1] "removing: path_bun_t_salicylate"
## [1] 53407
## [1] "removing: path_bun_t_salmonella"
## [1] 53407
## [1] "removing: path_bun_t_scan"
## [1] 53407
## [1] "removing: path_bun_t_screen"
## [1] 53407
## [1] "removing: path_bun_t_sedative"
## [1] 53407
## [1] "removing: path_bun_t_semen"
## [1] 53407
## [1] "removing: path_bun_t_sequence"
## [1] 53407
## [1] "removing: path_bun_t_serotonin"
## [1] 53407
## [1] "removing: path_bun_t_sex"
## [1] 53407
## [1] "removing: path_bun_t_silica"
## [1] 53407
## [1] "removing: path_bun_t_sirolimus"
## [1] 53405
## [1] "removing: path_bun_t_skin"
## [1] 53405
## [1] "removing: path_bun_t_slenium"
## [1] 53405
## [1] "removing: path_bun_t_smear"
## [1] 53399
## [1] "removing: path_bun_t_specimen"
## [1] 53399
## [1] "removing: path_bun_t_sperm"
## [1] 53399
## [1] "removing: path_bun_t_steroid"
## [1] 53399
## [1] "removing: path_bun_t_stimulation"
## [1] 53399
## [1] "removing: path_bun_t_strep"
## [1] 53326
## [1] "removing: path_bun_t_syphilis"
## [1] 53325
## [1] "removing: path_bun_t_syringe"
## [1] 53325
## [1] "removing: path_bun_t_tacrolims"
## [1] 53325
## [1] "removing: path_bun_t_testosterone"
## [1] 53318
## [1] "removing: path_bun_t_thawing"
## [1] 53318
## [1] "removing: path_bun_t_theophylline"
## [1] 53318
## [1] "removing: path_bun_t_thyroid"
## [1] 53318
## [1] "removing: path_bun_t_time"
## [1] 53289
## [1] "removing: path_bun_t_tissue"
## [1] 53285
## [1] "removing: path_bun_t_tobramycin"
## [1] 53285
## [1] "removing: path_bun_t_tolerance"
## [1] 53285
## [1] "removing: path_bun_t_total"
## [1] 53255
## [1] "removing: path_bun_t_toxoplasma"
## [1] 53255
## [1] "removing: path_bun_t_tpiramate"
## [1] 53255
## [1] "removing: path_bun_t_transfusion"
## [1] 53255
## [1] "removing: path_bun_t_tumor"
## [1] 53255
## [1] "removing: path_bun_t_typing"
## [1] 53255
## [1] "removing: path_bun_t_urinalysis"
## [1] 53085
## [1] "removing: path_bun_t_urine"
## [1] 53085
## [1] "removing: path_bun_t_vancomycin"
## [1] 53085
## [1] "removing: path_bun_t_vein"
## [1] 53085
## [1] "removing: path_bun_t_venipuncture"
## [1] 53085
## [1] "removing: path_bun_t_virus"
## [1] 53073
## [1] "removing: path_bun_t_vitamin"
## [1] 53062
## [1] "removing: path_bun_t_west"
## [1] 53062
## [1] "removing: path_bun_t_with_scope"
## [1] 53062
## [1] "removing: path_bun_t_without_scope"
## [1] 53062
## [1] "removing: path_bun_t_zonisamide"
## [1] 53062
## [1] "removing: anes_bun_t_abdom"
## [1] 53062
## [1] "removing: anes_bun_t_add - on"
## [1] 53062
## [1] "removing: anes_bun_t_adrenal"
## [1] 53062
## [1] "removing: anes_bun_t_amputation"
## [1] 53062
## [1] "removing: anes_bun_t_analg"
## [1] 53062
## [1] "removing: anes_bun_t_anes"
## [1] 53062
## [1] "removing: anes_bun_t_anesth"
## [1] 53062
## [1] "removing: anes_bun_t_area"
## [1] 53062
## [1] "removing: anes_bun_t_arest"
## [1] 53062
## [1] "removing: anes_bun_t_arteriography"
## [1] 53062
## [1] "removing: anes_bun_t_artery"
## [1] 53062
## [1] "removing: anes_bun_t_biopsy"
## [1] 53062
## [1] "removing: anes_bun_t_bladder"
## [1] 53062
## [1] "removing: anes_bun_t_blood"
## [1] 53062
## [1] "removing: anes_bun_t_bone"
## [1] 53062
## [1] "removing: anes_bun_t_breast"
## [1] 53062
## [1] "removing: anes_bun_t_bronchi"
## [1] 53062
## [1] "removing: anes_bun_t_burn"
## [1] 53062
## [1] "removing: anes_bun_t_casting"
## [1] 53062
## [1] "removing: anes_bun_t_cervix"
## [1] 53062
## [1] "removing: anes_bun_t_chemonucleolysis"
## [1] 53062
## [1] "removing: anes_bun_t_chest"
## [1] 53062
## [1] "removing: anes_bun_t_cleft"
## [1] 53062
## [1] "removing: anes_bun_t_cord"
## [1] 53062
## [1] "removing: anes_bun_t_corneal"
## [1] 53062
## [1] "removing: anes_bun_t_cs"
## [1] 53062
## [1] "removing: anes_bun_t_debride"
## [1] 53062
## [1] "removing: anes_bun_t_deliver"
## [1] 53062
## [1] "removing: anes_bun_t_drainage"
## [1] 53062
## [1] "removing: anes_bun_t_duct"
## [1] 53062
## [1] "removing: anes_bun_t_ear"
## [1] 53062
## [1] "removing: anes_bun_t_elbow"
## [1] 53062
## [1] "removing: anes_bun_t_electroshock"
## [1] 53062
## [1] "removing: anes_bun_t_embolectomy"
## [1] 53062
## [1] "removing: anes_bun_t_endoscopy"
## [1] 53062
## [1] "removing: anes_bun_t_epidural"
## [1] 53062
## [1] "removing: anes_bun_t_esophag"
## [1] 53062
## [1] "removing: anes_bun_t_eyelid"
## [1] 53062
## [1] "removing: anes_bun_t_facial"
## [1] 53062
## [1] "removing: anes_bun_t_fat"
## [1] 53062
## [1] "removing: anes_bun_t_femoral"
## [1] 53062
## [1] "removing: anes_bun_t_fentanyl"
## [1] 53062
## [1] "removing: anes_bun_t_genitalia"
## [1] 53062
## [1] "removing: anes_bun_t_glands"
## [1] 53062
## [1] "removing: anes_bun_t_head"
## [1] 53062
## [1] "removing: anes_bun_t_hernia"
## [1] 53062
## [1] "removing: anes_bun_t_humer"
## [1] 53062
## [1] "removing: anes_bun_t_hydromorphone"
## [1] 53062
## [1] "removing: anes_bun_t_hysterectomy"
## [1] 53062
## [1] "removing: anes_bun_t_image"
## [1] 53062
## [1] "removing: anes_bun_t_insertion"
## [1] 53062
## [1] "removing: anes_bun_t_intracranial"
## [1] 53062
## [1] "removing: anes_bun_t_iredectomy"
## [1] 53062
## [1] "removing: anes_bun_t_joint"
## [1] 53062
## [1] "removing: anes_bun_t_ketorolac"
## [1] 53062
## [1] "removing: anes_bun_t_kidney"
## [1] 53062
## [1] "removing: anes_bun_t_knee"
## [1] 53062
## [1] "removing: anes_bun_t_larynx"
## [1] 53062
## [1] "removing: anes_bun_t_layer"
## [1] 53062
## [1] "removing: anes_bun_t_leg"
## [1] 53062
## [1] "removing: anes_bun_t_lip"
## [1] 53062
## [1] "removing: anes_bun_t_liver"
## [1] 53062
## [1] "removing: anes_bun_t_local"
## [1] 53062
## [1] "removing: anes_bun_t_lower"
## [1] 53062
## [1] "removing: anes_bun_t_lumbar"
## [1] 53062
## [1] "removing: anes_bun_t_lung"
## [1] 53062
## [1] "removing: anes_bun_t_major"
## [1] 53062
## [1] "removing: anes_bun_t_manipulation"
## [1] 53062
## [1] "removing: anes_bun_t_midazolam"
## [1] 53062
## [1] "removing: anes_bun_t_mod_sed"
## [1] 53062
## [1] "removing: anes_bun_t_neck"
## [1] 53062
## [1] "removing: anes_bun_t_nerve"
## [1] 53062
## [1] "removing: anes_bun_t_nose"
## [1] 53062
## [1] "removing: anes_bun_t_open"
## [1] 53062
## [1] "removing: anes_bun_t_organ"
## [1] 53062
## [1] "removing: anes_bun_t_pacemaker"
## [1] 53062
## [1] "removing: anes_bun_t_palate"
## [1] 53062
## [1] "removing: anes_bun_t_pelvic"
## [1] 53062
## [1] "removing: anes_bun_t_pelvis"
## [1] 53062
## [1] "removing: anes_bun_t_penis"
## [1] 53062
## [1] "removing: anes_bun_t_percutaneous"
## [1] 53062
## [1] "removing: anes_bun_t_plastic"
## [1] 53062
## [1] "removing: anes_bun_t_propofol"
## [1] 53062
## [1] "removing: anes_bun_t_prostate"
## [1] 53062
## [1] "removing: anes_bun_t_pump"
## [1] 53062
## [1] "removing: anes_bun_t_puncture"
## [1] 53062
## [1] "removing: anes_bun_t_radical"
## [1] 53062
## [1] "removing: anes_bun_t_release"
## [1] 53062
## [1] "removing: anes_bun_t_removal"
## [1] 53062
## [1] "removing: anes_bun_t_repair"
## [1] 53062
## [1] "removing: anes_bun_t_replace"
## [1] 53062
## [1] "removing: anes_bun_t_rib"
## [1] 53062
## [1] "removing: anes_bun_t_sedation"
## [1] 53062
## [1] "removing: anes_bun_t_shoulder"
## [1] 53062
## [1] "removing: anes_bun_t_sinus"
## [1] 53062
## [1] "removing: anes_bun_t_skull"
## [1] 53062
## [1] "removing: anes_bun_t_sperm"
## [1] 53062
## [1] "removing: anes_bun_t_spine"
## [1] 53062
## [1] "removing: anes_bun_t_spit"
## [1] 53062
## [1] "removing: anes_bun_t_sternal"
## [1] 53062
## [1] "removing: anes_bun_t_stone"
## [1] 53062
## [1] "removing: anes_bun_t_surg"
## [1] 53062
## [1] "removing: anes_bun_t_tendon"
## [1] 53062
## [1] "removing: anes_bun_t_testis"
## [1] 53062
## [1] "removing: anes_bun_t_thigh"
## [1] 53062
## [1] "removing: anes_bun_t_thyriod"
## [1] 53062
## [1] "removing: anes_bun_t_trachea"
## [1] 53062
## [1] "removing: anes_bun_t_transplant"
## [1] 53062
## [1] "removing: anes_bun_t_tromethamine"
## [1] 53062
## [1] "removing: anes_bun_t_tubal"
## [1] 53062
## [1] "removing: anes_bun_t_tympanotomy"
## [1] 53062
## [1] "removing: anes_bun_t_upper"
## [1] 53062
## [1] "removing: anes_bun_t_ureter"
## [1] 53062
## [1] "removing: anes_bun_t_urethra"
## [1] 53062
## [1] "removing: anes_bun_t_vag"
## [1] 53062
## [1] "removing: anes_bun_t_vein"
## [1] 53062
## [1] "removing: anes_bun_t_ventilation"
## [1] 53062
## [1] "removing: anes_bun_t_vesectomy"
## [1] 53062
## [1] "removing: anes_bun_t_vessel"
## [1] 53062
## [1] "removing: anes_bun_t_viteroretinal"
## [1] 53062
## [1] "removing: anes_bun_t_wall"
## [1] 53062
## [1] "removing: anes_bun_t_wrist"
## [1] 53062
## [1] "removing: faci_bun_t_advanced"
## [1] 53062
## [1] "removing: faci_bun_t_analysis"
## [1] 53062
## [1] "removing: faci_bun_t_annual"
## [1] 53062
## [1] "removing: faci_bun_t_assessmnt"
## [1] 53062
## [1] "removing: faci_bun_t_audit"
## [1] 53062
## [1] "removing: faci_bun_t_basic"
## [1] 53062
## [1] "removing: faci_bun_t_behav"
## [1] 53060
## [1] "removing: faci_bun_t_bus"
## [1] 53060
## [1] "removing: faci_bun_t_care"
## [1] 52960
## [1] "removing: faci_bun_t_chng"
## [1] 52960
## [1] "removing: faci_bun_t_computer"
## [1] 52960
## [1] "removing: faci_bun_t_conf"
## [1] 52960
## [1] "removing: faci_bun_t_consultation"
## [1] 52957
## [1] "removing: faci_bun_t_counseling"
## [1] 52953
## [1] "removing: faci_bun_t_critical"
## [1] 52953
## [1] "removing: faci_bun_t_data"
## [1] 52953
## [1] "removing: faci_bun_t_dept"
## [1] 52875
## [1] "removing: faci_bun_t_direct"
## [1] 52875
## [1] "removing: faci_bun_t_disability"
## [1] 52874
## [1] "removing: faci_bun_t_discharge"
## [1] 52874
## [1] "removing: faci_bun_t_dommicl"
## [1] 52874
## [1] "removing: faci_bun_t_emergency"
## [1] 52874
## [1] "removing: faci_bun_t_exam"
## [1] 52874
## [1] "removing: faci_bun_t_fac"
## [1] 52874
## [1] "removing: faci_bun_t_facility"
## [1] 52874
## [1] "removing: faci_bun_t_follow-up"
## [1] 52873
## [1] "removing: faci_bun_t_handling"
## [1] 52873
## [1] "removing: faci_bun_t_home"
## [1] 52866
## [1] "removing: faci_bun_t_hospice"
## [1] 52866
## [1] "removing: faci_bun_t_hospital"
## [1] 52866
## [1] "removing: faci_bun_t_initial"
## [1] 52866
## [1] "removing: faci_bun_t_inpatient"
## [1] 52866
## [1] "removing: faci_bun_t_interfacility"
## [1] 52866
## [1] "removing: faci_bun_t_interpof"
## [1] 52866
## [1] "removing: faci_bun_t_lab"
## [1] 52866
## [1] "removing: faci_bun_t_life"
## [1] 52866
## [1] "removing: faci_bun_t_nonemergency"
## [1] 52866
## [1] "removing: faci_bun_t_noner"
## [1] 52866
## [1] "removing: faci_bun_t_nursing"
## [1] 52866
## [1] "removing: faci_bun_t_observation"
## [1] 52866
## [1] "removing: faci_bun_t_on_call"
## [1] 52866
## [1] "removing: faci_bun_t_online"
## [1] 52866
## [1] "removing: faci_bun_t_phlebotomy"
## [1] 52859
## [1] "removing: faci_bun_t_phone"
## [1] 52856
## [1] "removing: faci_bun_t_physician"
## [1] 52856
## [1] "removing: faci_bun_t_postop"
## [1] 52856
## [1] "removing: faci_bun_t_preventine"
## [1] 52856
## [1] "removing: faci_bun_t_prolong"
## [1] 52846
## [1] "removing: faci_bun_t_service"
## [1] 52823
## [1] "removing: faci_bun_t_smoking"
## [1] 52823
## [1] "removing: faci_bun_t_specimen"
## [1] 52823
## [1] "removing: faci_bun_t_standby"
## [1] 52823
## [1] "removing: faci_bun_t_subsequent"
## [1] 52823
## [1] "removing: faci_bun_t_support"
## [1] 52823
## [1] "removing: faci_bun_t_taxi"
## [1] 52823
## [1] "removing: faci_bun_t_team"
## [1] 52823
## [1] "removing: faci_bun_t_transort"
## [1] 52823
## [1] "removing: faci_bun_t_travel"
## [1] 52823
## [1] "removing: faci_bun_t_van"
## [1] 52823eye_clean %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_clean %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 24 x 2
## name correlation
## <chr> <dbl>
## 1 faci_bun_t_visit 0.420
## 2 faci_bun_t_pat 0.385
## 3 faci_bun_t_office 0.384
## 4 faci_bun_t_est 0.351
## 5 medi_bun_t_establish 0.220
## 6 medi_bun_t_with 0.214
## 7 medi_bun_t_visual 0.208
## 8 medi_bun_t_psytx 0.167
## 9 medi_bun_t_therapeutic 0.124
## 10 medi_bun_t_exercise 0.102
## # ... with 14 more rowseye_clean %>% get_tag_density_information("medi_bun_t_psytx") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_psytx"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 9.81## $dist_plots
##
## $stat_tables
eye_clean <- eye_clean[medi_bun_t_psytx==F]eye_clean %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_clean %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 23 x 2
## name correlation
## <chr> <dbl>
## 1 faci_bun_t_visit 0.423
## 2 faci_bun_t_pat 0.387
## 3 faci_bun_t_office 0.386
## 4 faci_bun_t_est 0.353
## 5 medi_bun_t_with 0.222
## 6 medi_bun_t_establish 0.222
## 7 medi_bun_t_visual 0.215
## 8 medi_bun_t_therapeutic 0.123
## 9 medi_bun_t_exercise 0.102
## 10 path_bun_t_test 0.0681
## # ... with 13 more rowseye_clean %>% get_tag_density_information("medi_bun_t_therapeutic") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_therapeutic"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 22.4## $dist_plots
##
## $stat_tables
eye_clean <- eye_clean[medi_bun_t_therapeutic==F]eye_clean %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_clean %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 22 x 2
## name correlation
## <chr> <dbl>
## 1 faci_bun_t_visit 0.427
## 2 faci_bun_t_pat 0.390
## 3 faci_bun_t_office 0.389
## 4 faci_bun_t_est 0.355
## 5 medi_bun_t_with 0.226
## 6 medi_bun_t_establish 0.224
## 7 medi_bun_t_visual 0.219
## 8 path_bun_t_test 0.0695
## 9 path_bun_t_hemoglobin 0.0683
## 10 medi_bun_t_evaluat 0.0647
## # ... with 12 more rowseye_clean %>% get_tag_density_information("path_bun_t_hemoglobin") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ path_bun_t_hemoglobin"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 14.5## $dist_plots
##
## $stat_tables
eye_clean <- eye_clean[path_bun_t_hemoglobin==F]eye_clean %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_clean %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 21 x 2
## name correlation
## <chr> <dbl>
## 1 faci_bun_t_visit 0.422
## 2 faci_bun_t_pat 0.386
## 3 faci_bun_t_office 0.385
## 4 faci_bun_t_est 0.350
## 5 medi_bun_t_with 0.226
## 6 medi_bun_t_establish 0.224
## 7 medi_bun_t_visual 0.220
## 8 medi_bun_t_evaluat 0.0656
## 9 radi_bun_t_exam 0.0392
## 10 path_bun_t_complete 0.0238
## # ... with 11 more rowseye_clean %>% get_tag_density_information("medi_bun_t_visual") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_visual"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 10.5## $dist_plots
##
## $stat_tables
eye_clean <- eye_clean[medi_bun_t_visual==F]eye_clean %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_clean %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 20 x 2
## name correlation
## <chr> <dbl>
## 1 faci_bun_t_visit 0.454
## 2 faci_bun_t_pat 0.414
## 3 faci_bun_t_office 0.412
## 4 faci_bun_t_est 0.377
## 5 medi_bun_t_establish 0.241
## 6 medi_bun_t_with 0.197
## 7 medi_bun_t_evaluat 0.064
## 8 radi_bun_t_exam 0.0431
## 9 path_bun_t_test 0.0269
## 10 path_bun_t_complete 0.0263
## 11 medi_bun_t_exercise 0.0252
## 12 duration_max 0.0206
## 13 duration_mean 0.0171
## 14 path_bun_t_assay 0.0129
## 15 medi_bun_t_immun 0.012
## 16 medi_bun_t_immunization 0.012
## 17 path_bun_t_metabolic 0.0084
## 18 path_bun_t_panel 0.0084
## 19 medi_bun_t_vacc 0.0062
## 20 duration_min 0.0044eye_clean %>% get_tag_density_information("medi_bun_t_with") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_with"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 7.83## $dist_plots
##
## $stat_tables
eye_clean <- eye_clean[medi_bun_t_with==F]eye_clean %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_clean %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 19 x 2
## name correlation
## <chr> <dbl>
## 1 faci_bun_t_visit 0.475
## 2 faci_bun_t_pat 0.430
## 3 faci_bun_t_office 0.428
## 4 faci_bun_t_est 0.399
## 5 medi_bun_t_establish 0.234
## 6 medi_bun_t_evaluat 0.0733
## 7 radi_bun_t_exam 0.0466
## 8 medi_bun_t_exercise 0.0273
## 9 path_bun_t_test 0.026
## 10 path_bun_t_complete 0.0248
## 11 duration_max 0.0173
## 12 duration_mean 0.0166
## 13 path_bun_t_assay 0.0146
## 14 medi_bun_t_immun 0.0134
## 15 medi_bun_t_immunization 0.0134
## 16 path_bun_t_metabolic 0.00930
## 17 path_bun_t_panel 0.00930
## 18 medi_bun_t_vacc 0.007
## 19 duration_min 0.005eye_clean %>% get_tag_density_information("faci_bun_t_visit") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ faci_bun_t_visit"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 8.56## $dist_plots
##
## $stat_tables
eye_w_visit <- eye_clean[faci_bun_t_visit==T]
eye_n_visit <- eye_clean[faci_bun_t_visit==F]eye_w_visit
eye_w_visit %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_w_visit %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 17 x 2
## name correlation
## <chr> <dbl>
## 1 medi_bun_t_establish 0.207
## 2 faci_bun_t_est 0.202
## 3 faci_bun_t_office 0.138
## 4 faci_bun_t_pat 0.138
## 5 medi_bun_t_evaluat 0.0862
## 6 radi_bun_t_exam 0.063
## 7 medi_bun_t_exercise 0.0488
## 8 medi_bun_t_immun 0.0185
## 9 medi_bun_t_immunization 0.0185
## 10 path_bun_t_assay 0.0173
## 11 path_bun_t_complete 0.0133
## 12 medi_bun_t_vacc 0.0107
## 13 path_bun_t_test 0.0082
## 14 duration_mean 0.0056
## 15 duration_max 0.0056
## 16 path_bun_t_metabolic 0.0014
## 17 path_bun_t_panel 0.0014eye_w_visit <- eye_n_visit[,`:=`(
medi_bun_t_estab = medi_bun_descr %>% stri_detect_regex("estab")
)]eye_w_visit %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_w_visit %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 16 x 2
## name correlation
## <chr> <dbl>
## 1 medi_bun_t_establish 0.266
## 2 medi_bun_t_estab 0.140
## 3 medi_bun_t_evaluat 0.105
## 4 faci_bun_t_est 0.055
## 5 faci_bun_t_pat 0.055
## 6 radi_bun_t_exam 0.032
## 7 duration_max 0.0251
## 8 duration_mean 0.0243
## 9 medi_bun_t_exercise 0.0232
## 10 path_bun_t_complete 0.0117
## 11 path_bun_t_assay 0.0105
## 12 medi_bun_t_immun 0.0095
## 13 medi_bun_t_immunization 0.0095
## 14 duration_min 0.0078
## 15 path_bun_t_test 0.0053
## 16 medi_bun_t_vacc 0.003eye_w_visit %>% get_tag_density_information("medi_bun_t_establish") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_establish"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 5.13## $dist_plots
##
## $stat_tables
eye_w_visit <- eye_w_visit[medi_bun_t_establish==F]eye_w_visit %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_w_visit %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 15 x 2
## name correlation
## <chr> <dbl>
## 1 medi_bun_t_evaluat 0.125
## 2 medi_bun_t_estab 0.0479
## 3 faci_bun_t_est 0.0458
## 4 faci_bun_t_pat 0.0458
## 5 radi_bun_t_exam 0.0304
## 6 medi_bun_t_exercise 0.026
## 7 duration_max 0.0232
## 8 duration_mean 0.0217
## 9 path_bun_t_complete 0.0177
## 10 path_bun_t_assay 0.0097
## 11 medi_bun_t_immun 0.0095
## 12 medi_bun_t_immunization 0.0095
## 13 duration_min 0.0081
## 14 path_bun_t_test 0.0047
## 15 medi_bun_t_vacc 0.00240eye_w_visit %>% get_tag_density_information("medi_bun_t_evaluat") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_evaluat"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 7.02## $dist_plots
##
## $stat_tables
eye_w_visit <- eye_w_visit[medi_bun_t_evaluat==F]eye_w_visit <- eye_w_visit[,`:=`(
surg_sp_name_clean = surg_sp_npi %>% map_chr(get_npi_standard_name),
surg_bp_name_clean = surg_bp_npi %>% map_chr(get_npi_standard_name),
medi_sp_name_clean = medi_sp_npi %>% map_chr(get_npi_standard_name),
medi_bp_name_clean = medi_bp_npi %>% map_chr(get_npi_standard_name),
radi_sp_name_clean = radi_sp_npi %>% map_chr(get_npi_standard_name),
radi_bp_name_clean = radi_bp_npi %>% map_chr(get_npi_standard_name),
path_sp_name_clean = path_sp_npi %>% map_chr(get_npi_standard_name),
path_bp_name_clean = path_bp_npi %>% map_chr(get_npi_standard_name),
anes_sp_name_clean = anes_sp_npi %>% map_chr(get_npi_standard_name),
anes_bp_name_clean = anes_bp_npi %>% map_chr(get_npi_standard_name),
faci_sp_name_clean = faci_sp_npi %>% map_chr(get_npi_standard_name),
faci_bp_name_clean = faci_bp_npi %>% map_chr(get_npi_standard_name)
)]eye_w_visit_btbv5 <- eye_w_visit %>% btbv5_medi(
osa_group_p=NA,
osa_class_p = "Ophthalmology",
osa_specialization_p = NA
) %>%
.[,`:=`(procedure_type=29,
procedure_modifier="Eye Exam + Visit",
ingest_date =Sys.Date())]## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "ROGER PETTIT HARRIE" "KIRK EDWARD WINWARD"
## [1] "multiple meet class req"
## [1] "WILLIAM RICHTER BARLOW" "RACHAEL SUE JACOBY"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "CHRISTOPHER RICKS" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "CLARON DOUGLAS ALLDREDGE" "ROGER PETTIT HARRIE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "JAMES G THEURER" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "AMY LIN" "AUSTIN NAKATSUKA"
## [1] "multiple meet class req"
## [1] "ROGER PETTIT HARRIE" "GILBERT C WONG"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "ROGER PETTIT HARRIE" "JAMES G HOWARD"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "AKBAR SHAKOOR" "RACHEL GARTELL SIMPSON"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "MARK G BALLIF" "CLARON DOUGLAS ALLDREDGE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "ZACHARY JAMES ZAVODNI" "GREGORY SHERMAN BRINTON"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "JOHN B FASSIO" "KIRK EDWARD WINWARD"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "DAVID SNOW SLADE" "JASON W HENDRIX"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "MATHESON ADAMS HARRIS" "DAVID WAYNE FABER"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "ALBERT THOMAS VITALE" "NORMAN A. ZABRISKIE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "DOUGLAS STEWART MEHR" "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "KEVIN H CHARLTON" "DAVID WAYNE FABER"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "BENJAMIN T DASTRUP" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "JAMES G THEURER" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "E LEIGH WILKINSON" "DAVID WAYNE FABER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "JOHN B FASSIO" "ROBERT CHOI KWUN"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "JAMES G THEURER" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "BENJAMIN T DASTRUP" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "ROGER PETTIT HARRIE" "OREN CLARON ALLDREDGE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "KEVIN H CHARLTON" "MITCHELL J GOFF"
## [1] "multiple meet class req"
## [1] "DAVID CHRISTOPHER DRIES" "KIM Y. TAYLOR"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "CLARON DOUGLAS ALLDREDGE" "OREN CLARON ALLDREDGE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "MATHESON ADAMS HARRIS" "DAVID WAYNE FABER"eye_w_visit_btbv5$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 19.13 148.69 165.28 190.09 192.33 994.96spine_q1 <- eye_w_visit_btbv5$tp_med_med %>% quantile(.25)
spine_q3 <- eye_w_visit_btbv5$tp_med_med %>% quantile(.75)
spine_iqr <- eye_w_visit_btbv5$tp_med_med %>% IQR()# eye_w_visit_btbv5_final <- eye_w_visit_btbv5[tp_med_med >spine_q1 -1.5*spine_iqr & tp_med_med < spine_q3 + 1.5*spine_iqr ]
eye_w_visit_btbv5_final <- eye_w_visit_btbv5[tp_cnt_cnt >10]eye_w_visit_btbv5$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 19.13 148.69 165.28 190.09 192.33 994.96eye_w_visit_btbv5_final$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 35.0 152.2 162.3 169.8 183.8 619.6bq_table_upload(x=procedure_dev_table, values= eye_w_visit_btbv5_final, create_disposition='CREATE_IF_NEEDED', write_disposition='WRITE_APPEND')eye_n_visit
eye_n_visit %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_n_visit %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 16 x 2
## name correlation
## <chr> <dbl>
## 1 medi_bun_t_establish 0.266
## 2 medi_bun_t_estab 0.140
## 3 medi_bun_t_evaluat 0.105
## 4 faci_bun_t_est 0.055
## 5 faci_bun_t_pat 0.055
## 6 radi_bun_t_exam 0.032
## 7 duration_max 0.0251
## 8 duration_mean 0.0243
## 9 medi_bun_t_exercise 0.0232
## 10 path_bun_t_complete 0.0117
## 11 path_bun_t_assay 0.0105
## 12 medi_bun_t_immun 0.0095
## 13 medi_bun_t_immunization 0.0095
## 14 duration_min 0.0078
## 15 path_bun_t_test 0.0053
## 16 medi_bun_t_vacc 0.003eye_n_visit <- eye_n_visit[,`:=`(
medi_bun_t_estab = medi_bun_descr %>% stri_detect_regex("estab")
)]eye_n_visit %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_n_visit %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 16 x 2
## name correlation
## <chr> <dbl>
## 1 medi_bun_t_establish 0.266
## 2 medi_bun_t_estab 0.140
## 3 medi_bun_t_evaluat 0.105
## 4 faci_bun_t_est 0.055
## 5 faci_bun_t_pat 0.055
## 6 radi_bun_t_exam 0.032
## 7 duration_max 0.0251
## 8 duration_mean 0.0243
## 9 medi_bun_t_exercise 0.0232
## 10 path_bun_t_complete 0.0117
## 11 path_bun_t_assay 0.0105
## 12 medi_bun_t_immun 0.0095
## 13 medi_bun_t_immunization 0.0095
## 14 duration_min 0.0078
## 15 path_bun_t_test 0.0053
## 16 medi_bun_t_vacc 0.003eye_n_visit %>% get_tag_density_information("medi_bun_t_estab") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_estab"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 6.16## $dist_plots
##
## $stat_tables
eye_n_visit_w_estab <- eye_n_visit[medi_bun_t_estab==T]
eye_n_visit_n_estab <- eye_n_visit[medi_bun_t_estab==F]eye_n_visit_w_estab
eye_n_visit_w_estab %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_n_visit_w_estab %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 15 x 2
## name correlation
## <chr> <dbl>
## 1 medi_bun_t_establish 0.283
## 2 medi_bun_t_evaluat 0.0987
## 3 faci_bun_t_est 0.0446
## 4 faci_bun_t_pat 0.0446
## 5 radi_bun_t_exam 0.0295
## 6 duration_mean 0.0257
## 7 duration_min 0.0256
## 8 duration_max 0.0226
## 9 path_bun_t_complete 0.0183
## 10 medi_bun_t_exercise 0.0147
## 11 medi_bun_t_immun 0.0132
## 12 medi_bun_t_immunization 0.0132
## 13 path_bun_t_assay 0.0088
## 14 path_bun_t_test 0.0047
## 15 medi_bun_t_vacc 0.0046eye_n_visit_w_estab %>% get_tag_density_information("medi_bun_t_evaluat") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_evaluat"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 9.16## $dist_plots
##
## $stat_tables
eye_n_visit_w_estab <- eye_n_visit_w_estab[medi_bun_t_evaluat==F]eye_n_visit_w_estab %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_n_visit_w_estab %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 14 x 2
## name correlation
## <chr> <dbl>
## 1 medi_bun_t_establish 0.290
## 2 radi_bun_t_exam 0.0303
## 3 duration_min 0.0262
## 4 duration_mean 0.0258
## 5 duration_max 0.0234
## 6 path_bun_t_complete 0.0185
## 7 faci_bun_t_est 0.0172
## 8 faci_bun_t_pat 0.0172
## 9 medi_bun_t_exercise 0.015
## 10 path_bun_t_assay 0.0092
## 11 medi_bun_t_immun 0.0081
## 12 medi_bun_t_immunization 0.0081
## 13 medi_bun_t_vacc 0.0049
## 14 path_bun_t_test 0.0045eye_n_visit_w_estab %>% get_tag_density_information("medi_bun_t_establish") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_establish"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 4.8## $dist_plots
##
## $stat_tables
eye_n_visit_w_estab <- eye_n_visit_w_estab[medi_bun_t_establish==F]eye_n_visit_w_estab %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_n_visit_w_estab %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 13 x 2
## name correlation
## <chr> <dbl>
## 1 duration_min 0.0322
## 2 path_bun_t_complete 0.0297
## 3 duration_mean 0.025
## 4 radi_bun_t_exam 0.023
## 5 duration_max 0.0185
## 6 medi_bun_t_exercise 0.0178
## 7 faci_bun_t_est 0.0136
## 8 faci_bun_t_pat 0.0136
## 9 path_bun_t_test 0.0089
## 10 path_bun_t_assay 0.0083
## 11 medi_bun_t_immun 0.0071
## 12 medi_bun_t_immunization 0.0071
## 13 medi_bun_t_vacc 0.004eye_n_visit_w_estab <- eye_n_visit_w_estab[,`:=`(
surg_sp_name_clean = surg_sp_npi %>% map_chr(get_npi_standard_name),
surg_bp_name_clean = surg_bp_npi %>% map_chr(get_npi_standard_name),
medi_sp_name_clean = medi_sp_npi %>% map_chr(get_npi_standard_name),
medi_bp_name_clean = medi_bp_npi %>% map_chr(get_npi_standard_name),
radi_sp_name_clean = radi_sp_npi %>% map_chr(get_npi_standard_name),
radi_bp_name_clean = radi_bp_npi %>% map_chr(get_npi_standard_name),
path_sp_name_clean = path_sp_npi %>% map_chr(get_npi_standard_name),
path_bp_name_clean = path_bp_npi %>% map_chr(get_npi_standard_name),
anes_sp_name_clean = anes_sp_npi %>% map_chr(get_npi_standard_name),
anes_bp_name_clean = anes_bp_npi %>% map_chr(get_npi_standard_name),
faci_sp_name_clean = faci_sp_npi %>% map_chr(get_npi_standard_name),
faci_bp_name_clean = faci_bp_npi %>% map_chr(get_npi_standard_name)
)]Remove frames purchases or lens stuff.
eye_n_visit_w_estab <- eye_n_visit_w_estab[!(proc_code_str_sorted %>% stri_detect_regex("V")) ]eye_n_visit_w_estab_btbv5 <- eye_n_visit_w_estab %>% btbv5_medi(
osa_group_p=NA,
osa_class_p = "Ophthalmology",
osa_specialization_p = NA
) %>%
.[,`:=`(procedure_type=29,
procedure_modifier="Eye Exam Established Patient",
ingest_date =Sys.Date())]## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WILLIAM RICHTER BARLOW" "RACHAEL SUE JACOBY"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "CHRISTOPHER RICKS" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "CLARON DOUGLAS ALLDREDGE" "ROGER PETTIT HARRIE"
## [1] "multiple meet class req"
## [1] "JAMES G THEURER" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "AKBAR SHAKOOR" "RACHEL GARTELL SIMPSON"
## [1] "multiple meet class req"
## [1] "MARK G BALLIF" "CLARON DOUGLAS ALLDREDGE"
## [1] "multiple meet class req"
## [1] "JOHN B FASSIO" "KIRK EDWARD WINWARD"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "DAVID SNOW SLADE" "JASON W HENDRIX"
## [1] "multiple meet class req"
## [1] "MATHESON ADAMS HARRIS" "DAVID WAYNE FABER"
## [1] "multiple meet class req"
## [1] "ALBERT THOMAS VITALE" "NORMAN A. ZABRISKIE"
## [1] "multiple meet class req"
## [1] "DOUGLAS STEWART MEHR" "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "BENJAMIN T DASTRUP" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "JAMES G THEURER" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "E LEIGH WILKINSON" "DAVID WAYNE FABER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "JOHN B FASSIO" "ROBERT CHOI KWUN"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "JAMES G THEURER" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "BENJAMIN T DASTRUP" "JONATHAN B GUNTHER"
## [1] "multiple meet class req"
## [1] "ROGER PETTIT HARRIE" "OREN CLARON ALLDREDGE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "DAVID CHRISTOPHER DRIES" "KIM Y. TAYLOR"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "MATHESON ADAMS HARRIS" "DAVID WAYNE FABER"eye_n_visit_w_estab_btbv5$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 19.13 139.23 157.89 176.17 181.97 994.96spine_q1 <- eye_n_visit_w_estab_btbv5$tp_med_med %>% quantile(.25)
spine_q3 <- eye_n_visit_w_estab_btbv5$tp_med_med %>% quantile(.75)
spine_iqr <- eye_n_visit_w_estab_btbv5$tp_med_med %>% IQR()# eye_n_visit_w_estab_btbv5_final <- eye_n_visit_w_estab_btbv5[tp_med_med >spine_q1 -1.5*spine_iqr & tp_med_med < spine_q3 + 1.5*spine_iqr ]
eye_n_visit_w_estab_btbv5_final <- eye_n_visit_w_estab_btbv5[tp_cnt_cnt > 10]eye_n_visit_w_estab_btbv5$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 19.13 139.23 157.89 176.17 181.97 994.96eye_n_visit_w_estab_btbv5_final$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 35.0 143.2 157.9 163.0 172.5 619.6bq_table_upload(x=procedure_dev_table, values= eye_n_visit_w_estab_btbv5_final, create_disposition='CREATE_IF_NEEDED', write_disposition='WRITE_APPEND')eye_n_visit_n_estab
eye_n_visit_n_estab %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_n_visit_n_estab %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 11 x 2
## name correlation
## <chr> <dbl>
## 1 medi_bun_t_evaluat 0.129
## 2 faci_bun_t_est 0.0759
## 3 faci_bun_t_pat 0.0759
## 4 radi_bun_t_exam 0.0437
## 5 medi_bun_t_exercise 0.0335
## 6 duration_max 0.0282
## 7 duration_mean 0.0216
## 8 path_bun_t_test 0.0166
## 9 path_bun_t_assay 0.0114
## 10 duration_min 0.0027
## 11 path_bun_t_complete 0.0013eye_n_visit_n_estab %>% get_tag_density_information("medi_bun_t_evaluat") %>% print()## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.## [1] "tp_med ~ medi_bun_t_evaluat"## Warning in leveneTest.default(y = y, group = group, ...): group coerced to
## factor.## Picking joint bandwidth of 9.47## $dist_plots
##
## $stat_tables
eye_n_visit_n_estab <- eye_n_visit_n_estab[medi_bun_t_evaluat==F]eye_n_visit_n_estab %>% plot_med_density() %>% print()## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
eye_n_visit_n_estab %>% get_tag_cor() %>% print()## Warning in stats::cor(cor_data): the standard deviation is zero## # A tibble: 10 x 2
## name correlation
## <chr> <dbl>
## 1 faci_bun_t_est 0.0768
## 2 faci_bun_t_pat 0.0768
## 3 radi_bun_t_exam 0.0446
## 4 medi_bun_t_exercise 0.0344
## 5 duration_max 0.0292
## 6 duration_mean 0.0224
## 7 path_bun_t_test 0.0174
## 8 path_bun_t_assay 0.012
## 9 duration_min 0.0025
## 10 path_bun_t_complete 0.0009eye_n_visit_n_estab <- eye_n_visit_n_estab[,`:=`(
surg_sp_name_clean = surg_sp_npi %>% map_chr(get_npi_standard_name),
surg_bp_name_clean = surg_bp_npi %>% map_chr(get_npi_standard_name),
medi_sp_name_clean = medi_sp_npi %>% map_chr(get_npi_standard_name),
medi_bp_name_clean = medi_bp_npi %>% map_chr(get_npi_standard_name),
radi_sp_name_clean = radi_sp_npi %>% map_chr(get_npi_standard_name),
radi_bp_name_clean = radi_bp_npi %>% map_chr(get_npi_standard_name),
path_sp_name_clean = path_sp_npi %>% map_chr(get_npi_standard_name),
path_bp_name_clean = path_bp_npi %>% map_chr(get_npi_standard_name),
anes_sp_name_clean = anes_sp_npi %>% map_chr(get_npi_standard_name),
anes_bp_name_clean = anes_bp_npi %>% map_chr(get_npi_standard_name),
faci_sp_name_clean = faci_sp_npi %>% map_chr(get_npi_standard_name),
faci_bp_name_clean = faci_bp_npi %>% map_chr(get_npi_standard_name)
)]Remove frames purchases or lens stuff.
eye_n_visit_n_estab <- eye_n_visit_n_estab[!(proc_code_str_sorted %>% stri_detect_regex("V")) ]eye_n_visit_n_estab_btbv5 <- eye_n_visit_n_estab %>% btbv5_medi(
osa_group_p=NA,
osa_class_p = "Ophthalmology",
osa_specialization_p = NA
) %>%
.[,`:=`(procedure_type=29,
procedure_modifier="Eye Exam Standard",
ingest_date =Sys.Date())]## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "ROGER PETTIT HARRIE" "KIRK EDWARD WINWARD"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "AMY LIN" "AUSTIN NAKATSUKA"
## [1] "multiple meet class req"
## [1] "ROGER PETTIT HARRIE" "GILBERT C WONG"
## [1] "multiple meet class req"
## [1] "ROGER PETTIT HARRIE" "JAMES G HOWARD"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "ZACHARY JAMES ZAVODNI" "GREGORY SHERMAN BRINTON"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "J SCOTT RAYMOND MD (LOGAN)" "CHRISTIAN D NILSON MD (LOGAN)"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "STEVEN R YOUNG MD (LOGAN)" "STEVEN ROBERT YOUNG"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "KEVIN H CHARLTON" "DAVID WAYNE FABER"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "KEVIN H CHARLTON" "MITCHELL J GOFF"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "CLARON DOUGLAS ALLDREDGE" "OREN CLARON ALLDREDGE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "TODD DAYNES MD (DAYNES EYE AND LASIK)"
## [2] "TODD DAYNES"
## [1] "multiple meet class req"
## [1] "WAITE VISION P (LEHI)" "AARON N WAITE"eye_n_visit_n_estab_btbv5$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 16.35 152.08 179.00 187.18 192.98 969.34spine_q1 <- eye_n_visit_n_estab_btbv5$tp_med_med %>% quantile(.25)
spine_q3 <- eye_n_visit_n_estab_btbv5$tp_med_med %>% quantile(.75)
spine_iqr <- eye_n_visit_n_estab_btbv5$tp_med_med %>% IQR()# eye_n_visit_n_estab_btbv5_final <- eye_n_visit_n_estab_btbv5[tp_med_med >spine_q1 -1.5*spine_iqr & tp_med_med < spine_q3 + 1.5*spine_iqr ]
eye_n_visit_n_estab_btbv5_final <- eye_n_visit_n_estab_btbv5[tp_cnt_cnt > 10]eye_n_visit_n_estab_btbv5$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 16.35 152.08 179.00 187.18 192.98 969.34eye_n_visit_n_estab_btbv5_final$tp_med_med %>% summary()## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 60.0 161.5 180.4 181.2 191.3 557.0bq_table_upload(x=procedure_dev_table, values= eye_n_visit_n_estab_btbv5_final, create_disposition='CREATE_IF_NEEDED', write_disposition='WRITE_APPEND')