``` d_f <- read.csv(file = '~/metrics.uniq.csv') t_l <- d_f[d_f$total_lines != 'n/a', ]$total_lines t_l <- as.numeric(t_l) mean (t_l) boxplot(t_l) # install.packages("vioplot") library("vioplot") vioplot(t_l) ```
