I was recently surprised to find that the following didn\'t work:
output<-array(1:10) names(output[1])<-"Foo"
As far as I can tel