BUG:   designmatrix<-as.matrix( as.numeric( rowSums( designmatrix ) ) )