R programming

[apierr]

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)