# elder1<-read.csv('elder1.csv')
# dim(elder1)
# str(elder1)
# t1<-elder1[elder1$SBP==140,]
# print(dim(t1))
# t2<-elder1[elder1$SBP>=140 & elder1$DBP>=90,]
# print(dim(t2))
# t3<-elder1[which(elder1$SBP>=140 | elder1$DBP>=90),]
# print(dim(t3))
# t4<-subset(elder1,SBP>=140|DBP>=90)
# print(dim(t4))
# t2<-elder1[c('SBP','DBP')]
# # View(t2)
# names(elder1)
# t2<-elder1[,-c(2,3,6)]
# dim(t2)
# View(t2)
# elder1<-read.csv('elder1.csv')
# elder2<-read.csv('elder2.csv')
# t1<-elder1[elder1$SBP>=140,]
# t2<-elder1[elder1$SBP<140,]
# t3<-rbind(t1,t2)
# dim(t3)
# View(t3)
# t4<-elder1[,-c(2,3)]
# t5<-elder1[,c(2,3)]
# t6<-cbind(t4,t5)
# dim(t6)
# View(t6)
# t7<-merge(elder1,elder2,by='ID',all=TRUE)
# dim(t7)
# View((t7))
# t8<-merge(elder1,elder2,by='ID',all=FALSE)
# print(dim(t8))
# print(View(t8))
# library(reshape)
# t1<-rename(elder1,c(SBP='SBP1'))
# names(t1)
# names(elder1)
# names(elder1)[2]<-'SBP1'
# names(elder1)[4]<-'TC1'
# class(elder2$sex)
# print(is.numeric((elder2$sex)))
# elder2$sex<-as.factor(elder2$sex)
# str(elder2)
# elder2$sex<-as.numeric(elder2$sex)
# elder2$sex1<-as.factor(elder2$sex)
# str(elder2)
# sort(elder1$SBP1)
# sort(elder1$SBP,decreasing = TRUE)
# sort(elder1$SBP,na.last=TRUE)
elder1<-read.csv('elder1.csv')
elder2<-read.csv('elder2.csv')
tt<-merge(elder1,elder2,by='ID',all=F)
write.csv(tt,file='ttnew.csv')
# tt$SBP1<-tt$SBP
# str(tt)
# tt$SBP1<-tt$SBP>=140
# str(tt)
# tt$bmi<-tt$weight/tt$height/tt$height*10000
# View(tt)
attach(tt)
tt<-transform(tt,SBPD=SBP-140,bmi=weight/height/height*10000)
# View(tt)
# names(tt)
detach(tt)
attach(tt)
tt$bim1[bmi<18.5]<-0
tt$bim1[bmi>=18.5 & bmi<=24]<-1
tt$bmi1[bmi>=24 & bmi<=28]<-2
tt$bmi1[bmi>=28]<-3
tt$bmi1<-as.factor(tt$bmi1)
levels(tt$bmi1)
table(tt$bmi1)
tt$bmi2<-tt$bmi
tt<-within(tt,{
bmi2[bmi<18.5]<-0
bmi2[bmi>=18.5 & bmi<24]<-1
bmi2[bmi>=24 & bmi<28]<-2
bmi2[bmi>28]<-3
})
tt$bmi2<-as.factor(tt$bmi2)
levels(tt$bmi2)
table(tt$bmi2)
tt$pressure<-ifelse(SBP>=140 | DBP>=90,2,1)
table(tt$pressure)
tt$sugar<-ifelse(sugar>7,2,1)
table(tt$sugar)
table(tt$income)
tt$income1[income<3]<-0
tt$income1[income>=3 & income<6]<-1
tt$income1[income>=6]<-2
table(tt$income1)
str(tt)
tt$sex<-as.factor(tt$sex)
tt$bmi1<-factor(tt$bmi1,levels=c(2,1,3,4))
tt$pressure<-factor(tt$pressure)
tt$income1<-factor(tt$income1)
tt$marriage<-factor(tt$marriage,levels=c(2,1,3,4,5))