2018年7月10日星期二，是许昌学院智慧校园社会实践队进行社会实践的第八天，这期间小组队员们遇到了数不胜数的问题，在各方坚持和努力下，终于有了喜人的收获。以下是小组成员遇到的各式各样的问题的解决方案：
问题1：
某个包已经安装好了，可能是安装R时就安装好了的标准包，或者是自己下载的包。如果直接在R中使用包中的函数，R会告诉你，它找不到这个函数。
解决方案：
用library函数或者require函数将包加载到R中
代码：
> library(packagename)
问题2：
根据所得到的回归模型预测新的值。
解决方案：
将要用于预测的数据保存到数据框中。用predict函数，将newdata参数设为这个数据框：
代码
> m <- lm(y ~ u + v + w)
> preds <- data.frame(u=3.1, v=4.0, w=5.5)
> predict(m, newdata=preds)
问题3
已经做完了线性回归，现在想检查一下所得到的模型的质量。
解决方案
首先把这个模型画出来，可以得到几个用来判断模型质量的图：
代码
> m <- lm(y ~ x)
> plot(m)
以上仅仅只是代码问题，在程序包的安装中，小组成员也是遇到了各式各样的问题，程序包安装不上，环境变量的配置等等，自己学习去钻研配置，解决问题。遇到困难和挫折用不放弃，是小组实践学习的精神所在！学习的过程是痛苦且枯燥的，但是问题解决的喜悦又是令人向往的，不奋斗，不青春，我愿故我行！
