我想做一些数据分析并将结果写入excel文件。我知道如何添加dataFrame，但我不知道如何将一个对象的摘要添加到工作表中
例如，假设我有一个dataFrame dF
Pr <- lm(Power~a + b + c,data = dF)
r <- predict(Pr,interval="prediction")
r<-data.frame(r)
Excel1 <- createWorkbook()
Data <- createSheet(Excel1, sheetName = "Data")
Result <- createSheet(Excel1, sheetName = "Results")
Summary <- createSheet(Excel1, sheetName = "Summary")
addDataFrame(dF,Data)
addDataFrame(r,Result)
saveWorkbook(Excel1, "Excel1")
现在如何将摘要（Pr）添加到“摘要”表中？请帮忙