classify groups into size by eligible lives

scripts/data_transform.r

@@ -94,6 +94,13 @@ rtnData <- rtnData %>% mutate(COVERAGE_TYPE = case_when(COVERAGE_NAME %in% cover
 # remove misc coverage types (i.e. Implementation Credit, Vision, Voluntary Vision)
 rtnData <- rtnData %>% filter(COVERAGE_TYPE != "Misc")
 
+# classify groups into size by eligible lives
+rtnData <- rtnData %>% mutate(GROUP_SIZE = case_when(ELIGIBLE_LIVES < 100 ~ "S",
+                                                     ELIGIBLE_LIVES >= 100 & ELIGIBLE_LIVES < 1000 ~ "M",
+                                                     ELIGIBLE_LIVES >= 1000 & ELIGIBLE_LIVES < 10000 ~ "L",
+                                                     ELIGIBLE_LIVES >= 10000 ~ "XL",
+                                                     TRUE ~ "NA"))
+
 # add rtn column
 rtnData <- rtnData %>% mutate(RTN = FINAL_QUOTED_PREMIUM / NEEDED_PREMIUM)