Nothing
mf <- par("mfrow")
par (mfrow=c(1,1))
example(tran.1D)
example(tran.volume.1D)
example(tran.2D)
example(setup.compaction.1D)
example(setup.prop.1D)
example(fiadeiro)
par (mfrow=mf)
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.