[R] problem in my code

From: Taka Matzmoto <sell_mirage_ne_at_hotmail.com>
Date: Mon 10 Jul 2006 - 13:53:19 EST


Dear R-users

I wrote a small program for assigning a membership

Here is my script

sample.size <- 60

x <- rnorm(sample.size, 0, 1)
y <- rnorm(sample.size, 0, 1)

x.mean <- mean(x)
y.mean <- mean(y)
membership <- numeric(sample.size)

for (i in 1:sample.size)

    {

        if ((x[i] < x.mean) && (y[i] < y.mean))
            {
                membership[i] <<- 1
            } else {
                        if ((x[i] > x.mean) && (y[i] < y.mean))
                            {
                                membership[i] <<- 2
                            } else {
                                        if ((x[i] > x.mean) && (y[i] > 
y.mean))
                                            {
                                                membership[i] <<- 3
                                            } else
                                                {
                                                    membership[i] <<- 4
                                                }
                                   }

                    }

    }
cbind(x,y,membership)

There is an error message
"Error: object "membership" not found"
I can't figure it out.

Any help or advice on improvement for this code will be appreciated. I konw this code is not well written at all.

Thank you

Taka



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 Received on Mon Jul 10 13:58:54 2006

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Mon 10 Jul 2006 - 18:15:24 EST.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.