服务热线
178 0020 3020
newdata<-data.frame(病程=numeric(0),UPDRS评分=numeric(0))
newdata<-edit(newdata)
save(newdata,file='d:/R学习小组/R35lmt.RDdata')
newdata
read.csv('d:/R学习小组/一期任务-R35-lmt.csv')
a<-read.csv('d:/R学习小组/一期任务-R35-lmt.csv')
attach(a)
plot(a,col=98,pch=5)
附件