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