added histogram.R