Re: [R] Double for loop

Thank you for your help On 6/26/08, jim holtman <[EMAIL PROTECTED]> wrote: > > You can at least get rid of the > > for (i in 1:200){ > y[i]<-rbinom(1,1,0.8) > x1[i]<-ifelse(y[i]==1,rnorm(1,mean=20, sd=2),rnorm(1,mean=16, sd=2.2)) > > > loop with the following > > y <- rbinom(200, 1, 0.8) > y

Re: [R] Double for loop

You can at least get rid of the for (i in 1:200){ y[i]<-rbinom(1,1,0.8) x1[i]<-ifelse(y[i]==1,rnorm(1,mean=20, sd=2),rnorm(1,mean=16, sd=2.2)) loop with the following y <- rbinom(200, 1, 0.8) y.1 <- y == 1 # get logical vector of y == 1 x1 <- numeric(200) # allocate the vector x1[y.1] <-

[R] Double for loop

Hi, I'm trying to do a double for loop like this: for (k in 1:1000){ for (i in 1:200){ y[i]<-rbinom(1,1,0.8) x1[i]<-ifelse(y[i]==1,rnorm(1,mean=20, sd=2),rnorm(1,mean=16, sd=2.2)) } for (j in 1:300){ } } Does anyone know a good reference about double loops? Thank you, Sigalit [[a