set.seed(1)
X <- big_attachExtdata()
y <- rnorm(nrow(X))
test <- big_univLinReg(X, y)
plot(test)
plot(test, type = "Volcano")
plot(test, type = "Q-Q")
plot(test, type = "Manhattan")
plot(test, type = "Manhattan") + ggplot2::ggtitle(NULL)
Run the code above in your browser using DataLab