Re: Frequency data
- To: mathgroup at smc.vnet.net
- Subject: [mg99745] Re: Frequency data
- From: suhrob.sultanov at gmail.com
- Date: Wed, 13 May 2009 05:06:28 -0400 (EDT)
- References: <gu8udl$6pq$1@smc.vnet.net>
On May 11, 12:24 pm, suhrob.sulta... at gmail.com wrote: Thanks so much everybody for answering my question and solving the problem, it works : $Version 6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007) Needs["Histograms`"]; n = 1000; data = RandomReal[NormalDistribution[0, 1], {n}]; lb = Floor[5*Min[data]]/5. ub = Ceiling[5*Max[data]]/5. freq = BinCounts[data, {lb, ub, .2}]/n; Total[freq] 1 GraphicsArray[{ Show[{ Histogram[data, HistogramScale -> 1], Plot[PDF[NormalDistribution[0, 1], x], {x, lb, ub}, PlotStyle -> {Red, AbsoluteThickness[2]}]}], Histogram[freq, FrequencyData -> True]}, ImageSize -> 600]