Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationWed, 06 Jan 2010 23:55:48 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Jan/07/t1262847394ghy2yphx3p8mi2v.htm/, Retrieved Thu, 02 May 2024 02:34:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=71727, Retrieved Thu, 02 May 2024 02:34:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W22
Estimated Impact213
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Histogram bruin b...] [2010-01-07 06:55:48] [5429fe6e3351c98316e03e842ad8f5e4] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,38
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,43
1,44
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,48
1,57
1,58
1,58
1,58
1,58
1,59
1,6
1,6
1,61
1,61
1,61
1,62
1,63
1,63
1,64
1,64
1,64
1,64
1,64
1,65
1,65
1,65
1,65
1,65
1,66
1,66
1,67
1,68
1,68
1,68
1,68
1,69
1,7
1,7
1,71
1,72
1,73
1,74
1,74
1,75
1,75
1,75
1,76
1,79
1,83
1,84
1,85
1,87
1,87
1,87
1,88
1,88
1,88
1,88
1,89
1,89
1,89
1,9
1,89




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 3 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=71727&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=71727&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=71727&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[1.38,1.39[1.385230.1742420.17424217.424242
[1.39,1.4[1.395000.1742420
[1.4,1.41[1.405000.1742420
[1.41,1.42[1.415000.1742420
[1.42,1.43[1.425000.1742420
[1.43,1.44[1.435190.1439390.31818214.393939
[1.44,1.45[1.44510.0075760.3257580.757576
[1.45,1.46[1.455000.3257580
[1.46,1.47[1.465000.3257580
[1.47,1.48[1.475000.3257580
[1.48,1.49[1.485300.2272730.5530322.727273
[1.49,1.5[1.495000.553030
[1.5,1.51[1.505000.553030
[1.51,1.52[1.515000.553030
[1.52,1.53[1.525000.553030
[1.53,1.54[1.535000.553030
[1.54,1.55[1.545000.553030
[1.55,1.56[1.555000.553030
[1.56,1.57[1.565000.553030
[1.57,1.58[1.57510.0075760.5606060.757576
[1.58,1.59[1.58540.0303030.5909093.030303
[1.59,1.6[1.59510.0075760.5984850.757576
[1.6,1.61[1.60520.0151520.6136361.515152
[1.61,1.62[1.61530.0227270.6363642.272727
[1.62,1.63[1.62510.0075760.6439390.757576
[1.63,1.64[1.63520.0151520.6590911.515152
[1.64,1.65[1.64550.0378790.696973.787879
[1.65,1.66[1.65550.0378790.7348483.787879
[1.66,1.67[1.66520.0151520.751.515152
[1.67,1.68[1.67510.0075760.7575760.757576
[1.68,1.69[1.68540.0303030.7878793.030303
[1.69,1.7[1.69510.0075760.7954550.757576
[1.7,1.71[1.70520.0151520.8106061.515152
[1.71,1.72[1.71510.0075760.8181820.757576
[1.72,1.73[1.72510.0075760.8257580.757576
[1.73,1.74[1.73510.0075760.8333330.757576
[1.74,1.75[1.74520.0151520.8484851.515152
[1.75,1.76[1.75530.0227270.8712122.272727
[1.76,1.77[1.76510.0075760.8787880.757576
[1.77,1.78[1.775000.8787880
[1.78,1.79[1.785000.8787880
[1.79,1.8[1.79510.0075760.8863640.757576
[1.8,1.81[1.805000.8863640
[1.81,1.82[1.815000.8863640
[1.82,1.83[1.825000.8863640
[1.83,1.84[1.83510.0075760.8939390.757576
[1.84,1.85[1.84510.0075760.9015150.757576
[1.85,1.86[1.85510.0075760.9090910.757576
[1.86,1.87[1.865000.9090910
[1.87,1.88[1.87530.0227270.9318182.272727
[1.88,1.89[1.88540.0303030.9621213.030303
[1.89,1.9]1.89550.03787913.787878

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[1.38,1.39[ & 1.385 & 23 & 0.174242 & 0.174242 & 17.424242 \tabularnewline
[1.39,1.4[ & 1.395 & 0 & 0 & 0.174242 & 0 \tabularnewline
[1.4,1.41[ & 1.405 & 0 & 0 & 0.174242 & 0 \tabularnewline
[1.41,1.42[ & 1.415 & 0 & 0 & 0.174242 & 0 \tabularnewline
[1.42,1.43[ & 1.425 & 0 & 0 & 0.174242 & 0 \tabularnewline
[1.43,1.44[ & 1.435 & 19 & 0.143939 & 0.318182 & 14.393939 \tabularnewline
[1.44,1.45[ & 1.445 & 1 & 0.007576 & 0.325758 & 0.757576 \tabularnewline
[1.45,1.46[ & 1.455 & 0 & 0 & 0.325758 & 0 \tabularnewline
[1.46,1.47[ & 1.465 & 0 & 0 & 0.325758 & 0 \tabularnewline
[1.47,1.48[ & 1.475 & 0 & 0 & 0.325758 & 0 \tabularnewline
[1.48,1.49[ & 1.485 & 30 & 0.227273 & 0.55303 & 22.727273 \tabularnewline
[1.49,1.5[ & 1.495 & 0 & 0 & 0.55303 & 0 \tabularnewline
[1.5,1.51[ & 1.505 & 0 & 0 & 0.55303 & 0 \tabularnewline
[1.51,1.52[ & 1.515 & 0 & 0 & 0.55303 & 0 \tabularnewline
[1.52,1.53[ & 1.525 & 0 & 0 & 0.55303 & 0 \tabularnewline
[1.53,1.54[ & 1.535 & 0 & 0 & 0.55303 & 0 \tabularnewline
[1.54,1.55[ & 1.545 & 0 & 0 & 0.55303 & 0 \tabularnewline
[1.55,1.56[ & 1.555 & 0 & 0 & 0.55303 & 0 \tabularnewline
[1.56,1.57[ & 1.565 & 0 & 0 & 0.55303 & 0 \tabularnewline
[1.57,1.58[ & 1.575 & 1 & 0.007576 & 0.560606 & 0.757576 \tabularnewline
[1.58,1.59[ & 1.585 & 4 & 0.030303 & 0.590909 & 3.030303 \tabularnewline
[1.59,1.6[ & 1.595 & 1 & 0.007576 & 0.598485 & 0.757576 \tabularnewline
[1.6,1.61[ & 1.605 & 2 & 0.015152 & 0.613636 & 1.515152 \tabularnewline
[1.61,1.62[ & 1.615 & 3 & 0.022727 & 0.636364 & 2.272727 \tabularnewline
[1.62,1.63[ & 1.625 & 1 & 0.007576 & 0.643939 & 0.757576 \tabularnewline
[1.63,1.64[ & 1.635 & 2 & 0.015152 & 0.659091 & 1.515152 \tabularnewline
[1.64,1.65[ & 1.645 & 5 & 0.037879 & 0.69697 & 3.787879 \tabularnewline
[1.65,1.66[ & 1.655 & 5 & 0.037879 & 0.734848 & 3.787879 \tabularnewline
[1.66,1.67[ & 1.665 & 2 & 0.015152 & 0.75 & 1.515152 \tabularnewline
[1.67,1.68[ & 1.675 & 1 & 0.007576 & 0.757576 & 0.757576 \tabularnewline
[1.68,1.69[ & 1.685 & 4 & 0.030303 & 0.787879 & 3.030303 \tabularnewline
[1.69,1.7[ & 1.695 & 1 & 0.007576 & 0.795455 & 0.757576 \tabularnewline
[1.7,1.71[ & 1.705 & 2 & 0.015152 & 0.810606 & 1.515152 \tabularnewline
[1.71,1.72[ & 1.715 & 1 & 0.007576 & 0.818182 & 0.757576 \tabularnewline
[1.72,1.73[ & 1.725 & 1 & 0.007576 & 0.825758 & 0.757576 \tabularnewline
[1.73,1.74[ & 1.735 & 1 & 0.007576 & 0.833333 & 0.757576 \tabularnewline
[1.74,1.75[ & 1.745 & 2 & 0.015152 & 0.848485 & 1.515152 \tabularnewline
[1.75,1.76[ & 1.755 & 3 & 0.022727 & 0.871212 & 2.272727 \tabularnewline
[1.76,1.77[ & 1.765 & 1 & 0.007576 & 0.878788 & 0.757576 \tabularnewline
[1.77,1.78[ & 1.775 & 0 & 0 & 0.878788 & 0 \tabularnewline
[1.78,1.79[ & 1.785 & 0 & 0 & 0.878788 & 0 \tabularnewline
[1.79,1.8[ & 1.795 & 1 & 0.007576 & 0.886364 & 0.757576 \tabularnewline
[1.8,1.81[ & 1.805 & 0 & 0 & 0.886364 & 0 \tabularnewline
[1.81,1.82[ & 1.815 & 0 & 0 & 0.886364 & 0 \tabularnewline
[1.82,1.83[ & 1.825 & 0 & 0 & 0.886364 & 0 \tabularnewline
[1.83,1.84[ & 1.835 & 1 & 0.007576 & 0.893939 & 0.757576 \tabularnewline
[1.84,1.85[ & 1.845 & 1 & 0.007576 & 0.901515 & 0.757576 \tabularnewline
[1.85,1.86[ & 1.855 & 1 & 0.007576 & 0.909091 & 0.757576 \tabularnewline
[1.86,1.87[ & 1.865 & 0 & 0 & 0.909091 & 0 \tabularnewline
[1.87,1.88[ & 1.875 & 3 & 0.022727 & 0.931818 & 2.272727 \tabularnewline
[1.88,1.89[ & 1.885 & 4 & 0.030303 & 0.962121 & 3.030303 \tabularnewline
[1.89,1.9] & 1.895 & 5 & 0.037879 & 1 & 3.787878 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=71727&T=1

[TABLE]
[ROW][C]Frequency Table (Histogram)[/C][/ROW]
[ROW][C]Bins[/C][C]Midpoint[/C][C]Abs. Frequency[/C][C]Rel. Frequency[/C][C]Cumul. Rel. Freq.[/C][C]Density[/C][/ROW]
[ROW][C][1.38,1.39[[/C][C]1.385[/C][C]23[/C][C]0.174242[/C][C]0.174242[/C][C]17.424242[/C][/ROW]
[ROW][C][1.39,1.4[[/C][C]1.395[/C][C]0[/C][C]0[/C][C]0.174242[/C][C]0[/C][/ROW]
[ROW][C][1.4,1.41[[/C][C]1.405[/C][C]0[/C][C]0[/C][C]0.174242[/C][C]0[/C][/ROW]
[ROW][C][1.41,1.42[[/C][C]1.415[/C][C]0[/C][C]0[/C][C]0.174242[/C][C]0[/C][/ROW]
[ROW][C][1.42,1.43[[/C][C]1.425[/C][C]0[/C][C]0[/C][C]0.174242[/C][C]0[/C][/ROW]
[ROW][C][1.43,1.44[[/C][C]1.435[/C][C]19[/C][C]0.143939[/C][C]0.318182[/C][C]14.393939[/C][/ROW]
[ROW][C][1.44,1.45[[/C][C]1.445[/C][C]1[/C][C]0.007576[/C][C]0.325758[/C][C]0.757576[/C][/ROW]
[ROW][C][1.45,1.46[[/C][C]1.455[/C][C]0[/C][C]0[/C][C]0.325758[/C][C]0[/C][/ROW]
[ROW][C][1.46,1.47[[/C][C]1.465[/C][C]0[/C][C]0[/C][C]0.325758[/C][C]0[/C][/ROW]
[ROW][C][1.47,1.48[[/C][C]1.475[/C][C]0[/C][C]0[/C][C]0.325758[/C][C]0[/C][/ROW]
[ROW][C][1.48,1.49[[/C][C]1.485[/C][C]30[/C][C]0.227273[/C][C]0.55303[/C][C]22.727273[/C][/ROW]
[ROW][C][1.49,1.5[[/C][C]1.495[/C][C]0[/C][C]0[/C][C]0.55303[/C][C]0[/C][/ROW]
[ROW][C][1.5,1.51[[/C][C]1.505[/C][C]0[/C][C]0[/C][C]0.55303[/C][C]0[/C][/ROW]
[ROW][C][1.51,1.52[[/C][C]1.515[/C][C]0[/C][C]0[/C][C]0.55303[/C][C]0[/C][/ROW]
[ROW][C][1.52,1.53[[/C][C]1.525[/C][C]0[/C][C]0[/C][C]0.55303[/C][C]0[/C][/ROW]
[ROW][C][1.53,1.54[[/C][C]1.535[/C][C]0[/C][C]0[/C][C]0.55303[/C][C]0[/C][/ROW]
[ROW][C][1.54,1.55[[/C][C]1.545[/C][C]0[/C][C]0[/C][C]0.55303[/C][C]0[/C][/ROW]
[ROW][C][1.55,1.56[[/C][C]1.555[/C][C]0[/C][C]0[/C][C]0.55303[/C][C]0[/C][/ROW]
[ROW][C][1.56,1.57[[/C][C]1.565[/C][C]0[/C][C]0[/C][C]0.55303[/C][C]0[/C][/ROW]
[ROW][C][1.57,1.58[[/C][C]1.575[/C][C]1[/C][C]0.007576[/C][C]0.560606[/C][C]0.757576[/C][/ROW]
[ROW][C][1.58,1.59[[/C][C]1.585[/C][C]4[/C][C]0.030303[/C][C]0.590909[/C][C]3.030303[/C][/ROW]
[ROW][C][1.59,1.6[[/C][C]1.595[/C][C]1[/C][C]0.007576[/C][C]0.598485[/C][C]0.757576[/C][/ROW]
[ROW][C][1.6,1.61[[/C][C]1.605[/C][C]2[/C][C]0.015152[/C][C]0.613636[/C][C]1.515152[/C][/ROW]
[ROW][C][1.61,1.62[[/C][C]1.615[/C][C]3[/C][C]0.022727[/C][C]0.636364[/C][C]2.272727[/C][/ROW]
[ROW][C][1.62,1.63[[/C][C]1.625[/C][C]1[/C][C]0.007576[/C][C]0.643939[/C][C]0.757576[/C][/ROW]
[ROW][C][1.63,1.64[[/C][C]1.635[/C][C]2[/C][C]0.015152[/C][C]0.659091[/C][C]1.515152[/C][/ROW]
[ROW][C][1.64,1.65[[/C][C]1.645[/C][C]5[/C][C]0.037879[/C][C]0.69697[/C][C]3.787879[/C][/ROW]
[ROW][C][1.65,1.66[[/C][C]1.655[/C][C]5[/C][C]0.037879[/C][C]0.734848[/C][C]3.787879[/C][/ROW]
[ROW][C][1.66,1.67[[/C][C]1.665[/C][C]2[/C][C]0.015152[/C][C]0.75[/C][C]1.515152[/C][/ROW]
[ROW][C][1.67,1.68[[/C][C]1.675[/C][C]1[/C][C]0.007576[/C][C]0.757576[/C][C]0.757576[/C][/ROW]
[ROW][C][1.68,1.69[[/C][C]1.685[/C][C]4[/C][C]0.030303[/C][C]0.787879[/C][C]3.030303[/C][/ROW]
[ROW][C][1.69,1.7[[/C][C]1.695[/C][C]1[/C][C]0.007576[/C][C]0.795455[/C][C]0.757576[/C][/ROW]
[ROW][C][1.7,1.71[[/C][C]1.705[/C][C]2[/C][C]0.015152[/C][C]0.810606[/C][C]1.515152[/C][/ROW]
[ROW][C][1.71,1.72[[/C][C]1.715[/C][C]1[/C][C]0.007576[/C][C]0.818182[/C][C]0.757576[/C][/ROW]
[ROW][C][1.72,1.73[[/C][C]1.725[/C][C]1[/C][C]0.007576[/C][C]0.825758[/C][C]0.757576[/C][/ROW]
[ROW][C][1.73,1.74[[/C][C]1.735[/C][C]1[/C][C]0.007576[/C][C]0.833333[/C][C]0.757576[/C][/ROW]
[ROW][C][1.74,1.75[[/C][C]1.745[/C][C]2[/C][C]0.015152[/C][C]0.848485[/C][C]1.515152[/C][/ROW]
[ROW][C][1.75,1.76[[/C][C]1.755[/C][C]3[/C][C]0.022727[/C][C]0.871212[/C][C]2.272727[/C][/ROW]
[ROW][C][1.76,1.77[[/C][C]1.765[/C][C]1[/C][C]0.007576[/C][C]0.878788[/C][C]0.757576[/C][/ROW]
[ROW][C][1.77,1.78[[/C][C]1.775[/C][C]0[/C][C]0[/C][C]0.878788[/C][C]0[/C][/ROW]
[ROW][C][1.78,1.79[[/C][C]1.785[/C][C]0[/C][C]0[/C][C]0.878788[/C][C]0[/C][/ROW]
[ROW][C][1.79,1.8[[/C][C]1.795[/C][C]1[/C][C]0.007576[/C][C]0.886364[/C][C]0.757576[/C][/ROW]
[ROW][C][1.8,1.81[[/C][C]1.805[/C][C]0[/C][C]0[/C][C]0.886364[/C][C]0[/C][/ROW]
[ROW][C][1.81,1.82[[/C][C]1.815[/C][C]0[/C][C]0[/C][C]0.886364[/C][C]0[/C][/ROW]
[ROW][C][1.82,1.83[[/C][C]1.825[/C][C]0[/C][C]0[/C][C]0.886364[/C][C]0[/C][/ROW]
[ROW][C][1.83,1.84[[/C][C]1.835[/C][C]1[/C][C]0.007576[/C][C]0.893939[/C][C]0.757576[/C][/ROW]
[ROW][C][1.84,1.85[[/C][C]1.845[/C][C]1[/C][C]0.007576[/C][C]0.901515[/C][C]0.757576[/C][/ROW]
[ROW][C][1.85,1.86[[/C][C]1.855[/C][C]1[/C][C]0.007576[/C][C]0.909091[/C][C]0.757576[/C][/ROW]
[ROW][C][1.86,1.87[[/C][C]1.865[/C][C]0[/C][C]0[/C][C]0.909091[/C][C]0[/C][/ROW]
[ROW][C][1.87,1.88[[/C][C]1.875[/C][C]3[/C][C]0.022727[/C][C]0.931818[/C][C]2.272727[/C][/ROW]
[ROW][C][1.88,1.89[[/C][C]1.885[/C][C]4[/C][C]0.030303[/C][C]0.962121[/C][C]3.030303[/C][/ROW]
[ROW][C][1.89,1.9][/C][C]1.895[/C][C]5[/C][C]0.037879[/C][C]1[/C][C]3.787878[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=71727&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=71727&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[1.38,1.39[1.385230.1742420.17424217.424242
[1.39,1.4[1.395000.1742420
[1.4,1.41[1.405000.1742420
[1.41,1.42[1.415000.1742420
[1.42,1.43[1.425000.1742420
[1.43,1.44[1.435190.1439390.31818214.393939
[1.44,1.45[1.44510.0075760.3257580.757576
[1.45,1.46[1.455000.3257580
[1.46,1.47[1.465000.3257580
[1.47,1.48[1.475000.3257580
[1.48,1.49[1.485300.2272730.5530322.727273
[1.49,1.5[1.495000.553030
[1.5,1.51[1.505000.553030
[1.51,1.52[1.515000.553030
[1.52,1.53[1.525000.553030
[1.53,1.54[1.535000.553030
[1.54,1.55[1.545000.553030
[1.55,1.56[1.555000.553030
[1.56,1.57[1.565000.553030
[1.57,1.58[1.57510.0075760.5606060.757576
[1.58,1.59[1.58540.0303030.5909093.030303
[1.59,1.6[1.59510.0075760.5984850.757576
[1.6,1.61[1.60520.0151520.6136361.515152
[1.61,1.62[1.61530.0227270.6363642.272727
[1.62,1.63[1.62510.0075760.6439390.757576
[1.63,1.64[1.63520.0151520.6590911.515152
[1.64,1.65[1.64550.0378790.696973.787879
[1.65,1.66[1.65550.0378790.7348483.787879
[1.66,1.67[1.66520.0151520.751.515152
[1.67,1.68[1.67510.0075760.7575760.757576
[1.68,1.69[1.68540.0303030.7878793.030303
[1.69,1.7[1.69510.0075760.7954550.757576
[1.7,1.71[1.70520.0151520.8106061.515152
[1.71,1.72[1.71510.0075760.8181820.757576
[1.72,1.73[1.72510.0075760.8257580.757576
[1.73,1.74[1.73510.0075760.8333330.757576
[1.74,1.75[1.74520.0151520.8484851.515152
[1.75,1.76[1.75530.0227270.8712122.272727
[1.76,1.77[1.76510.0075760.8787880.757576
[1.77,1.78[1.775000.8787880
[1.78,1.79[1.785000.8787880
[1.79,1.8[1.79510.0075760.8863640.757576
[1.8,1.81[1.805000.8863640
[1.81,1.82[1.815000.8863640
[1.82,1.83[1.825000.8863640
[1.83,1.84[1.83510.0075760.8939390.757576
[1.84,1.85[1.84510.0075760.9015150.757576
[1.85,1.86[1.85510.0075760.9090910.757576
[1.86,1.87[1.865000.9090910
[1.87,1.88[1.87530.0227270.9318182.272727
[1.88,1.89[1.88540.0303030.9621213.030303
[1.89,1.9]1.89550.03787913.787878



Parameters (Session):
par1 = 40 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = 40 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
if (par3 == 'TRUE') par3 <- TRUE
if (par3 == 'FALSE') par3 <- FALSE
if (par4 == 'Unknown') par1 <- as.numeric(par1)
if (par4 == 'Interval/Ratio') par1 <- as.numeric(par1)
if (par4 == '3-point Likert') par1 <- c(1:3 - 0.5, 3.5)
if (par4 == '4-point Likert') par1 <- c(1:4 - 0.5, 4.5)
if (par4 == '5-point Likert') par1 <- c(1:5 - 0.5, 5.5)
if (par4 == '6-point Likert') par1 <- c(1:6 - 0.5, 6.5)
if (par4 == '7-point Likert') par1 <- c(1:7 - 0.5, 7.5)
if (par4 == '8-point Likert') par1 <- c(1:8 - 0.5, 8.5)
if (par4 == '9-point Likert') par1 <- c(1:9 - 0.5, 9.5)
if (par4 == '10-point Likert') par1 <- c(1:10 - 0.5, 10.5)
bitmap(file='test1.png')
if (is.na(par1)) {
myhist<-hist(x,col=par2,main=main,xlab=xlab,right=par3)
} else {
if (par1 < 0) par1 <- 3
if (par1 > 50) par1 <- 50
myhist<-hist(x,breaks=par1,col=par2,main=main,xlab=xlab,right=par3)
}
dev.off()
myhist
n <- length(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('histogram.htm','Frequency Table (Histogram)',''),6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Bins',header=TRUE)
a<-table.element(a,'Midpoint',header=TRUE)
a<-table.element(a,'Abs. Frequency',header=TRUE)
a<-table.element(a,'Rel. Frequency',header=TRUE)
a<-table.element(a,'Cumul. Rel. Freq.',header=TRUE)
a<-table.element(a,'Density',header=TRUE)
a<-table.row.end(a)
crf <- 0
if (par3 == FALSE) mybracket <- '[' else mybracket <- ']'
mynumrows <- (length(myhist$breaks)-1)
for (i in 1:mynumrows) {
a<-table.row.start(a)
if (i == 1)
dum <- paste('[',myhist$breaks[i],sep='')
else
dum <- paste(mybracket,myhist$breaks[i],sep='')
dum <- paste(dum,myhist$breaks[i+1],sep=',')
if (i==mynumrows)
dum <- paste(dum,']',sep='')
else
dum <- paste(dum,mybracket,sep='')
a<-table.element(a,dum,header=TRUE)
a<-table.element(a,myhist$mids[i])
a<-table.element(a,myhist$counts[i])
rf <- myhist$counts[i]/n
crf <- crf + rf
a<-table.element(a,round(rf,6))
a<-table.element(a,round(crf,6))
a<-table.element(a,round(myhist$density[i],6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')