自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

-+

上一步保存

m0_52211520的博客

原创 R语言基础知识

R基础帮助[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-b4Zo2sKc-1653981922453)(E:\2_pictures\typora\R语言\R帮助.png)]工作目录和工作空间getwd() # 显示当前的工作目录setwd() # 修改当前的工作目录ls() # 列出当前工作空间中的对象rm(objectlist) # 移除一个或多个对象save.image("myfile") # 保存工作空间到文件myfile中（默认后缀.RData）s

2022-05-31 15:26:07 798 6

2021数学建模竞赛参考模板.doc

数学建模国赛参考论文模板

2021-08-10

C语言实现学生成绩管理系统.txt

适合刚刚学完C语言基本操作的大一学生，此成绩管理系统使用顺序存储的方式。此设计为本人大一上学期时所做，设计简单，不喜勿下。

2021-08-02

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

抱朴子白泽 CSDN认证博客专家 CSDN认证企业博客

码龄4年

IP 属地：安徽省

IP属地以运营商信息为准，境内显示到省（区、市），境外显示到国家（地区）

1: 原创

59万+: 周排名

210万+: 总排名

798: 访问

: 等级

19: 积分

3: 粉丝

1: 获赞

6: 评论

2: 收藏

私信

关注

热门文章

R语言基础知识 797

最新评论

R语言基础知识
抱朴子白泽: # Y=64.36860+0.49169 X1+1.52696 X2+ 0.07199 X3- 0.16287X4 # X2具有显著性，F统计量值位114.6 p值为 4.275e-07
R语言基础知识
抱朴子白泽: [code=html] rm(list=ls()) library(readxl) data <- read_excel("data/data19甲B1.xlsx",range = "A2:F12", col_types = c("numeric","numeric","skip","skip","numeric","numeric")) colnames(data) <- c("X1_湿度差","X1_温度差","X2_湿度差","X2_温度差") data <- data.frame(data) colnames(data) <- c("X1","X2","X1","X2") X <- rbind(data[ ,1:2],data[ ,3:4]) G<-gl(2,10) X1 <- 3.1 X2 <- 8.0 test <- data.frame(X1,X2) source("distinguish.distance.R") # 距离判别 distinguish.distance(X,G,test) source("distinguish.bayes.R") # 贝叶斯判别方差相同时 distinguish.bayes(X,G,test,var.equal = TRUE) # 贝叶斯判别方差不相同时 distinguish.bayes(X,G,test) [/code]
R语言基础知识
抱朴子白泽: 【20:22】 B卷第二大题 [code=html] rm(list=ls()) library(readxl) data <- read_excel("data/data19甲B2.xlsx") data <- data.frame(data) #(1) x <- cov(data[ ,1:4]) #(2) model <- lm(Y~X1+X2+X3+X4,data=data) summary(model) anova(model) #(3) modelstep<-step(model) summary(modelstep) #(4) car.pr1 <- princomp(data,cor=TRUE) car.pr2 <- prcomp(data) car.pv1 <- eigen(cor(data))$values car.pv1 <- car.pv1/sum(car.pv1) car.pv2 <- summary(car.pr2)$importance zr <- car.pr2$x # 12 7 13 6 3 10 9 5 11 4 8 2 1 #(5) data5 <- scale(data,center = TRUE,scale =TRUE) d<-dist(data5,method = "euclidean",diag = FALSE,upper = FALSE,p=2) hc2<-hclust(d,method = "average") cutree(hc2,3) # 1 1 2 1 2 2 2 1 2 3 1 2 2 [/code]
R语言基础知识
抱朴子白泽: 【19;51】 B卷 [code=html] F <- function(x,y){ result <- cos(x)+y^2 result } F(3,4) rm(list=ls()) 1:20 A <- matrix(data = 1:20, nrow = 5, ncol = 4, byrow = FALSE) B <- matrix(data = 1:20, nrow = 5, ncol = 4, byrow = TRUE) C <- A+B D <- A %*% B F <- A[1:3,1:3] G <- B[ ,-2] boxplot(C[ ,1]) t(apply(C,1,sort,decreasing=T)) write(C,"F:\\data4\\Data.txt") read.table("F:\\data4\\Data.txt") [/code]
R语言基础知识
抱朴子白泽: 【15:34】该博客为内容分享

最新文章

R语言基础知识

提示

确定要删除当前文章？

取消删除