From 0007358f35618efc81c65b4d74b2dda42f1d9e39 Mon Sep 17 00:00:00 2001
From: Carl Corder <carl.corder@huskers.unl.edu>
Date: Fri, 27 Sep 2019 01:22:36 +0000
Subject: [PATCH] classify groups into size by eligible lives

---
 scripts/data_transform.r | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/scripts/data_transform.r b/scripts/data_transform.r
index 615122f..d176a10 100644
--- a/scripts/data_transform.r
+++ b/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)
 
-- 
GitLab