library(rvest) for(c1n1:238){ url <-paste('https://lightnovelreader.org/in-this-life-i-will-be-the-lord-568694/chapter-',c,sep xpath <-//*[did="chapterText"]' chp <-html_nodes(read_html(url),xpath-xpath)%>%html_text() cat(chp,file ="inthislife.txt",fill=FALSE,labels NULL,append TRUE) 附录：一个简单例子 这个例子的评分如下 1.报告清楚的解释了数据来源，数据背景和动机(10) 2.描述性统计的分析正确(10) 3.模型建立选取的方法比较合适(10) 4.对线性模型加入了非线性变量从而提高了拟合度(10) 5.可视化技能和美观性(10) 6.完成了描述性统计和显著性检验(10) 7.可读性：图文配合，行文严谨流畅，格式规范(10) 8.创新性：使用了sharpley回归(1o) 9.按时提交了原创性的报告(10) 10.报告最后总结了分析所得结论(10) 背景简介 来源：本指导使用的样例来自Kaggle,“Hypothesis Testing and EDA”,作者为Francis Paul C.Flores。 背景：以赚取利润，保险公司应收取比支付给被保险人的金额更高的保费。因此，保险公司投入了大量 时间、精力和金钱来创建准确预测医疗保健成本的模型。在本样例中，我们将尝试构建尽可能精准且简 单的模型来完成预测。 导入数据集 Load libraries library(ggplot2) library(ggthemes) library(psych) library(relaimpo)library(rvest) for (c in 1:238) { url <- paste('https://lightnovelreader.org/in-this-life-i-will-be-the-lord-568694/chapter-',c,sep="",collapse ="") xpath <- '//*[@id="chapterText"]' chp <- html_nodes(read_html(url), xpath=xpath) %>% html_text() cat(chp, file = "inthislife.txt", fill = FALSE, labels = NULL, append = TRUE) } 附录：一个简单例子 这个例子的评分如下： 1. 报告清楚的解释了数据来源，数据背景和动机（10） 2. 描述性统计的分析正确（10） 3. 模型建立选取的方法比较合适（10） 4. 对线性模型加入了非线性变量从而提高了拟合度（10） 5. 可视化技能和美观性（10） 6. 完成了描述性统计和显著性检验（10） 7. 可读性：图文配合，行文严谨流畅，格式规范（10） 8. 创新性：使用了 sharpley 回归（10） 9. 按时提交了原创性的报告（10） 10. 报告最后总结了分析所得结论（10） 背景简介 来源：本指导使用的样例来自 Kaggle, “Hypothesis Testing and EDA”，作者为 Francis Paul C. Flores。 背景：以赚取利润，保险公司应收取比支付给被保险人的金额更高的保费。因此，保险公司投入了大量 时间、精力和金钱来创建准确预测医疗保健成本的模型。在本样例中，我们将尝试构建尽可能精准且简 单的模型来完成预测。 导入数据集 # Load libraries library(ggplot2) library(ggthemes) library(psych) library(relaimpo) 2