Nothing
pred <- transform(read.table("lines-data.txt"),
replicate=factor(replicate),
nu=factor(nu))
direct.label(xyplot(rate~log10(gamma)|replicate+nu,pred,groups=data,type="l"))
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.