FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationWed, 20 Dec 2017 14:29:47 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Dec/20/t1513776621isc3rvqgajdend3.htm/, Retrieved Tue, 14 May 2024 02:36:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=310497, Retrieved Tue, 14 May 2024 02:36:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact64

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [] [2017-12-20 13:29:47] [1fcbe9b3e47b52dd478864c188c3f957] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
4
18
20
13
7
12
4
21
5
17
6
22
23
14
6
2
18
10
13
6
18
13
19
12
8
6
17
11
7
24
6
10
13
7
3
8
5
11
11
8
2
5
20
4
24
14
6
4
4
11
7
8
17
22
20
2
18
12
24
9
2
6
4
5
7
6
21
19
11
23
1
18
14
17
18
20
19
10
14
11
22
16
13
18
21
13
20
20
19
21
23
19
12
13
11
21
13
13
18
5
18
14
18
20
9
16
11
10
14
2
15
14
20
15
19
5
18
21
12
13
15
11
19
19
22
22
17
19
15
18
18
18
24
17
16
4
21
20
21
23
4
17
21
17
19
10
21
3
6
16
16
22
18
19
9
4
5
23
21
1
19
7
17
18
18
5
12
5
5
7
7
21
6
3
20
19
14
22
11
21
17
20
14
21
5
14
19
3
20
11
18
19
19
19
17
8
17
15
9
10
17
16
18
16
21
9
8
13
11
10
16
17
8
16
11
4
12
19
8
9
6
20
12
13
7
13
10
20
20
17
8
17
14
12
18
9
8
16
18
21
13
16
15
12
20
14
11
7
16
15
8
14
15
14
8
12
13
8
17
13
8
16
16
8
19
19
18
11
22
18
8
16
18
20
20
16
9
9
18
17
23
15
9
15
17
19
16
21
18
23
8
20
8
8
12
7
20
9
17
18
8
21
11
8
23
9
10
18
9
9
23
20
1
17
12
20
17
19
6
19
12
11
16
8
1
17
20
15
14
12
20
19
16
11
23
11
9
15
17
23
15
18
21
9
13
14
7
10
15
16
13
9
20
22
8
9
16
19
8
9
10
7
17
8
12
14
19
9
9
12
12
9
15
9
13
8
9
10
11
10
15
9
13
9
11
8
19
12
14
3
8
19
19
14
20
15
14
8
8
9
14
15
17
14
9
20
19
17
13
24
9
17
19
9
19
9
12
17
13
18
9
23
13
13
9
18
12
13
18
12
7
19
18
9
13
9
23
12
10
16
19
14
13
10
8
7
14
18
8
11
19
17
10
20
18
16
8
17
22
8
16
10
13
20
6
17
9
14
19
13
17
19
9
19
9
17
20
17
14
9
19
11
17
23
13
22
22
10
8
16
21
3
4
18
6
20
18
17
19
9
8
19
14
8
17
12
17
18
15
19
10
8
23
15
8
16
14
20
22
8
19
18
18
7
18
8
12
9
18
7
18
18
21
24
15
9
15
9
15
12
23
18
15
19
11
13
24
21
18
11
8
20
13
13
18
9
1
13
16
14
20
17
15
13
18
22
12
11
17
7
18
17
17
9
8
15
7
18
16
12
17
8
9
9
14
10
8
17
9
19
17
17
12
14
16
18
20
13
19
24
16
17
16
10
15
8
18
12
14
19
11
15
19
16
23
12
11
18
19
9
13
8
9
15
19
18
11
13
10
7
18
9
16
21
11
21
10
19
8
19
4
1
13
16
11
10
9
21
3
14
19
12
22
18
19
11
19
2
17
3
2
11
20
3
5
3
18
7
15
4
18
19
13
12
7
13
17
15
18
15
24
5
10
15
1
14
16
11
11
8
17
18
12
13
11
17
13
16
24
20
22
9
22
17
15
21
1
13
19
14
12
20
12
18
20
18
19
7
21
7
5
22
6
22
12
20
19
15
5
10
13
1
17
17
16
4
15
24
17
1
13
24
1
19
12
24
12
18
18
9
12
22
19
3
13
20
16
19
19
15
10
18
17
1
16
9
17
8
12
19
10
17
4
10
14
19
17
9
17
3
9
9
12
8
21
9
17
21
16
8
17
17
18
14
10
9
21
17
8
15
16
19
19
8
9
8
18
13
15
18
8
19
17
22
19
11
9
19
18
10
8
20
22
8
2
18
19
16
18
7
8
16
9
18
20
12
22
19
6
9
16
18
14
13
14
21
15
9
16
19
13
18
13
10
18
17
24
9
12
16
9
9
18
9
23
19
18
8
9
18
14
9
18
9
11
16
14
8
15
8
8
7
16
15
10
20
20
18
11
13
16
14
8
10
11
20
18
17
8
13
22
12
11
12
15
13
11
8
12
18
19
8
17
9
13
13
14
17
18
17
18
12
18
16
17
9
13
12
9
12
18
15
18
20
17
16
11
16
12
17
10
6
9
17
3
9
19
13
16
9
18
15
20
9
8
13
19
18
21
17
9
17
17
13
18
8
8
13
17
14
11
1
19
13
19
12
9
18
17
9
13
9
9
18
9
10
5
14
8
12
9
8
8
10
18
19
1
17
16
13
18
9
9
9
15
19
20
10
13
15
18
13
19
12
15
10
19
19
21
13
15
12
10
18
15
13
23
10
21
10
9
8
17
16
12
17
13
16
16
14
18
22
12
10
8
15
7
12
8
12
18
9
18
5
8
19
13
9
19
18
17
24
9
20
21
16
15
15
11
2
14
9
17
20
8
15
20
19
14
9
22
12
21
16
9
18
18
9
18
9
9
13
18
13
15
8
24
12
17
15
13
8
18
9
9
11
15
8
8
16
15
16
9
9
19
6
17
21
14
12
9
10
23
5
14
8
14
8
13
12
20
18
18
14
14
11
11
14
9
23
8
19
19
8
16
8
19
21
19
8
8
19
18
22
8
14
19
18
18
10
23
17
8
20
17
10
18
19
22
16
23
16
16
14
14
9
8
18
24
12
15
11
6
24
17
18
16
13
21
21
13
18
19
20
9
19
18
16
9
19
19
9
8
1
24
19
9
17
24
16
22
13
17
20
9
12
16
20
23
10
2
8
8
3
20
9
20
8
9
8
9
9
9
6
9
17
10
24
16
12
17
12
21
18
20
17
18
7
13
19
18
19
8
17
10
8
21
7
12
14
23
15
13
9
19
16
21
19
20
11
13
14
2
14
15
17
12
10
14
19
8
23
17
20
4
22
15
9
18
3
7
6
7
16
18
18
15
16
20
19
7
21
15
20
13
18
8
13
2
9
12
22
21
15
3
12
14
11
17
8
13
15
16
9
13
15
17
4
15
15
15
1
11
18
15
5
12
14
12
10
11
16
5
19
11
20
13
11
15
11
9
13
7
13
15
7
17
20
10
19
16
18
23
22
18
24
5
19
11
20
20
24
14
11
19
20
19
19
8
15
24
24
11
19
18
23
20
16
17
10
1
10
12
21
22
10
24
20
8
15
13
24
13
10
12
20
12
3
1
9
11
16
12
18
5
22
7
6
22
18
21
7
12
14
6
15
2
5
6
16
14
1
9
21
6
18
16
15
10
18
3
23
11
14
11
19
2
2
12
14
20
12
15
8
16
5
14
15
19
1
8
19
15
17
18
18
11
8
12
16
21
15
19
8
20
15
10
8
8
18
24
20
14
19
18
8
19
9
13
11
7
17
8
18
14
14
19
7
8
8
13
9
8
16
20
18
8
11
16
16
12
9
9
20
12
8
23
12
11
23
13
11
11
8
8
19
13
9
17
17
15
8
7
23
9
7
6
16
8
10
10
19
8
16
10
17
9
17
17
8
16
6
1
21
23
14
14
19
13
2
12
9
16
13
21
16
10
11
11
13
14
13
8
13
19
8
9
14
17
7
10
17
20
16
19
7
19
7
8
15
1
8
4
15
9
12
13
11
21
10
19
8
10
18
15
17
22
17
20
8
20
19
14
9
10
10
9
11
13
23
19
9
15
10
7
10
14
9
11
18
10
9
17
17
8
13
17
11
15
18
16
16
8
9
6
15
18
9
9
15
14
8
18
18
19
21
17
13
16
13
9
8
7
8
14
11
8
19
16
9
13
19
23
17
19
8
16
8
15
14
9
8
9
9
8
17
23
10
3
13
8
7
8
7
18
6
8
18
12
20
9
8
18
22
18
19
14
13
18
18
18
19
9
14
6
16
8
17
12
19
19
19
18
23
16
9
19
2
23
13
12
16
12
9
15
8
15
21
17
17
8
11
7
6
11
21
19
22
14
17
16
16
8
18
21
11
23
2
17
22
18
11
12
17
16
13
10
10
11
18
9
19
9
9
16
7
7
8
19
17
12
24
9
17
17
2
18
19
9
17
9
14
17
18
17
18
10
19
14
18
11
21
18
14
16
10
21
15
24
11
15
8
21
14
11
14
16
18
11
8
24
18
23
20
10
14
19
19
8
16
20
1
19
15
22
18
18
20
9
9
23
13
16
20
13
12
17
9
18
19
18
18
8
20
8
16
16
20
17
13
11
19
22
9
24
8
1
13
9
14
18
18
17
12
15
18
20
13
11
1
23
8
16
16
19
24
23
23
13
20
16
11
18
15
8
22
14
11
9
20
16
13
18
18
14
20
11
14
19
19
9
20
19
19
10
19
18
5
9
21
15
1
11
12
13
18
2
8
22
15
20
10
15
6
19
19
19
8
5
13
18
11
11
24
19
20
15
23
11
4
4
15
8
22
5
20
2
17
7
7
8
20
12
23
18
2
20
7
10
11
13
11
8
19
18
22
6
20
11
13
23
10
13
18
15
22
21
17
16
22
20
6
24
5
6
14
19
20
20
18
15
20
19
18
10
15
18
9
13
13
14
23
14
11
16
18
21
6
13
20
13
14
19
19
18
9
2
5
18
21
20
14
2
3
6
23
20
5
5
18
6
4
7
23
23
8
17
21
14
12
20
8
10
10
14
20
17
16
10
9
8
17
15
10
18
15
18
7
10
17
17
4
10
13
12
14
19
9
10
8
13
13
22
15
21
14
17
9
23
17
9
17
8
17
11
11
11
9
13
13
17
17
16
9
8
8
9
13
18
18
9
3
18
20
20
19
20
13
15
16
16
19
21
22
9
12
17
15
17
18
11
2
14
1
8
1
19
12
9
12
23
21
19
10
13
14
19
11
8
16
16
8
13
8
14
23
19
8
17
14
24
16
1
17
18
23
13
17
23
12
20
7
22
9
14
22
21
8
13
14
8
17
13
23
19
13
20
10
16
17
16
7
23
18
15
19
9
16
8
17
7
14
16
16
18
12
16
8
10
18
9
7
20
13
6
24
16
16
12
8
17
10
14
11
22
18
10
21
13
14
19
16
8
16
15
7
8
19
13
12
19
9
18
16
19
15
7
8
18
23
19
13
3
20
19
15
21
19
20
19
21
20
21
20
19
19
13
19
15
16
18
19
19
13
12
8
17
18
14
21
18
13
19
11
22
6
21
8
8
9
17
19
13
19
19
16
18
19
10
13
8
13
23
8
22
9
18
12
15
7
16
17
14
16
11
8
21
19
18
13
20
10
19
14
8
10
14
19
6
15
9
8
9
9
19
17
8
16
15
13
8
19
12
6
15
9
17
12
9
16
15
9
17
17
19
10
16
17
17
19
9
13
13
16
16
16
15
11
14
15
17
19
14
18
12
23
9
7
18
18
16
17
14
11
13
21
19
11
16
14
9
18
16
20
16
12
18
8
18
14
16
17
18
16
14
8
8
18
13
19
16
1
16
16
8
16
5
9
7
10
10
18
22
10
11
9
18
11
19
20
20
20
18
8
18
16
18
6
19
10
20
13
21
12
17
12
9
20
16
7
2
21
18
14
19
17
6
9
8
19
16
23
18
19
5
19
10
21
16
18
19
18
19
18
10
17
8
7
20
18
9
19
19
8
8
3
19
11
2
18
9
4
24
19
16
6
15
7
2
2
21
19
13
14
24
5
18
18
19
19
10
12
10
17
10
19
21
14
22
12
14
3
6
19
24
19
11
5
18
24
16
11
18
18
13
16
19
14
20
21
6
6
5
21
17
4
19
20
4
11
6
14
22
15
8
23
11
16
1
2
3
12
14
16
19
3
7
15
20
19
15
1
7
12
20
22
3
17
12
10
13
4
15
16
6
15
17
8
15
17
22
12
20
16
4
14
19
12
10
7
1
19
1
14
24
3
19
18
15
13
7
20
19
18
9
18
15
13
17
2
17
4
22
12
19
20
10
13
20
24
3
7
9
3
21
2

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310497&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=310497&T=0

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

