# NOT RUN {
data(DataMix)
Y <- DataMix[,2]
X <- DataMix[,7]
NomeY <- "Media das notas"
NomeX <- "Cafes comerciais"
Res <- Regr(Y, X, namevarx = NomeX ,intercepts = TRUE, sigf = 0.05)
Tit <- c("Scatterplot")
Plot.Regr(Res, typegraf = "Scatterplot", title = Tit,
namevary = NomeY, namevarx = NomeX, color = TRUE)
Tit <- c("Grafico de Dispersao com a \n reta ajustada")
Plot.Regr(Res, typegraf = "Regression", title = Tit,
xlabel = NomeX, ylabel = NomeY, color = TRUE,
intconf = TRUE, intprev = TRUE)
dev.new() # necessario para nao sobrepor os graficos seguintes ao grafico anterior
par(mfrow = c(2,2))
Plot.Regr(Res, typegraf = "QQPlot", casc = FALSE)
Plot.Regr(Res, typegraf = "Histogram", casc = FALSE)
Plot.Regr(Res, typegraf = "Fits", casc = FALSE)
Plot.Regr(Res, typegraf = "Order", casc = FALSE)
# }
Run the code above in your browser using DataLab