data(DataMix)
Y <- DataMix[,2]
X <- DataMix[,6:7]
name.x <- c("Cafes Expeciais","Cafes Comerciais")
res <- Regr(Y, X, namevarx = name.x , intercept = TRUE, sigf = 0.05)
print("Coeficientes da Regressao:"); round(res$Betas,4)
print("Analise de Variancia:"); res$ANOVA
print("Teste de Hipoteses dos Coeficientes da Regressao:"); round(res$hip.test,4)
print("Coeficiente de Determinacao:"); round(res$R,4)
print("Coeficiente de Determinacao Corrigido:"); round(res$Rc,4)
print("Coeficiente de Determinacao Ajustado:"); round(res$Ra,4)
print("Testes dos Residuos:"); res$error.test
Run the code above in your browser using DataLab