try this:

> test2 <- rep(seq(1:5),2000)
> #setup a data frame and index into the columns
> result <- data.frame(event1=rep(0,length(test2)),
event2=rep(0,length(test2)),
+     event3=rep(0,length(test2)), event4=rep(0,length(test2)),
event5=rep(0,length(test2)))
> for (i in seq(ncol(result))){
+     result[[i]] <- ifelse(test2 == i, 1, 0)
+ }
>
> str(result)
'data.frame':   10000 obs. of  5 variables:
 $ event1: num  1 0 0 0 0 1 0 0 0 0 ...
 $ event2: num  0 1 0 0 0 0 1 0 0 0 ...
 $ event3: num  0 0 1 0 0 0 0 1 0 0 ...
 $ event4: num  0 0 0 1 0 0 0 0 1 0 ...
 $ event5: num  0 0 0 0 1 0 0 0 0 1 ...


On 12/29/06, sj <ssj1364@gmail.com> wrote:
>
> I am working with a dataset where there are 5 possible outcomes (coded
> 1:5),
> I would like to create 5 categorical variables (event1...event5). I am
> using
> a for loop an if statements, but I have a large dataset( approx 100,000
> rows) it takes quite a bit of time, is there a way to speed this up? Here
> is
> some sample code of what I am currently doing.
>
> test2 <-rep(seq(1:5),2000)
>
> event1 <- rep(0,nrow(test2))
> event2 <- rep(0,nrow(test2))
> event3 <- rep(0,nrow(test2))
> event4 <- rep(0,nrow(test2))
> event5 <- rep(0,nrow(test2))
>
> for(i in 1:length(event1))
> {
>    if (test2[i]==1)
>    {
>        event1[i]=1
>    }
>
>    if (test2[i]==2)
>    {
>        event2[i]=1
>    }
>
>    if (test2[i]==3)
>    {
>        event3[i]=1
>    }
>
>    if (test2[i]==4)
>    {
>        event4[i]=1
>    }
>
>    if (test2[i]==5)
>    {
>        event5[i]=1
>    }
> }
>
>
>
> thanks,
>
> Spencer
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> 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.
>



-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem you are trying to solve?

	[[alternative HTML version deleted]]

