plot(values, type = "l",col="blue", xlim=c(1,100),ylim = c(1,25),ylab = "", xlab = "")
hist(values, xlim = c(0,25), ylim = c(0,25), col = "blue", main = "", xlab = "",ylab = "")