matrixSetting <- function(mtxpath, logger){
  
  if(is.null(mtxpath) || !file.exists(mtxpath)){
    log4r::warn(logger, "No transition matrix file found.")
    return(NULL)
  }
  
  TransMtxDF <- readDF(filepath = mtxpath, logger = logger)
  cropNamesCol <- tolower(colnames(TransMtxDF))[-1]
  cropNamesRow <- tolower(TransMtxDF[[1]])
  
  if(any(cropNamesCol != cropNamesRow)){
    log4r::fatal(logger, "Transition matrix: column and row names aren't matching.")
    stop() 
  }
  
  TransMtxDF[1] <- NULL
  colnames(TransMtxDF) <- cropNamesCol
  rownames(TransMtxDF) <- cropNamesRow
  
  return(as.matrix(TransMtxDF))
}