Hi thanoon, The problem may lie in your definition of BZ (which I see Boris has also noticed). Given your code, it will be a vector containing 200 zeros. Your code will generate 200 ones as zero is less than 0.25. Try defining BZ as follows:
BZ<-runif(200) You should get something more interesting from your code or that suggested by Boris, or even this: W<-as.numeric(cut(BZ,breaks=c(0,0.25,0.5,0.75,1))) Jim On Wed, Nov 4, 2015 at 2:43 PM, thanoon younis <thanoon.youni...@gmail.com> wrote: > Thank you for your response > > I have a vector of unknown values BZ which is defined already BZ=numeric(N) > and i want to transfer BZ to ordered categorical variable with 4 > categories W but when i write this code > > for(j in 1:1){ > if(BZ[j] < 0.25){ > W[j] = 1 > }else if(BZ[j] >=0.25 & BZ[j] < 0.5){ > W[j] = 2 > }else if(BZ[j] >=0.5 & BZ[j] < 0.75){ > W[j] = 3 > }else{ > W[j] = 4 > }} > > i found the values of W are only 0, but if i change for(j in 1:N) the > values of W will be only 1. how can i solve this problem? > Regards > > On 4 November 2015 at 06:35, Boris Steipe <boris.ste...@utoronto.ca> > wrote: > > > Why don't you just multiply by four, round, and add one? > > > > > > > > B. > > On Nov 3, 2015, at 10:02 PM, thanoon younis <thanoon.youni...@gmail.com> > > wrote: > > > > > Dear R-users > > > > > > I have a problem in the code below, the problem is because i want to > > change > > > the variable BZ which is a vector with 200x1 dimension to the var. W > > which > > > is categorical variable with same dimension of BZ but with categorical > > > values with 4 categories but i got on only zero values in w why? any > > help > > > would be appreciated. > > > > > > N<-200;P<-9 #Sample size > > > BZ=numeric(N) > > > > > > W<-numeric(N) > > > > > > for (t in 1:1) { > > > #Generate the data for the simulation study > > > for (i in 1:N) { > > > > > > #transform theta to ordered categorical variables > > > > > > > > > for(j in 1:1){ > > > if(BZ[j] < 0.25){ > > > W[j] = 1 > > > }else if(BZ[j] >=0.25 & BZ[j] < 0.5){ > > > W[j] = 2 > > > }else if(BZ[j] >=0.5 & BZ[j] < 0.75){ > > > W[j] = 3 > > > }else{ > > > W[j] = 4 > > > }} > > > > > > > > > #Input data set > > > data<-list(N=200,P=9,Q=W) > > > > > > }} #end > > > > > > W > > > > > > > > > > > > > > > Regards > > > > > > > > > -- > > > Thanoon Y. Thanoon > > > PhD Candidate > > > Department of Mathematical Sciences > > > Faculty of Science > > > University Technology Malaysia, UTM > > > E.Mail: thanoon.youni...@gmail.com > > > E.Mail: dawn_praye...@yahoo.com > > > Facebook:Thanoon Younis AL-Shakerchy > > > Twitter: Thanoon Alshakerchy > > > H.P:00601127550205 > > > > > > [[alternative HTML version deleted]] > > > > > > ______________________________________________ > > > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > > > https://stat.ethz.ch/mailman/listinfo/r-help > > > PLEASE do read the posting guide > > http://www.R-project.org/posting-guide.html > > > and provide commented, minimal, self-contained, reproducible code. > > > > > > > -- > Thanoon Y. Thanoon > PhD Candidate > Department of Mathematical Sciences > Faculty of Science > University Technology Malaysia, UTM > E.Mail: thanoon.youni...@gmail.com > E.Mail: dawn_praye...@yahoo.com > Facebook:Thanoon Younis AL-Shakerchy > Twitter: Thanoon Alshakerchy > H.P:00601127550205 > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.