if (FALSE) {
library(visa)
# Using numeric vectors for x and y:
ggplot.lmfit(1:10, 2:11)
# Using a data frame:
df <- data.frame(x = runif(10, 1, 10), y = runif(10, 2, 11) + 0.5)
ggplot.lmfit(df, aes(x, y))
}
Run the code above in your browser using DataLab