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]]

