require(openxlsx) tmpdat<- read.xlsx("./data.xlsx", sheet = 2, startRow = 9, detectDates=TRUE)head(tmpdat) wb <- createWorkbook()addWorksheet(wb, 'Sheet1')addWorksheet(wb, 'Sheet2')writeData(wb, sheet = 'Sheet1', x = lm.res1, withFilter=F)…