From 03928d0274baeb18c5eaf65a65220aae630b33e2 Mon Sep 17 00:00:00 2001
From: Carl Corder <carl.corder@huskers.unl.edu>
Date: Thu, 10 Oct 2019 13:34:11 +0000
Subject: [PATCH] write transformed data to excel
---
scripts/phase2/transform_data.r | 21 +++++++++++++--------
1 file changed, 13 insertions(+), 8 deletions(-)
diff --git a/scripts/phase2/transform_data.r b/scripts/phase2/transform_data.r
index 67f645e..1d9ab5b 100644
--- a/scripts/phase2/transform_data.r
+++ b/scripts/phase2/transform_data.r
@@ -1,17 +1,18 @@
library("readxl")
+library("writexl")
library("dplyr")
# Phase 2 Excel
-# https://unl.box.com/s/4dfo4iv2n8awiqt20himu24kyhtmgavk
-fileName <- "C:/Users/its-student/Desktop/Phase2.xlsx"
+input <- "C:/Users/its-student/Desktop/Phase2In.xlsx"
+output <- "C:/Users/its-student/Desktop/Phase2Out.xlsx"
# read in sheets
-data <- read_excel(fileName, sheet = "Data")
-commission <- read_excel(fileName, sheet = "Commission") # by group and policy duration
-expense <- read_excel(fileName, sheet = "Expense") # bin by annualized net premium
-rtn <- read_excel(fileName, sheet = "RTN")
-sic <- read_excel(fileName, sheet = "SIC")
-tax <- read_excel(fileName, sheet = "Tax")
+data <- read_excel(input, sheet = "Data")
+commission <- read_excel(input, sheet = "Commission") # by group and policy duration
+expense <- read_excel(input, sheet = "Expense") # bin by annualized net premium
+rtn <- read_excel(input, sheet = "RTN")
+sic <- read_excel(input, sheet = "SIC")
+tax <- read_excel(input, sheet = "Tax")
# drop reserves not related to STD (IBNR)
data <- data %>% select(-c(ICOS, WAIVER_IBNR, GAAP_RESV, WAIVER_RESERVE))
@@ -97,3 +98,7 @@ data <- data %>% mutate(ACTUAL_CLAIMS = PAID_CLAIMS + IBNR)
# calculate actual to expected ratio
data <- data %>% mutate(ACTUAL_TO_EXPECTED = ACTUAL_CLAIMS / EXPECTED_CLAIMS)
+
+# write data to Excel
+write_xlsx(data, path = output, col_names = TRUE)
+
--
GitLab