R/produtoMatrizesDS.R

Defines functions produtoMatrizesDS

Documented in produtoMatrizesDS

#'
#' @title title
#' @description desc
#' @details details
#' @param x
#' @return return value
#' @export
#'
produtoMatrizesDS <- function (x) {
  
  # check if the input vector is valid (i.e. meets DataSHIELD privacy criteria)
  check <- dsBase:::isValidDS(x)
  
  # return missing value if the input vector is not valid
  if (check) {
    
    if (typeof(x) == "list") result <- t(x[[1]]) %*% x[[2]]
    else  result <- t(x) %*% x
    
  } else {
    result <- NA
  }
  
  return(result)
}
gflcampos/dsRegression documentation built on Nov. 18, 2017, 1:03 p.m.