Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationTue, 18 Aug 2009 09:25:08 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Aug/18/t1250609162wl755w32milj8xa.htm/, Retrieved Tue, 07 May 2024 04:16:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=42841, Retrieved Tue, 07 May 2024 04:16:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact149
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Opgave 2 oef.2 - ...] [2009-08-18 15:25:08] [0d1085ed835696cdd537ad5fa07600ec] [Current]
Feedback Forum

Post a new message
Dataseries X:
24.984
23.201
22.265
23.313
24.172
24.056
11.295




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42841&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]1 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=42841&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42841&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 time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[11.2,11.4[11.310.1428570.1428570.714286
[11.4,11.6[11.5000.1428570
[11.6,11.8[11.7000.1428570
[11.8,12[11.9000.1428570
[12,12.2[12.1000.1428570
[12.2,12.4[12.3000.1428570
[12.4,12.6[12.5000.1428570
[12.6,12.8[12.7000.1428570
[12.8,13[12.9000.1428570
[13,13.2[13.1000.1428570
[13.2,13.4[13.3000.1428570
[13.4,13.6[13.5000.1428570
[13.6,13.8[13.7000.1428570
[13.8,14[13.9000.1428570
[14,14.2[14.1000.1428570
[14.2,14.4[14.3000.1428570
[14.4,14.6[14.5000.1428570
[14.6,14.8[14.7000.1428570
[14.8,15[14.9000.1428570
[15,15.2[15.1000.1428570
[15.2,15.4[15.3000.1428570
[15.4,15.6[15.5000.1428570
[15.6,15.8[15.7000.1428570
[15.8,16[15.9000.1428570
[16,16.2[16.1000.1428570
[16.2,16.4[16.3000.1428570
[16.4,16.6[16.5000.1428570
[16.6,16.8[16.7000.1428570
[16.8,17[16.9000.1428570
[17,17.2[17.1000.1428570
[17.2,17.4[17.3000.1428570
[17.4,17.6[17.5000.1428570
[17.6,17.8[17.7000.1428570
[17.8,18[17.9000.1428570
[18,18.2[18.1000.1428570
[18.2,18.4[18.3000.1428570
[18.4,18.6[18.5000.1428570
[18.6,18.8[18.7000.1428570
[18.8,19[18.9000.1428570
[19,19.2[19.1000.1428570
[19.2,19.4[19.3000.1428570
[19.4,19.6[19.5000.1428570
[19.6,19.8[19.7000.1428570
[19.8,20[19.9000.1428570
[20,20.2[20.1000.1428570
[20.2,20.4[20.3000.1428570
[20.4,20.6[20.5000.1428570
[20.6,20.8[20.7000.1428570
[20.8,21[20.9000.1428570
[21,21.2[21.1000.1428570
[21.2,21.4[21.3000.1428570
[21.4,21.6[21.5000.1428570
[21.6,21.8[21.7000.1428570
[21.8,22[21.9000.1428570
[22,22.2[22.1000.1428570
[22.2,22.4[22.310.1428570.2857140.714286
[22.4,22.6[22.5000.2857140
[22.6,22.8[22.7000.2857140
[22.8,23[22.9000.2857140
[23,23.2[23.1000.2857140
[23.2,23.4[23.320.2857140.5714291.428571
[23.4,23.6[23.5000.5714290
[23.6,23.8[23.7000.5714290
[23.8,24[23.9000.5714290
[24,24.2[24.120.2857140.8571431.428571
[24.2,24.4[24.3000.8571430
[24.4,24.6[24.5000.8571430
[24.6,24.8[24.7000.8571430
[24.8,25]24.910.14285710.714286

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[11.2,11.4[ & 11.3 & 1 & 0.142857 & 0.142857 & 0.714286 \tabularnewline
[11.4,11.6[ & 11.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[11.6,11.8[ & 11.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[11.8,12[ & 11.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[12,12.2[ & 12.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[12.2,12.4[ & 12.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[12.4,12.6[ & 12.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[12.6,12.8[ & 12.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[12.8,13[ & 12.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[13,13.2[ & 13.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[13.2,13.4[ & 13.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[13.4,13.6[ & 13.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[13.6,13.8[ & 13.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[13.8,14[ & 13.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[14,14.2[ & 14.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[14.2,14.4[ & 14.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[14.4,14.6[ & 14.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[14.6,14.8[ & 14.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[14.8,15[ & 14.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[15,15.2[ & 15.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[15.2,15.4[ & 15.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[15.4,15.6[ & 15.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[15.6,15.8[ & 15.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[15.8,16[ & 15.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[16,16.2[ & 16.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[16.2,16.4[ & 16.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[16.4,16.6[ & 16.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[16.6,16.8[ & 16.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[16.8,17[ & 16.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[17,17.2[ & 17.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[17.2,17.4[ & 17.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[17.4,17.6[ & 17.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[17.6,17.8[ & 17.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[17.8,18[ & 17.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[18,18.2[ & 18.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[18.2,18.4[ & 18.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[18.4,18.6[ & 18.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[18.6,18.8[ & 18.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[18.8,19[ & 18.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[19,19.2[ & 19.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[19.2,19.4[ & 19.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[19.4,19.6[ & 19.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[19.6,19.8[ & 19.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[19.8,20[ & 19.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[20,20.2[ & 20.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[20.2,20.4[ & 20.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[20.4,20.6[ & 20.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[20.6,20.8[ & 20.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[20.8,21[ & 20.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[21,21.2[ & 21.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[21.2,21.4[ & 21.3 & 0 & 0 & 0.142857 & 0 \tabularnewline
[21.4,21.6[ & 21.5 & 0 & 0 & 0.142857 & 0 \tabularnewline
[21.6,21.8[ & 21.7 & 0 & 0 & 0.142857 & 0 \tabularnewline
[21.8,22[ & 21.9 & 0 & 0 & 0.142857 & 0 \tabularnewline
[22,22.2[ & 22.1 & 0 & 0 & 0.142857 & 0 \tabularnewline
[22.2,22.4[ & 22.3 & 1 & 0.142857 & 0.285714 & 0.714286 \tabularnewline
[22.4,22.6[ & 22.5 & 0 & 0 & 0.285714 & 0 \tabularnewline
[22.6,22.8[ & 22.7 & 0 & 0 & 0.285714 & 0 \tabularnewline
[22.8,23[ & 22.9 & 0 & 0 & 0.285714 & 0 \tabularnewline
[23,23.2[ & 23.1 & 0 & 0 & 0.285714 & 0 \tabularnewline
[23.2,23.4[ & 23.3 & 2 & 0.285714 & 0.571429 & 1.428571 \tabularnewline
[23.4,23.6[ & 23.5 & 0 & 0 & 0.571429 & 0 \tabularnewline
[23.6,23.8[ & 23.7 & 0 & 0 & 0.571429 & 0 \tabularnewline
[23.8,24[ & 23.9 & 0 & 0 & 0.571429 & 0 \tabularnewline
[24,24.2[ & 24.1 & 2 & 0.285714 & 0.857143 & 1.428571 \tabularnewline
[24.2,24.4[ & 24.3 & 0 & 0 & 0.857143 & 0 \tabularnewline
[24.4,24.6[ & 24.5 & 0 & 0 & 0.857143 & 0 \tabularnewline
[24.6,24.8[ & 24.7 & 0 & 0 & 0.857143 & 0 \tabularnewline
[24.8,25] & 24.9 & 1 & 0.142857 & 1 & 0.714286 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42841&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][11.2,11.4[[/C][C]11.3[/C][C]1[/C][C]0.142857[/C][C]0.142857[/C][C]0.714286[/C][/ROW]
[ROW][C][11.4,11.6[[/C][C]11.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][11.6,11.8[[/C][C]11.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][11.8,12[[/C][C]11.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][12,12.2[[/C][C]12.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][12.2,12.4[[/C][C]12.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][12.4,12.6[[/C][C]12.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][12.6,12.8[[/C][C]12.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][12.8,13[[/C][C]12.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][13,13.2[[/C][C]13.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][13.2,13.4[[/C][C]13.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][13.4,13.6[[/C][C]13.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][13.6,13.8[[/C][C]13.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][13.8,14[[/C][C]13.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][14,14.2[[/C][C]14.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][14.2,14.4[[/C][C]14.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][14.4,14.6[[/C][C]14.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][14.6,14.8[[/C][C]14.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][14.8,15[[/C][C]14.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][15,15.2[[/C][C]15.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][15.2,15.4[[/C][C]15.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][15.4,15.6[[/C][C]15.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][15.6,15.8[[/C][C]15.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][15.8,16[[/C][C]15.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][16,16.2[[/C][C]16.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][16.2,16.4[[/C][C]16.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][16.4,16.6[[/C][C]16.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][16.6,16.8[[/C][C]16.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][16.8,17[[/C][C]16.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][17,17.2[[/C][C]17.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][17.2,17.4[[/C][C]17.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][17.4,17.6[[/C][C]17.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][17.6,17.8[[/C][C]17.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][17.8,18[[/C][C]17.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][18,18.2[[/C][C]18.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][18.2,18.4[[/C][C]18.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][18.4,18.6[[/C][C]18.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][18.6,18.8[[/C][C]18.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][18.8,19[[/C][C]18.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][19,19.2[[/C][C]19.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][19.2,19.4[[/C][C]19.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][19.4,19.6[[/C][C]19.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][19.6,19.8[[/C][C]19.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][19.8,20[[/C][C]19.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][20,20.2[[/C][C]20.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][20.2,20.4[[/C][C]20.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][20.4,20.6[[/C][C]20.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][20.6,20.8[[/C][C]20.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][20.8,21[[/C][C]20.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][21,21.2[[/C][C]21.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][21.2,21.4[[/C][C]21.3[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][21.4,21.6[[/C][C]21.5[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][21.6,21.8[[/C][C]21.7[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][21.8,22[[/C][C]21.9[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][22,22.2[[/C][C]22.1[/C][C]0[/C][C]0[/C][C]0.142857[/C][C]0[/C][/ROW]
[ROW][C][22.2,22.4[[/C][C]22.3[/C][C]1[/C][C]0.142857[/C][C]0.285714[/C][C]0.714286[/C][/ROW]
[ROW][C][22.4,22.6[[/C][C]22.5[/C][C]0[/C][C]0[/C][C]0.285714[/C][C]0[/C][/ROW]
[ROW][C][22.6,22.8[[/C][C]22.7[/C][C]0[/C][C]0[/C][C]0.285714[/C][C]0[/C][/ROW]
[ROW][C][22.8,23[[/C][C]22.9[/C][C]0[/C][C]0[/C][C]0.285714[/C][C]0[/C][/ROW]
[ROW][C][23,23.2[[/C][C]23.1[/C][C]0[/C][C]0[/C][C]0.285714[/C][C]0[/C][/ROW]
[ROW][C][23.2,23.4[[/C][C]23.3[/C][C]2[/C][C]0.285714[/C][C]0.571429[/C][C]1.428571[/C][/ROW]
[ROW][C][23.4,23.6[[/C][C]23.5[/C][C]0[/C][C]0[/C][C]0.571429[/C][C]0[/C][/ROW]
[ROW][C][23.6,23.8[[/C][C]23.7[/C][C]0[/C][C]0[/C][C]0.571429[/C][C]0[/C][/ROW]
[ROW][C][23.8,24[[/C][C]23.9[/C][C]0[/C][C]0[/C][C]0.571429[/C][C]0[/C][/ROW]
[ROW][C][24,24.2[[/C][C]24.1[/C][C]2[/C][C]0.285714[/C][C]0.857143[/C][C]1.428571[/C][/ROW]
[ROW][C][24.2,24.4[[/C][C]24.3[/C][C]0[/C][C]0[/C][C]0.857143[/C][C]0[/C][/ROW]
[ROW][C][24.4,24.6[[/C][C]24.5[/C][C]0[/C][C]0[/C][C]0.857143[/C][C]0[/C][/ROW]
[ROW][C][24.6,24.8[[/C][C]24.7[/C][C]0[/C][C]0[/C][C]0.857143[/C][C]0[/C][/ROW]
[ROW][C][24.8,25][/C][C]24.9[/C][C]1[/C][C]0.142857[/C][C]1[/C][C]0.714286[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42841&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42841&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
[11.2,11.4[11.310.1428570.1428570.714286
[11.4,11.6[11.5000.1428570
[11.6,11.8[11.7000.1428570
[11.8,12[11.9000.1428570
[12,12.2[12.1000.1428570
[12.2,12.4[12.3000.1428570
[12.4,12.6[12.5000.1428570
[12.6,12.8[12.7000.1428570
[12.8,13[12.9000.1428570
[13,13.2[13.1000.1428570
[13.2,13.4[13.3000.1428570
[13.4,13.6[13.5000.1428570
[13.6,13.8[13.7000.1428570
[13.8,14[13.9000.1428570
[14,14.2[14.1000.1428570
[14.2,14.4[14.3000.1428570
[14.4,14.6[14.5000.1428570
[14.6,14.8[14.7000.1428570
[14.8,15[14.9000.1428570
[15,15.2[15.1000.1428570
[15.2,15.4[15.3000.1428570
[15.4,15.6[15.5000.1428570
[15.6,15.8[15.7000.1428570
[15.8,16[15.9000.1428570
[16,16.2[16.1000.1428570
[16.2,16.4[16.3000.1428570
[16.4,16.6[16.5000.1428570
[16.6,16.8[16.7000.1428570
[16.8,17[16.9000.1428570
[17,17.2[17.1000.1428570
[17.2,17.4[17.3000.1428570
[17.4,17.6[17.5000.1428570
[17.6,17.8[17.7000.1428570
[17.8,18[17.9000.1428570
[18,18.2[18.1000.1428570
[18.2,18.4[18.3000.1428570
[18.4,18.6[18.5000.1428570
[18.6,18.8[18.7000.1428570
[18.8,19[18.9000.1428570
[19,19.2[19.1000.1428570
[19.2,19.4[19.3000.1428570
[19.4,19.6[19.5000.1428570
[19.6,19.8[19.7000.1428570
[19.8,20[19.9000.1428570
[20,20.2[20.1000.1428570
[20.2,20.4[20.3000.1428570
[20.4,20.6[20.5000.1428570
[20.6,20.8[20.7000.1428570
[20.8,21[20.9000.1428570
[21,21.2[21.1000.1428570
[21.2,21.4[21.3000.1428570
[21.4,21.6[21.5000.1428570
[21.6,21.8[21.7000.1428570
[21.8,22[21.9000.1428570
[22,22.2[22.1000.1428570
[22.2,22.4[22.310.1428570.2857140.714286
[22.4,22.6[22.5000.2857140
[22.6,22.8[22.7000.2857140
[22.8,23[22.9000.2857140
[23,23.2[23.1000.2857140
[23.2,23.4[23.320.2857140.5714291.428571
[23.4,23.6[23.5000.5714290
[23.6,23.8[23.7000.5714290
[23.8,24[23.9000.5714290
[24,24.2[24.120.2857140.8571431.428571
[24.2,24.4[24.3000.8571430
[24.4,24.6[24.5000.8571430
[24.6,24.8[24.7000.8571430
[24.8,25]24.910.14285710.714286



Parameters (Session):
Parameters (R input):
par1 = 200 ; 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')