服务热线
178 0020 3020
newdata<-data.frame(病程=numeric(0),UPDRS评分=numeric(0))
newdata<-edit(newdata)
save(newdata,file='d:/lmt.RDdata')
newdata
a<-read.csv('d:/lmt.csv')
a
attach(a)
plot(病程,UPDRS评分,main='MSA患者UPDRS评分与病程的关系',col=3,pch=2,col.lab=4,col.main=1,col.axis=70)
附件