Nothing
data (course.df)
diffs<-course.df$Assign-course.df$Test
stripchart(diffs,pch=1,method="stack",main="Assignment score - Test score",xlab="differences")
summaryStats(diffs)
normcheck(diffs)
t.test(course.df$Assign,course.df$Test,paired=T)
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.