R/Logistic.R

In yi522/SimSAUC: Reproduce simulation results of SAUC

#' Logistic
#'
#' This a function to get MLE of a logitic model
#'
#'
#' @param l a matrix containing outcome and markers. Please put outcome in the
#' first column of the matrix, and put markers in the rest columns
#' @return it returns the MLE of coefficients
#' @importFrom stats glm
#' @export

Logistic <- function(l){
  lr <- glm(ind_train~.-1, data=l, family = binomial(link = "logit"))
  return(lr$coefficients)
}