powered by
detect(lib = libscheme("NNK", 7), size = 10^8)
summary(detect()) require(ggplot2) lib <- libscheme("NNK", 7) qplot(detect(lib, size=10^8), weight=di, geom="histogram", data=lib$data)
Run the code above in your browser using DataLab