第二期R19-伊舟

mzwhite 2017-10-23 23:00:06 阅读: 1071

x<-c(5,7,4,1,3,2,5,5,6,11,8,2,2)

y<-c(32,40,21,23,28,36,40,50,48,68,55,27,18)

plot(x)

plot(x,y)

plot(x,y,main="MSA患者UPDRS评分与病程的关系",xlab="病程",ylab="UPDRS评分",col="red",col.axis="orange",

col.lab="blue",pch=2)

library(xlsx)

read.xlsx(file="C:\\Users\\Dell\\Desktop\\test.xlsx",sheetIndex=1)

Mydata<-read.xlsx(file="C:\\Users\\Dell\\Desktop\\test.xlsx",sheetIndex=1)

plot(Mydata,main="MSA患者UPDRS评分与病程的关系",xlab="病程",ylab="UPDRS评分",col="red",col.axis="orange",

col.lab="blue",pch=2)

read.csv(file="C:\\Users\\Dell\\Desktop\\test.csv")

Mydata<-read.csv(file="C:\\Users\\Dell\\Desktop\\test.csv")

plot(Mydata,main="MSA患者UPDRS评分与病程的关系",xlab="病程",ylab="UPDRS评分",col="red",col.axis="orange",

col.lab="blue",pch=2)

第一期作业.jpg

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