R/set_projection.R

In SPACO: Spatial Component Analysis for Spatial Sequencing Data

#' Set projections of Spaco Object
#'
#' @param SpaCoObject Fitted object of class \code{SpaCoObject} as returned from [SpaCo] on which to update the projection slot with new data.
#' @param data gene expression data matrix; p genes as columns, n loci as rows
#' @param neighborhood neighborhood matrix of the new data. Must be of dimension n times n, where n is the number of columns of \code{data}
#' @return
#' Returns the SpaCoObject with the updated data, neighborhood matrix, and projection matrix.
#' @export
set_projection <- function(SpaCoObject,
                           data,
                           neighborhood = SpaCoObject@neighbours) {
  SpaCoObject@data <- data
  GL <- computeGraphLaplacian(neighborhood)
  SpaCoObject@GraphLaplacian <- GL
  SpaCoObject@projection <-
    eigenMapMatMult(data, SpaCoObject@spacs)
  SpaCoObject
}