R语言学习笔记 06-2自行补充——论文复刻的延伸

R语言学习笔记

---

---

自己写的代码上课没讲，就胡乱看看。结果正不正确不知道。

install.packages("ISLR")
install.packages("pls")

library(readxl)	#加载包
data<-read_excel("自行补充数据.xlsx",sheet="1317data")	#导入数据
class(data)
data<-na.omit(data)
str(data)

##描述统计----------------------------------------------------
summary(data[4:56])	#描述统计

SD<-c(1:53)*0	#标准差
for(i in 1:53)	SD[i]<-sd(as.numeric(unlist(data[,i+3])))

Min<-c(1:53)*0	#最小值
for(i in 1:53)	Min[i]<-min(data[,i+3])

Max<-c(1:53)*0	#最大值
for(i in 1:53)	Max[i]<-max(data[,i+3])

Median<-c(1:53)*0	#中位数
for(i in 1:53)	Median[i]<-median(as.numeric(unlist(data[,i+3])))

Mean<-c(1:53)*0	#平均数
for(i in 1:53)	Mean[i]<-mean(as.numeric(unlist(data[,i+3])))

describe<-data.frame(Min,Max,Median,Mean,SD)
rownames(describe)=names(data)[4