Nothing
grades <- actgpa
t.test(grades$ACT)
t.test(grades$GPA)
grades.model <- lm(GPA~ACT,grades)
summary(grades.model)
grades.plot1 <- xyplot(GPA~ACT,data=grades,panel=panel.lmbands)
predict(grades.model,new=data.frame(ACT=25),interval="confidence")
predict(grades.model,new=data.frame(ACT=30),interval="prediction")
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.