Nothing
with(muscle, {
TypeI <- TypeI.P+TypeI.R+TypeI.B
sm.poisson(log(TypeI), TypeII, 0.25, display="se")
pm <- glm(TypeII ~ log(TypeI), family=poisson)
lines(sort(log(TypeI)), fitted(pm)[order(log(TypeI))],
col=4, lty=6)
})
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.