simple yet strange S-PLUS error

["Gilliam, Reid" <rbgilliam@att.com>]

Hi folks,

I am trying something very simple and am confused as to the error S-PLUS
2000 gives me.  Here is my code and the response from S-PLUS 2000:

> a <- c(0,0,0,0)
> for (i in 1:4) {
+ a[[i%%4]] <- 1
+ }
Error in [[<-: Attempt to select zero elements: a=c(1, ..)
> 

Does anybody know why my code causes a problem for S-PLUS here?

Thanks,
Reid Gilliam