R/utils.R

In Martins6/distgeomodel: Kriging with Non-Euclidean Distances

#' Vectorizing a Matrix.
#'
#' @param a A matrix
#' @return A vectorized matrix, a vector.
#' @export
vectorizing_fun <- function(x){

  # 'x' is a matrix

  x[!lower.tri(x)] <- NA # Filling the upper part of the triangle with NA's
  x <- as.vector(x) # Making the matrix a vector
  res <- x[!is.na(x)] # Taking out the NA's
  return(res) # returning only the lower triangle part of the matrix
}