xts功能初探
library(zoo)
library(xts)
date=c("2020-01-01","2020-02-01","2020-03-01","2020-04-01")
patientID=c(1,2,3,4)
age=c(24,34,28,52)
diabetes=c("Type1","Type2","Type1","Type1")
status=c("Poor","Improved","Excellent","Poor")
patientdata=data.frame(date,patientID,age,diabetes,status)
patientdata
patientdata[,-1] # 负数表示舍去某一列/行
patient<-xts(patientdata[,-1],order.by = as.Date(patientdata[,1]))
patient