#' LoadAgregationMatrix
#'
#' @param x address to a file with AgregationMatrix
#'
#' @return NULL
#' @export
#'
# @examples
#'
#' @importFrom utils read.csv
#'
LoadAgregationMatrix <- function(x){
if (is.na(x)) x = "./R/AgregationMatrix.csv"
agregationMatrix <- utils::read.csv(x, row.names = 1, header = TRUE)
save(agregationMatrix,file = "./R/agregationMatrix.Rda")
load("./R/agregationMatrix.Rda")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.