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)