Matrix- coercion before cbind(data.frame,matrix) fixed