As an alternative you can also use a QR Code:  
QR Code


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

Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[1,2[1.5340.0128980.0128980.012898
[2,3[2.5320.012140.0250380.01214
[3,4[3.5300.0113810.0364190.011381
[4,5[4.5280.0106220.0470410.010622
[5,6[5.5360.0136570.0606980.013657
[6,7[6.5500.0189680.0796660.018968
[7,8[7.5720.0273140.106980.027314
[8,9[8.52020.0766310.1836120.076631
[9,10[9.52000.0758730.2594840.075873
[10,11[10.51090.0413510.3008350.041351
[11,12[11.51150.0436270.3444610.043627
[12,13[12.51210.0459030.3903640.045903
[13,14[13.51600.0606980.4510620.060698
[14,15[14.51310.0496970.5007590.049697
[15,16[15.51320.0500760.5508350.050076
[16,17[16.51640.0622150.613050.062215
[17,18[17.51780.0675270.6805770.067527
[18,19[18.52310.0876330.7682090.087633
[19,20[19.52280.0864950.8547040.086495
[20,21[20.51330.0504550.9051590.050455
[21,22[21.5840.0318660.9370260.031866
[22,23[22.5600.0227620.9597880.022762
[23,24]23.51060.04021210.040212

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[1,2[ & 1.5 & 34 & 0.012898 & 0.012898 & 0.012898 \tabularnewline
[2,3[ & 2.5 & 32 & 0.01214 & 0.025038 & 0.01214 \tabularnewline
[3,4[ & 3.5 & 30 & 0.011381 & 0.036419 & 0.011381 \tabularnewline
[4,5[ & 4.5 & 28 & 0.010622 & 0.047041 & 0.010622 \tabularnewline
[5,6[ & 5.5 & 36 & 0.013657 & 0.060698 & 0.013657 \tabularnewline
[6,7[ & 6.5 & 50 & 0.018968 & 0.079666 & 0.018968 \tabularnewline
[7,8[ & 7.5 & 72 & 0.027314 & 0.10698 & 0.027314 \tabularnewline
[8,9[ & 8.5 & 202 & 0.076631 & 0.183612 & 0.076631 \tabularnewline
[9,10[ & 9.5 & 200 & 0.075873 & 0.259484 & 0.075873 \tabularnewline
[10,11[ & 10.5 & 109 & 0.041351 & 0.300835 & 0.041351 \tabularnewline
[11,12[ & 11.5 & 115 & 0.043627 & 0.344461 & 0.043627 \tabularnewline
[12,13[ & 12.5 & 121 & 0.045903 & 0.390364 & 0.045903 \tabularnewline
[13,14[ & 13.5 & 160 & 0.060698 & 0.451062 & 0.060698 \tabularnewline
[14,15[ & 14.5 & 131 & 0.049697 & 0.500759 & 0.049697 \tabularnewline
[15,16[ & 15.5 & 132 & 0.050076 & 0.550835 & 0.050076 \tabularnewline
[16,17[ & 16.5 & 164 & 0.062215 & 0.61305 & 0.062215 \tabularnewline
[17,18[ & 17.5 & 178 & 0.067527 & 0.680577 & 0.067527 \tabularnewline
[18,19[ & 18.5 & 231 & 0.087633 & 0.768209 & 0.087633 \tabularnewline
[19,20[ & 19.5 & 228 & 0.086495 & 0.854704 & 0.086495 \tabularnewline
[20,21[ & 20.5 & 133 & 0.050455 & 0.905159 & 0.050455 \tabularnewline
[21,22[ & 21.5 & 84 & 0.031866 & 0.937026 & 0.031866 \tabularnewline
[22,23[ & 22.5 & 60 & 0.022762 & 0.959788 & 0.022762 \tabularnewline
[23,24] & 23.5 & 106 & 0.040212 & 1 & 0.040212 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310497&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,2[[/C][C]1.5[/C][C]34[/C][C]0.012898[/C][C]0.012898[/C][C]0.012898[/C][/ROW]
[ROW][C][2,3[[/C][C]2.5[/C][C]32[/C][C]0.01214[/C][C]0.025038[/C][C]0.01214[/C][/ROW]
[ROW][C][3,4[[/C][C]3.5[/C][C]30[/C][C]0.011381[/C][C]0.036419[/C][C]0.011381[/C][/ROW]
[ROW][C][4,5[[/C][C]4.5[/C][C]28[/C][C]0.010622[/C][C]0.047041[/C][C]0.010622[/C][/ROW]
[ROW][C][5,6[[/C][C]5.5[/C][C]36[/C][C]0.013657[/C][C]0.060698[/C][C]0.013657[/C][/ROW]
[ROW][C][6,7[[/C][C]6.5[/C][C]50[/C][C]0.018968[/C][C]0.079666[/C][C]0.018968[/C][/ROW]
[ROW][C][7,8[[/C][C]7.5[/C][C]72[/C][C]0.027314[/C][C]0.10698[/C][C]0.027314[/C][/ROW]
[ROW][C][8,9[[/C][C]8.5[/C][C]202[/C][C]0.076631[/C][C]0.183612[/C][C]0.076631[/C][/ROW]
[ROW][C][9,10[[/C][C]9.5[/C][C]200[/C][C]0.075873[/C][C]0.259484[/C][C]0.075873[/C][/ROW]
[ROW][C][10,11[[/C][C]10.5[/C][C]109[/C][C]0.041351[/C][C]0.300835[/C][C]0.041351[/C][/ROW]
[ROW][C][11,12[[/C][C]11.5[/C][C]115[/C][C]0.043627[/C][C]0.344461[/C][C]0.043627[/C][/ROW]
[ROW][C][12,13[[/C][C]12.5[/C][C]121[/C][C]0.045903[/C][C]0.390364[/C][C]0.045903[/C][/ROW]
[ROW][C][13,14[[/C][C]13.5[/C][C]160[/C][C]0.060698[/C][C]0.451062[/C][C]0.060698[/C][/ROW]
[ROW][C][14,15[[/C][C]14.5[/C][C]131[/C][C]0.049697[/C][C]0.500759[/C][C]0.049697[/C][/ROW]
[ROW][C][15,16[[/C][C]15.5[/C][C]132[/C][C]0.050076[/C][C]0.550835[/C][C]0.050076[/C][/ROW]
[ROW][C][16,17[[/C][C]16.5[/C][C]164[/C][C]0.062215[/C][C]0.61305[/C][C]0.062215[/C][/ROW]
[ROW][C][17,18[[/C][C]17.5[/C][C]178[/C][C]0.067527[/C][C]0.680577[/C][C]0.067527[/C][/ROW]
[ROW][C][18,19[[/C][C]18.5[/C][C]231[/C][C]0.087633[/C][C]0.768209[/C][C]0.087633[/C][/ROW]
[ROW][C][19,20[[/C][C]19.5[/C][C]228[/C][C]0.086495[/C][C]0.854704[/C][C]0.086495[/C][/ROW]
[ROW][C][20,21[[/C][C]20.5[/C][C]133[/C][C]0.050455[/C][C]0.905159[/C][C]0.050455[/C][/ROW]
[ROW][C][21,22[[/C][C]21.5[/C][C]84[/C][C]0.031866[/C][C]0.937026[/C][C]0.031866[/C][/ROW]
[ROW][C][22,23[[/C][C]22.5[/C][C]60[/C][C]0.022762[/C][C]0.959788[/C][C]0.022762[/C][/ROW]
[ROW][C][23,24][/C][C]23.5[/C][C]106[/C][C]0.040212[/C][C]1[/C][C]0.040212[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=310497&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[1,2[1.5340.0128980.0128980.012898
[2,3[2.5320.012140.0250380.01214
[3,4[3.5300.0113810.0364190.011381
[4,5[4.5280.0106220.0470410.010622
[5,6[5.5360.0136570.0606980.013657
[6,7[6.5500.0189680.0796660.018968
[7,8[7.5720.0273140.106980.027314
[8,9[8.52020.0766310.1836120.076631
[9,10[9.52000.0758730.2594840.075873
[10,11[10.51090.0413510.3008350.041351
[11,12[11.51150.0436270.3444610.043627
[12,13[12.51210.0459030.3903640.045903
[13,14[13.51600.0606980.4510620.060698
[14,15[14.51310.0496970.5007590.049697
[15,16[15.51320.0500760.5508350.050076
[16,17[16.51640.0622150.613050.062215
[17,18[17.51780.0675270.6805770.067527
[18,19[18.52310.0876330.7682090.087633
[19,20[19.52280.0864950.8547040.086495
[20,21[20.51330.0504550.9051590.050455
[21,22[21.5840.0318660.9370260.031866
[22,23[22.5600.0227620.9597880.022762
[23,24]23.51060.04021210.040212


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 24 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = 24 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
R code (references can be found in the software module):
par4 <- 'Unknown'
par3 <- 'TRUE'
par2 <- 'grey'
par1 <- ''
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.numeric(x[1])) {
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)
}
} else {
barplot(mytab <- sort(table(x),T),col=par2,main='Frequency Plot',xlab=xlab,ylab='Absolute Frequency')
}
dev.off()
if(is.numeric(x[1])) {
myhist
n <- length(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'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')
} else {
mytab
reltab <- mytab / sum(mytab)
n <- length(mytab)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Frequency Table (Categorical Data)',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Category',header=TRUE)
a<-table.element(a,'Abs. Frequency',header=TRUE)
a<-table.element(a,'Rel. Frequency',header=TRUE)
a<-table.row.end(a)
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,labels(mytab)$x[i],header=TRUE)
a<-table.element(a,mytab[i])
a<-table.element(a,round(reltab[i],4))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
}