x <- rnorm(100, mean = 0, sd = 2)
y <- x + rnorm(100, mean = 0, sd = .5)
data <- data.frame(x, y)
plot_ly(data, x = x, y = y, type = 'scatter', mode = 'markers') %>%
add_lines(x = x, y = fitted(lm(y ~ x, data = data)), name = 'Fitted')
x <- rnorm(100, mean = 0, sd = 2)
y <- -x + rnorm(100, mean = 0, sd = .5)
data <- data.frame(x, y)
ggplot(data, aes(x = x, y = y)) +
geom_point() +
geom_smooth(method='lm', formula= y~x)
x <- rnorm(100, mean = 0, sd = 2)
y <- rnorm(100, mean = 0, sd = 2)
data <- data.frame(x, y)
ggplot(data, aes(x = x, y = y)) +
geom_point() +
geom_smooth(method='lm', formula= y~x)