Usage Arguments Author(s) Examples
1 |
varX |
|
levelx |
|
offset |
Do Van Dung
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ## Ta.o rac ca'c bie^'n coquankhac0, coquankhac1,coquankhac2,coquankhac3
## Label cu?a ca'c bie^'n na`y cu~ng gio^'ng nhu+ label cu?a bie^'n coquankhac
##
## for (i in 0:3) {
## varName<-"coquankhac"
## varName.i<-paste(varName,i,sep="")
## data1[,varName.i]<-zselect(data1[,varName],i,offset=1)
## label(data1[,varName.i])<-label(data1[,varName])
## }
##
##==================================================
## Ta.o ra bie^'n coquankhac1 tu+` bie^'n co+ quan kha'c
## bie^'n na`y co' gia' tri la` label cu?a gia' tri. 1 cu?a bie^'n coquankhac ne^'u bie^'n coquankhac co' chu+'a gia' tri. 1
## data1$coquankhac1<-zselect(data1$coquankhac,1,offset=1)
##
## zselect<-function(varX,levelx,offset=0){
## x<-as.numeric(varX)==(levelx+offset)
## x<-x | grepl(levelx,as.character(varX))
## labelx<-levels(varX)[levelx+offset]
## x<-factor(x,levels=c(F,T),labels=c("kho^ng",labelx))
## }
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.