R/toOperableMatrix.R

In MNLR/BNWeatherGen: Weather Generators with Bayesian Networks

toOperableMatrix <- function(data) {
  if (is.vector(data)) {
    pdata <- matrix(0, nrow = 1, ncol = length(data))
    colnames(pdata) <- names(data)
    pdata[1,] <- as.numeric( as.character(data) )
  }
  else {
    if (is.matrix(data)){
      pdata <- matrix(0, ncol = ncol(data), nrow = nrow(data))
    }
    else if (is.data.frame(data)) {
      pdata <- matrix(0, ncol = ncol(data), nrow = nrow(data))
    }
    else {
      stop("Attempted to convert an unrecognizable object.")
    }
    rownames(pdata) <- rownames(data)
    colnames(pdata) <- colnames(data)

    for (i in 1:ncol(pdata)){
      pdata[ ,i] <- as.numeric( as.character( data[ , i] ) )
    }
  }

  return(pdata)
}

toOperableVector <- function( vector_ ) {
  #requires one dimensional thing

  if (is.data.frame(vector_)) {
    vector_ <- sapply( vector_, function(x) {return(as.numeric(as.character(x)))} )
  }
  else if (is.matrix(vector_)){
    vector_ <- apply(vector_, MARGIN = 2,
                     FUN = function(x) {return(as.numeric(as.character(x)))}
                     )

  }
  else if (is.vector(vector_)) {
    vector_ <- as.numeric(as.character(vector_))
  }
  return( vector_ )
}