Hi:
Try this:
library('lattice')
xyplot(y ~ x,
type = c('g', 'p'),
panel = function(x, y, ...){
panel.xyplot(x, y, ...)
panel.lines(x, predict(fm), col = 'black', lwd = 2)
}
)
HTH,
Dennis
On Wed, Nov 23, 2011 at 9:18
On Wed, Nov 23, 2011 at 10:48 PM, Doran, Harold wrote:
> Given the following data, I want a scatterplot with the data points and the
> predictions from the regression.
>
> Sigma <- matrix(c(1,.6,1,.6), 2)
> mu <- c(0,0)
> dat <- mvrnorm(5000, mu, Sigma)
>
> x <- dat[,1] * 50 + 200
> y <- dat[,2]
Given the following data, I want a scatterplot with the data points and the
predictions from the regression.
Sigma <- matrix(c(1,.6,1,.6), 2)
mu <- c(0,0)
dat <- mvrnorm(5000, mu, Sigma)
x <- dat[,1] * 50 + 200
y <- dat[,2] * 50 + 200
fm <- lm(y ~ x)
### This gives the regression line, but not
3 matches
Mail list logo
