replace colnames<- with dimnames<- call to speed up