data(DataMix)
Y <- DataMix[,2]
X <- DataMix[,6:7]
name.x <- c("Special Coffees", "Commercial Coffees")
res <- Regr(Y, X, namevarx = name.x , intercept = TRUE, sigf = 0.05)
print("Regression Coefficients:"); round(res$Betas,4)
print("Analysis of Variance:"); res$ANOVA
print("Hypothesis test of regression coefficients:"); round(res$hip.test,4)
print("Determination coefficient:"); round(res$R,4)
print("Corrected coefficient of determination:"); round(res$Rc,4)
print("Adjusted coefficient of determination:"); round(res$Ra,4)
print("Tests of the residues"); res$error.test
Run the code above in your browser using DataLab