Nothing
star.plot3 <- xyplot(dfbeta(star.model2)[,'temp']~index,
data=hotstar,
ylab="DFBETA",
panel=function(x,y,...) {
ids <- which(abs(y) > 0.5)
panel.xyplot(x,y,...)
grid.text(
x=x[ids]+1.5, y = y[ids],
as.character(ids), default.units="native")
})
coef(lm(light~temp,hotstar))
coef(lm(light~temp,hotstar[-7,]))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.