data(tube10)
waterloo <- tube10[1:(4*24), "Waterloo"] # Omit the totals and the peaks
barplot(unlist(waterloo))
barplot(log10(1 + unlist(waterloo)), col = "lightblue",
ylab = "log10(1+.)", las = 1)Run the code above in your browser using DataLab