G Antwoorden

G.1 Hoofdstuk 4

Oefening 4.2.

library(beeswarm)
library(vioplot)

rhDNase <- rhDNase %>% as.data.table
bduur_log <- rhDNase[,  log(ivstop - ivstart)]
bduur_log <- bduur_log[!is.na(bduur_log) & !is.infinite(bduur_log)]

par(mfrow = c(2, 2), pch = 19, mar = rep(1, 4), xaxt = "n")

bduur_log %>% dotchart(pch = 19, lcolor = NA)
bduur_log %>% boxplot(horizontal = TRUE)
bduur_log %>% beeswarm(horizontal = TRUE)
bduur_log %>% vioplot(horizontal = TRUE)