Error in array(ans, c(len.a%/%d2, d.ans), if (!is.null(names(dn.ans)) ||  :
  length of 'dimnames' [1] not equal to array extent