[R] problem in my code

[Gabor Grothendieck]

The problem can be reduced to this:

x <- 1
x[1] <<- 2 # error

The following are ok:

x <- 1
x[1] <- 3

x <- 1
x <- 4

x <- 1
x <<- 5

Does anyone know why?  Is this a bug in <<- ?


On 7/9/06, Taka Matzmoto <sell_mirage_ne at hotmail.com> wrote:
> 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 at 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
>