> head(rawData)
  Market.Segment TotalHours New.Busines.Starts Capital.Formation Government.Contracts markSegLabel timeValRatio    hourGroup normCapital
1              3       4.50                  0             25000                    0          SME    5555.5556   4.0 to 6.0  -0.2433492
2              3       1.00                  0                 0               120500          SME       0.0000  2.0 or less  -0.3200474
3              3       5.25                  0             50000                    0          SME    9523.8095   4.0 to 6.0  -0.1666510
4              3       5.75                  0              5000                    0          SME     869.5652   4.0 to 6.0  -0.3047078
5              3      28.75                  0            515000                    0          SME   17913.0435 20.0 or more   1.2599361
6              3       0.45                  0              2000                    0          SME    4444.4446  2.0 or less  -0.3139116

rawData$normCapital <- scale(rawData$Capital.Formation)

rawData <-
  mutate(rawData,
         markSegLabel = case_when(
           Market.Segment == 1 ~ "Pre_Venture",
           Market.Segment == 2 ~ "Start_Up",
           Market.Segment == 3 ~ "SME",
           TRUE ~ "NA Segment"
         )
  )


rawData <-
  mutate(rawData,
    hourGroup = case_when(
      TotalHours < 2.0 ~ "2.0 or less",
      TotalHours >= 2.0 & TotalHours < 4.0 ~ "2.0 to 4.0",
      TotalHours >= 4.0 & TotalHours < 6.0 ~ "4.0 to 6.0",
      TotalHours >= 6.0 & TotalHours < 8.0 ~ "6.0 to 8.0",
      TotalHours >= 8.0 & TotalHours < 10.0 ~ "8.0 t0 10.0",
      TotalHours >= 10.0 & TotalHours < 12.0 ~ "10.0 to 12.0",
      TotalHours >= 12.0 & TotalHours < 14.0 ~ "12.0 to 14.0",
      TotalHours >= 14.0 & TotalHours < 16.0 ~ "14.0 to 16.0",
      TotalHours >= 16.0 & TotalHours < 18.0 ~ "16.0 to 18.0",
      TotalHours >= 18.0 & TotalHours < 20.0 ~ "18.0 to 20.0",
      TotalHours >= 20 ~ "20.0 or more",
      TRUE ~ "NA Hours"
    )
  )
rawData$hourGroup <- factor(rawData$hourGroup)