mysize <- function(M) {
  #  MYSIZE Like the built - in size, except it returns n if (M is a vector of length n, and 1 if M is a scalar.) {
  #  sz <- mysize(M)
  #  The behavior is best explained by examples
  #  - M <- rand(1, 1),   mysize[M] <- 1,      size(M) = [1 1]
  #  - M <- rand(2, 1),   mysize[M] <- 2,      size(M) = [2 1]
  #  - M <- rand(1, 2),   mysize[M] <- 2,      size(M) = [1 2]
  #  - M <- rand(2, 2,1), mysize[M] <- [2 2],  size(M) = [2 2]
  #  - M <- rand(1, 2,1), mysize[M] <- 2,      size(M) = [1 2]

  if (myisvector(M)) {
    sz <- length(M)
  } else {
    sz <- size(M)
  }
  return(sz)
}