library(tidyverse)
library(openxlsx)
wb.df1 <- loadWorkbook(file="./data/chap7data.xlsx")
names(wb.df1)
quant.df <- read.xlsx(xlsxFile=wb.df1, sheet = "IrrData",
                      rows = c(2:17),cols = 19:24)
summary.df <- as_tibble(quant.df) %>%
  group_by(Group,Target) %>%
  summarise(across(c(J1,J2,J3,J4),mean)) %>%
  mutate(across(c(J1,J2,J3,J4),sd,.names="gsd.{.col}")) %>%
  ungroup() %>%
  mutate(across(!c(Group,Target),round,3))

#- Write R object to an Excel Worksheet
writeData(wb = wb.df1, sheet = "IrrData", 
          x = "Mean Ratings by Group and Target, ", 
          startCol = 26, startRow = 1)
writeData(wb = wb.df1, sheet = "IrrData", 
          x = "and Standard Deviations by Group", 
          startCol = 26, startRow = 2)
writeData(wb = wb.df1, sheet = "IrrData", x=summary.df, 
          startCol = 26, startRow = 4, rowNames = FALSE)
saveWorkbook(wb = wb.df1, file = "./data/chap7Output1.xlsx", 
             overwrite = TRUE)