data(DataMix)
Y <- DataMix[,2]
X <- DataMix[,7]
name.y <- "Medium grade"
name.x <- "Commercial coffees"
res <- Regr(Y, X, namevarx = name.x , intercept = TRUE, sigf = 0.05)
tit <- c("Scatterplot")
Plot.Regr(res, typegraf = "Scatterplot", title = tit,
namevary = name.y, namevarx = name.x, color = TRUE,
savptc = FALSE, width = 3236, height = 2000, res = 300)
tit <- c("Scatterplot with the adjusted line")
Plot.Regr(res, typegraf = "Regression", title = tit,
xlabel = name.x, ylabel = name.y, color = TRUE,
intconf = TRUE, intprev = TRUE, savptc = FALSE,
width = 3236, height = 2000, res = 300)
dev.new() # necessary to not overlap the following graphs to the previous graph
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