第二期R52-洪学志

洪学志 2017-10-28 01:57:51 阅读: 1077

> data <- read.csv(file.choose(),header=F)

> data 或

> mydata <- data.frame(time=numeric(0),scores=numeric(0))

> mydata <- edit(mydata)

> mydata 或

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

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

> plot(time,scores,pch=25,main="MSA患者UPDRS评分与病程的关系",xlab="病程",ylab="UPDRS评分",xlim=c(0,12))

微信图片-9.png

邀请讨论

{{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}})

删除

回复关闭