#use "topfind";;
#require "R.stats";;
#require "R.graphics";;
#require "R.grDevices";;

let _ = print_endline "Beginning.";;

let _ = R.eval_string "bindat<-rbinom(1000,50,.8)";;
let _ = R.eval_string "png(\"ocamlinit.png\")";;
let _ = R.eval_string "hist(bindat,breaks=seq(30,50,1))";;
let _ = R.eval_string "lines(seq(30,50,1),dbinom(seq(30,50,1),50,0.8)* 1e+3 ,col=\"green\")";;
let _ = R.eval_string "dev.off()";;
