R/ds.mdPattern.R

In stefvanbuuren/dsMiceClient: Distributed Multiple Imputations

#-------------------------------------- HEADER --------------------------------------------#
#' @title Model Fitted Values
#' @description Computes the fitted values from objects returned by modeling functions.
#' @details Considering \code{y} as a response variable and x as study variable, the fitted values are the y-values that
#' would expect for the given x-values according to the best-fitting straight line.
#' @param regression an object of regression model.
#' @param checks a boolean, if TRUE (default) checks that verify elements on the server side
#' such checks lengthen the run-time so the default is FALSE and one can switch these checks
#' on (set to TRUE) when faced with some error(s).
#' @param datasources a list of opal object(s) obtained after login in to opal servers;
#' these objects hold also the data assign to R, as \code{data frame}, from opal datasources.
#' @return a list of fitted values.
#' @author Paula Raissa Costa e Silva
#' @section Dependencies:
#' \code{\link{fittedDS}}
#' @export
#' 

ds.mdPattern <- function(datasources) {
  
  if (is.null(datasources)) {
    datasources <- findLoginObjects()
  }
  
  cally <- call("md.patternDS")
  result <- datashield.aggregate(datasources, cally)
  
  orderedClusters <- result[order(sapply(result,length),decreasing=T)]
  
  return(orderedClusters)
  
}