R/ji.var.ds.R

In datashield/ji.dev.sv: ji.dev.sv

#'
#' @title Computes the variance of a vector or matrix
#' @param x a numeric vector, matrix or data frame.
#' @param y \code{NULL} (default) or a vector, matrix or data frame with compatible dimensions to \code{x}.
#' @return a single value if \code{x} and \code{y} are vectors and a matrix otherwise
#' @author Isaeva, J.
#' @export
#' @examples 
#' \dontrun{
#' # load the file that contains the login details
#' library(opal)
#' data(logindata)
#' 
#' # login and assign a numeric variable to R
#' myvar <- list("LAB_TSC","LAB_TRIG")
#' opals <- datashield.login(logins=logindata,assign=TRUE,variables=myvar)
#' 
#' # compute the variance of LAB_TSC
#' stat.var <- datashield.aggregate(opals, quote(ji.var.ds(D$LAB_TSC)))
#' 
#' # compute the variance of matrix (LAB_TSC,LAB_TRIG)
#' datashield.assign(opals,'dummy', quote(cbind(D$LAB_TSC,D$LAB_TRIG)))
#' stat.var <- datashield.aggregate(opals, quote(ji.var.ds(dummy)))
#' }
#'
ji.var.ds <- function (x, y=NULL) {
#   if(length(xvect) > 0 & length(xvect) < 5){
#     stop("Operation not allowed: argument contains between 1 and 4 observations only!\n")
#   }else{
    result <- var(x, y, na.rm=TRUE) 
#   }
  return(result)
}