# NOT RUN {
zd <- zeq_example
ori <- par()$mfrow
par(mfrow = c(1,2))
zijderveld(dec = zd$Dec, inc = zd$Inc, int = zd$Int,
xh = "WE", unit = 10^-5)
zijderveld(dec = zd$Dec, inc = zd$Inc, int = zd$Int,
style = "box1", scientific = FALSE, decimals = 5,
labels = zd$Treat, nlabels = 2)
par(mfrow = ori)
# }
Run the code above in your browser using DataLab