V2
mean(with(V2, rep(hits, times = ofreq)))
var(with(V2, rep(hits, times = ofreq)))
sum(with(V2, rep(hits, times = ofreq)))
if (FALSE) barplot(with(V2, ofreq),
names.arg = as.character(with(V2, hits)),
main = "London V2 rocket hits",
col = "lightgreen", las = 1,
ylab = "Frequency", xlab = "Hits")
Run the code above in your browser using DataLab