159","184","167","175")
> Pr3<-c("11","14","34","23","35","12")
> Pr4<-c("6","7","5","8","6","9")
> Pr5...56,45,60)
> S2<-c(67,87,45,25,NA,96)
> mydataPr5...,S1,S2)
> mydata
PatientID Date Age Gender City Pr1 Pr2 Pr3 Pr4 Pr5 S1 S2
1 1 06/20/20...Date<-as.Date(mydata$Date,"%m/%d/%Y")
> mydata
PatientID Date Age Gender City Pr1 Pr2 Pr3 Pr4 Pr5