第二期作业R26-右耳

XT 2017-10-18 17:56:37 阅读: 932

> setwd("D:/RStudio/mydirectory")

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

> a<-data.frame(x,y)

> a

x y

1 5 32

2 7 40

3 4 21

4 1 23

5 3 28

6 2 36

7 5 40

8 5 50

9 6 48

10 11 68

11 8 55

12 2 27

13 2 18

> plot(a)

> plot(a,xlab="MSA",ylab="UPDRS")

> plot(a,xlab="MSA",ylab="UPDRS",xlim=c(0,12),ylim=c(10,70),main="MSA/UPDRS")

邀请讨论

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

删除

回复关闭