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]