R语言使用总结

画图:
https://www.cnblogs.com/biong-blog/p/4317590.html

计算相关系数:
AA
V2 V3
1 35.22 499.80
2 10.41 161.37
3 17.22 273.29
4 10.70 134.79
5 10.29 90.92
6 18.66 348.99
7 4.41 106.89
8 6.42 196.44
9 49.72 656.95
10 47.70 580.70
11 36.55 518.10
12 14.85 179.41
13 19.46 250.16
14 10.93 122.06
15 40.26 552.74
16 19.82 268.20
17 19.49 221.43
18 16.01 197.68
19 99.32 1080.26
20 14.77 160.60
21 3.96 39.51
22 10.49 111.76
23 21.71 250.09
24 13.06 95.87
25 20.34 183.62
26 0.77 6.08
27 11.38 133.50
28 3.66 64.86
29 1.21 18.30
30 2.31 23.81
31 3.24 103.81

P1<-cor(AA,method="pearson")
P2<-cor(AA,method="spearman")
cat("Pearson相关系数=",P1,"\n",file=fOutname,append=T)
cat("Spearman相关系数=",P2,"\n",file=fOutname,append=T)

经验分布:

dev.new()
plot(main="11月预算收入的经验分布",ecdf(AA[,1]),verticals=TRUE,do.p=TRUE)
dev.new()
plot(main="1至11月预算收入的经验分布",ecdf(AA[,2]),verticals=TRUE,do.p=FALSE)

在输出数据到文档时加入类似的语句可以将文本原数据清空:

cat("(1)计算均值、方差、标准差、变异系数、偏度、峰度:","\n",file=fOutname)

多元线性回归各参数的计算函数:
https://www.cnblogs.com/liuzezhuang/p/3726833.html

回归分析实例:
https://www.cnblogs.com/jiaxinwei/p/11523752.html

输出write.table函数:
https://www.jianshu.com/p/25ac124f68ad

用训练的回归模型预测:

x_1<-AA[,2]
x_2<-AA[,3]
#注意,由于AA是已存在的量,需要将其复制到另一个量中进行操作
model <- lm(AA[,1]~+x_1+x_2, data = AA)
point=data.frame(x_1=220,x_2=2500)
Pre<-predict(model,point,interval="prediction",level=0.95)

R语言安装包:

install.packages("car")
#以安装car为例

出现错误:
In gzfile(file, “wb”) :
无法打开压缩文件’C:/Users/???涫/AppData/Local/Temp/Rtmp2dmrCs/rs-graphics-4fdc5b49-293e-4458-a719-479c51d55cad/e2656d3d-2ae2-483b-acbe-70333210914d.snapshot’,可能是因为’Invalid argument’
Graphics error: Plot rendering error
错误显示由于我们路径名称中有中文,导致无法作图,可以通过新建立图形窗解决

dev.new() #新建图形窗
library(car)
qqnorm(sort_res_stu)

R语言用mode(A)查看A变量类型

将structure数据类型里面的数据提取出来:

sort_res_stu_vec<-as.vector(sort_res_stu,mode='numeric')
#其中sort_res_stu是structure类型的
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

聆一

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值