R/readY.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

# ' a summary-like function
# ' @param A coefficient vector
# ' @param labels name of the covariates
# ' @param X the dataset (named) if labels is null
# ' @param intercept boolean defining wether A contains an intercept or not
# ' @param ANOVA boolean to add Anova test for each coefficient
# ' @param verbose boolean to print ANOVA if computed
# ' @param Y the response variable if ANOVA is computed
# '@export
readY <- function(A = A, labels = NULL, X = NULL, intercept = TRUE, ANOVA = FALSE, verbose = FALSE, Y = NULL) {
   if (is.null(labels)) {
      labels = names(X)
   }
   if (intercept) {labels = c("intercept", labels)}
   interp = cbind(A[A != 0], labels[A != 0])
   if (ANOVA & !is.null(X) & !is.null(Y)) {
      Xred = X[, A[-intercept] != 0]
      reslm = lm(Y ~ ., data = data.frame(Xred))
      interp = summary(reslm)
   }
   if (verbose) {print(interp)}
   return(interp)
}