Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationThu, 12 Feb 2015 08:03:11 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Feb/12/t1423728248jklpvusg5xve3em.htm/, Retrieved Fri, 01 May 2026 19:48:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=277070, Retrieved Fri, 01 May 2026 19:48:07 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact303
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [] [2015-02-12 08:03:11] [4696c8cdb98c635bcaa184793f2e8dd7] [Current]
Feedback Forum

Post a new message
Dataseries X:
2.07
2.2
2.29
2.32
2.37
2.38
2.38
2.28
2.22
2.25
2.3
2.3
2.23
2.27
2.3
2.32
2.41
2.43
2.45
2.47
2.46
2.5
2.46
2.43
2.37
2.45
2.53
2.56
2.62
2.67
2.62
2.6
2.53
2.49
2.48
2.44
2.36
2.35
2.44
2.5
2.58
2.55
2.44
2.3
2.24
2.19
2.25
2.28
2.27
2.37
2.47
2.5
2.47
2.61
2.61
2.65
2.43
2.43
2.33
2.27
2.22
2.17
2.28
2.3
2.33
2.44
2.41
2.4
2.34
2.37
2.38
2.3
2.29
2.34
2.35
2.38
2.37
2.45
2.51
2.46
2.42
2.48
2.44
2.43
2.36
2.42
2.42
2.43
2.47
2.54
2.55
2.55
2.49
2.54
2.55
2.5




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net

\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' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=277070&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=277070&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=277070&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' @ jenkins.wessa.net







Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[2.07,2.08[2.07510.0104170.0104171.041667
[2.08,2.09[2.085000.0104170
[2.09,2.1[2.095000.0104170
[2.1,2.11[2.105000.0104170
[2.11,2.12[2.115000.0104170
[2.12,2.13[2.125000.0104170
[2.13,2.14[2.135000.0104170
[2.14,2.15[2.145000.0104170
[2.15,2.16[2.155000.0104170
[2.16,2.17[2.165000.0104170
[2.17,2.18[2.17510.0104170.0208331.041667
[2.18,2.19[2.185000.0208330
[2.19,2.2[2.19510.0104170.031251.041667
[2.2,2.21[2.20510.0104170.0416671.041667
[2.21,2.22[2.215000.0416670
[2.22,2.23[2.22520.0208330.06252.083333
[2.23,2.24[2.23510.0104170.0729171.041667
[2.24,2.25[2.24510.0104170.0833331.041667
[2.25,2.26[2.25520.0208330.1041672.083333
[2.26,2.27[2.265000.1041670
[2.27,2.28[2.27530.031250.1354173.125
[2.28,2.29[2.28530.031250.1666673.125
[2.29,2.3[2.29520.0208330.18752.083333
[2.3,2.31[2.30560.06250.256.25
[2.31,2.32[2.315000.250
[2.32,2.33[2.32520.0208330.2708332.083333
[2.33,2.34[2.33520.0208330.2916672.083333
[2.34,2.35[2.34520.0208330.31252.083333
[2.35,2.36[2.35520.0208330.3333332.083333
[2.36,2.37[2.36520.0208330.3541672.083333
[2.37,2.38[2.37550.0520830.406255.208333
[2.38,2.39[2.38540.0416670.4479174.166667
[2.39,2.4[2.395000.4479170
[2.4,2.41[2.40510.0104170.4583331.041667
[2.41,2.42[2.41520.0208330.4791672.083333
[2.42,2.43[2.42530.031250.5104173.125
[2.43,2.44[2.43560.06250.5729176.25
[2.44,2.45[2.44550.0520830.6255.208333
[2.45,2.46[2.45530.031250.656253.125
[2.46,2.47[2.46530.031250.68753.125
[2.47,2.48[2.47540.0416670.7291674.166667
[2.48,2.49[2.48520.0208330.752.083333
[2.49,2.5[2.49520.0208330.7708332.083333
[2.5,2.51[2.50540.0416670.81254.166667
[2.51,2.52[2.51510.0104170.8229171.041667
[2.52,2.53[2.525000.8229170
[2.53,2.54[2.53520.0208330.843752.083333
[2.54,2.55[2.54520.0208330.8645832.083333
[2.55,2.56[2.55540.0416670.906254.166667
[2.56,2.57[2.56510.0104170.9166671.041667
[2.57,2.58[2.575000.9166670
[2.58,2.59[2.58510.0104170.9270831.041667
[2.59,2.6[2.595000.9270830
[2.6,2.61[2.60510.0104170.93751.041667
[2.61,2.62[2.61520.0208330.9583332.083333
[2.62,2.63[2.62520.0208330.9791672.083333
[2.63,2.64[2.635000.9791670
[2.64,2.65[2.645000.9791670
[2.65,2.66[2.65510.0104170.9895831.041667
[2.66,2.67]2.66510.01041711.041667

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[2.07,2.08[ & 2.075 & 1 & 0.010417 & 0.010417 & 1.041667 \tabularnewline
[2.08,2.09[ & 2.085 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.09,2.1[ & 2.095 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.1,2.11[ & 2.105 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.11,2.12[ & 2.115 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.12,2.13[ & 2.125 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.13,2.14[ & 2.135 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.14,2.15[ & 2.145 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.15,2.16[ & 2.155 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.16,2.17[ & 2.165 & 0 & 0 & 0.010417 & 0 \tabularnewline
[2.17,2.18[ & 2.175 & 1 & 0.010417 & 0.020833 & 1.041667 \tabularnewline
[2.18,2.19[ & 2.185 & 0 & 0 & 0.020833 & 0 \tabularnewline
[2.19,2.2[ & 2.195 & 1 & 0.010417 & 0.03125 & 1.041667 \tabularnewline
[2.2,2.21[ & 2.205 & 1 & 0.010417 & 0.041667 & 1.041667 \tabularnewline
[2.21,2.22[ & 2.215 & 0 & 0 & 0.041667 & 0 \tabularnewline
[2.22,2.23[ & 2.225 & 2 & 0.020833 & 0.0625 & 2.083333 \tabularnewline
[2.23,2.24[ & 2.235 & 1 & 0.010417 & 0.072917 & 1.041667 \tabularnewline
[2.24,2.25[ & 2.245 & 1 & 0.010417 & 0.083333 & 1.041667 \tabularnewline
[2.25,2.26[ & 2.255 & 2 & 0.020833 & 0.104167 & 2.083333 \tabularnewline
[2.26,2.27[ & 2.265 & 0 & 0 & 0.104167 & 0 \tabularnewline
[2.27,2.28[ & 2.275 & 3 & 0.03125 & 0.135417 & 3.125 \tabularnewline
[2.28,2.29[ & 2.285 & 3 & 0.03125 & 0.166667 & 3.125 \tabularnewline
[2.29,2.3[ & 2.295 & 2 & 0.020833 & 0.1875 & 2.083333 \tabularnewline
[2.3,2.31[ & 2.305 & 6 & 0.0625 & 0.25 & 6.25 \tabularnewline
[2.31,2.32[ & 2.315 & 0 & 0 & 0.25 & 0 \tabularnewline
[2.32,2.33[ & 2.325 & 2 & 0.020833 & 0.270833 & 2.083333 \tabularnewline
[2.33,2.34[ & 2.335 & 2 & 0.020833 & 0.291667 & 2.083333 \tabularnewline
[2.34,2.35[ & 2.345 & 2 & 0.020833 & 0.3125 & 2.083333 \tabularnewline
[2.35,2.36[ & 2.355 & 2 & 0.020833 & 0.333333 & 2.083333 \tabularnewline
[2.36,2.37[ & 2.365 & 2 & 0.020833 & 0.354167 & 2.083333 \tabularnewline
[2.37,2.38[ & 2.375 & 5 & 0.052083 & 0.40625 & 5.208333 \tabularnewline
[2.38,2.39[ & 2.385 & 4 & 0.041667 & 0.447917 & 4.166667 \tabularnewline
[2.39,2.4[ & 2.395 & 0 & 0 & 0.447917 & 0 \tabularnewline
[2.4,2.41[ & 2.405 & 1 & 0.010417 & 0.458333 & 1.041667 \tabularnewline
[2.41,2.42[ & 2.415 & 2 & 0.020833 & 0.479167 & 2.083333 \tabularnewline
[2.42,2.43[ & 2.425 & 3 & 0.03125 & 0.510417 & 3.125 \tabularnewline
[2.43,2.44[ & 2.435 & 6 & 0.0625 & 0.572917 & 6.25 \tabularnewline
[2.44,2.45[ & 2.445 & 5 & 0.052083 & 0.625 & 5.208333 \tabularnewline
[2.45,2.46[ & 2.455 & 3 & 0.03125 & 0.65625 & 3.125 \tabularnewline
[2.46,2.47[ & 2.465 & 3 & 0.03125 & 0.6875 & 3.125 \tabularnewline
[2.47,2.48[ & 2.475 & 4 & 0.041667 & 0.729167 & 4.166667 \tabularnewline
[2.48,2.49[ & 2.485 & 2 & 0.020833 & 0.75 & 2.083333 \tabularnewline
[2.49,2.5[ & 2.495 & 2 & 0.020833 & 0.770833 & 2.083333 \tabularnewline
[2.5,2.51[ & 2.505 & 4 & 0.041667 & 0.8125 & 4.166667 \tabularnewline
[2.51,2.52[ & 2.515 & 1 & 0.010417 & 0.822917 & 1.041667 \tabularnewline
[2.52,2.53[ & 2.525 & 0 & 0 & 0.822917 & 0 \tabularnewline
[2.53,2.54[ & 2.535 & 2 & 0.020833 & 0.84375 & 2.083333 \tabularnewline
[2.54,2.55[ & 2.545 & 2 & 0.020833 & 0.864583 & 2.083333 \tabularnewline
[2.55,2.56[ & 2.555 & 4 & 0.041667 & 0.90625 & 4.166667 \tabularnewline
[2.56,2.57[ & 2.565 & 1 & 0.010417 & 0.916667 & 1.041667 \tabularnewline
[2.57,2.58[ & 2.575 & 0 & 0 & 0.916667 & 0 \tabularnewline
[2.58,2.59[ & 2.585 & 1 & 0.010417 & 0.927083 & 1.041667 \tabularnewline
[2.59,2.6[ & 2.595 & 0 & 0 & 0.927083 & 0 \tabularnewline
[2.6,2.61[ & 2.605 & 1 & 0.010417 & 0.9375 & 1.041667 \tabularnewline
[2.61,2.62[ & 2.615 & 2 & 0.020833 & 0.958333 & 2.083333 \tabularnewline
[2.62,2.63[ & 2.625 & 2 & 0.020833 & 0.979167 & 2.083333 \tabularnewline
[2.63,2.64[ & 2.635 & 0 & 0 & 0.979167 & 0 \tabularnewline
[2.64,2.65[ & 2.645 & 0 & 0 & 0.979167 & 0 \tabularnewline
[2.65,2.66[ & 2.655 & 1 & 0.010417 & 0.989583 & 1.041667 \tabularnewline
[2.66,2.67] & 2.665 & 1 & 0.010417 & 1 & 1.041667 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=277070&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][2.07,2.08[[/C][C]2.075[/C][C]1[/C][C]0.010417[/C][C]0.010417[/C][C]1.041667[/C][/ROW]
[ROW][C][2.08,2.09[[/C][C]2.085[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.09,2.1[[/C][C]2.095[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.1,2.11[[/C][C]2.105[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.11,2.12[[/C][C]2.115[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.12,2.13[[/C][C]2.125[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.13,2.14[[/C][C]2.135[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.14,2.15[[/C][C]2.145[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.15,2.16[[/C][C]2.155[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.16,2.17[[/C][C]2.165[/C][C]0[/C][C]0[/C][C]0.010417[/C][C]0[/C][/ROW]
[ROW][C][2.17,2.18[[/C][C]2.175[/C][C]1[/C][C]0.010417[/C][C]0.020833[/C][C]1.041667[/C][/ROW]
[ROW][C][2.18,2.19[[/C][C]2.185[/C][C]0[/C][C]0[/C][C]0.020833[/C][C]0[/C][/ROW]
[ROW][C][2.19,2.2[[/C][C]2.195[/C][C]1[/C][C]0.010417[/C][C]0.03125[/C][C]1.041667[/C][/ROW]
[ROW][C][2.2,2.21[[/C][C]2.205[/C][C]1[/C][C]0.010417[/C][C]0.041667[/C][C]1.041667[/C][/ROW]
[ROW][C][2.21,2.22[[/C][C]2.215[/C][C]0[/C][C]0[/C][C]0.041667[/C][C]0[/C][/ROW]
[ROW][C][2.22,2.23[[/C][C]2.225[/C][C]2[/C][C]0.020833[/C][C]0.0625[/C][C]2.083333[/C][/ROW]
[ROW][C][2.23,2.24[[/C][C]2.235[/C][C]1[/C][C]0.010417[/C][C]0.072917[/C][C]1.041667[/C][/ROW]
[ROW][C][2.24,2.25[[/C][C]2.245[/C][C]1[/C][C]0.010417[/C][C]0.083333[/C][C]1.041667[/C][/ROW]
[ROW][C][2.25,2.26[[/C][C]2.255[/C][C]2[/C][C]0.020833[/C][C]0.104167[/C][C]2.083333[/C][/ROW]
[ROW][C][2.26,2.27[[/C][C]2.265[/C][C]0[/C][C]0[/C][C]0.104167[/C][C]0[/C][/ROW]
[ROW][C][2.27,2.28[[/C][C]2.275[/C][C]3[/C][C]0.03125[/C][C]0.135417[/C][C]3.125[/C][/ROW]
[ROW][C][2.28,2.29[[/C][C]2.285[/C][C]3[/C][C]0.03125[/C][C]0.166667[/C][C]3.125[/C][/ROW]
[ROW][C][2.29,2.3[[/C][C]2.295[/C][C]2[/C][C]0.020833[/C][C]0.1875[/C][C]2.083333[/C][/ROW]
[ROW][C][2.3,2.31[[/C][C]2.305[/C][C]6[/C][C]0.0625[/C][C]0.25[/C][C]6.25[/C][/ROW]
[ROW][C][2.31,2.32[[/C][C]2.315[/C][C]0[/C][C]0[/C][C]0.25[/C][C]0[/C][/ROW]
[ROW][C][2.32,2.33[[/C][C]2.325[/C][C]2[/C][C]0.020833[/C][C]0.270833[/C][C]2.083333[/C][/ROW]
[ROW][C][2.33,2.34[[/C][C]2.335[/C][C]2[/C][C]0.020833[/C][C]0.291667[/C][C]2.083333[/C][/ROW]
[ROW][C][2.34,2.35[[/C][C]2.345[/C][C]2[/C][C]0.020833[/C][C]0.3125[/C][C]2.083333[/C][/ROW]
[ROW][C][2.35,2.36[[/C][C]2.355[/C][C]2[/C][C]0.020833[/C][C]0.333333[/C][C]2.083333[/C][/ROW]
[ROW][C][2.36,2.37[[/C][C]2.365[/C][C]2[/C][C]0.020833[/C][C]0.354167[/C][C]2.083333[/C][/ROW]
[ROW][C][2.37,2.38[[/C][C]2.375[/C][C]5[/C][C]0.052083[/C][C]0.40625[/C][C]5.208333[/C][/ROW]
[ROW][C][2.38,2.39[[/C][C]2.385[/C][C]4[/C][C]0.041667[/C][C]0.447917[/C][C]4.166667[/C][/ROW]
[ROW][C][2.39,2.4[[/C][C]2.395[/C][C]0[/C][C]0[/C][C]0.447917[/C][C]0[/C][/ROW]
[ROW][C][2.4,2.41[[/C][C]2.405[/C][C]1[/C][C]0.010417[/C][C]0.458333[/C][C]1.041667[/C][/ROW]
[ROW][C][2.41,2.42[[/C][C]2.415[/C][C]2[/C][C]0.020833[/C][C]0.479167[/C][C]2.083333[/C][/ROW]
[ROW][C][2.42,2.43[[/C][C]2.425[/C][C]3[/C][C]0.03125[/C][C]0.510417[/C][C]3.125[/C][/ROW]
[ROW][C][2.43,2.44[[/C][C]2.435[/C][C]6[/C][C]0.0625[/C][C]0.572917[/C][C]6.25[/C][/ROW]
[ROW][C][2.44,2.45[[/C][C]2.445[/C][C]5[/C][C]0.052083[/C][C]0.625[/C][C]5.208333[/C][/ROW]
[ROW][C][2.45,2.46[[/C][C]2.455[/C][C]3[/C][C]0.03125[/C][C]0.65625[/C][C]3.125[/C][/ROW]
[ROW][C][2.46,2.47[[/C][C]2.465[/C][C]3[/C][C]0.03125[/C][C]0.6875[/C][C]3.125[/C][/ROW]
[ROW][C][2.47,2.48[[/C][C]2.475[/C][C]4[/C][C]0.041667[/C][C]0.729167[/C][C]4.166667[/C][/ROW]
[ROW][C][2.48,2.49[[/C][C]2.485[/C][C]2[/C][C]0.020833[/C][C]0.75[/C][C]2.083333[/C][/ROW]
[ROW][C][2.49,2.5[[/C][C]2.495[/C][C]2[/C][C]0.020833[/C][C]0.770833[/C][C]2.083333[/C][/ROW]
[ROW][C][2.5,2.51[[/C][C]2.505[/C][C]4[/C][C]0.041667[/C][C]0.8125[/C][C]4.166667[/C][/ROW]
[ROW][C][2.51,2.52[[/C][C]2.515[/C][C]1[/C][C]0.010417[/C][C]0.822917[/C][C]1.041667[/C][/ROW]
[ROW][C][2.52,2.53[[/C][C]2.525[/C][C]0[/C][C]0[/C][C]0.822917[/C][C]0[/C][/ROW]
[ROW][C][2.53,2.54[[/C][C]2.535[/C][C]2[/C][C]0.020833[/C][C]0.84375[/C][C]2.083333[/C][/ROW]
[ROW][C][2.54,2.55[[/C][C]2.545[/C][C]2[/C][C]0.020833[/C][C]0.864583[/C][C]2.083333[/C][/ROW]
[ROW][C][2.55,2.56[[/C][C]2.555[/C][C]4[/C][C]0.041667[/C][C]0.90625[/C][C]4.166667[/C][/ROW]
[ROW][C][2.56,2.57[[/C][C]2.565[/C][C]1[/C][C]0.010417[/C][C]0.916667[/C][C]1.041667[/C][/ROW]
[ROW][C][2.57,2.58[[/C][C]2.575[/C][C]0[/C][C]0[/C][C]0.916667[/C][C]0[/C][/ROW]
[ROW][C][2.58,2.59[[/C][C]2.585[/C][C]1[/C][C]0.010417[/C][C]0.927083[/C][C]1.041667[/C][/ROW]
[ROW][C][2.59,2.6[[/C][C]2.595[/C][C]0[/C][C]0[/C][C]0.927083[/C][C]0[/C][/ROW]
[ROW][C][2.6,2.61[[/C][C]2.605[/C][C]1[/C][C]0.010417[/C][C]0.9375[/C][C]1.041667[/C][/ROW]
[ROW][C][2.61,2.62[[/C][C]2.615[/C][C]2[/C][C]0.020833[/C][C]0.958333[/C][C]2.083333[/C][/ROW]
[ROW][C][2.62,2.63[[/C][C]2.625[/C][C]2[/C][C]0.020833[/C][C]0.979167[/C][C]2.083333[/C][/ROW]
[ROW][C][2.63,2.64[[/C][C]2.635[/C][C]0[/C][C]0[/C][C]0.979167[/C][C]0[/C][/ROW]
[ROW][C][2.64,2.65[[/C][C]2.645[/C][C]0[/C][C]0[/C][C]0.979167[/C][C]0[/C][/ROW]
[ROW][C][2.65,2.66[[/C][C]2.655[/C][C]1[/C][C]0.010417[/C][C]0.989583[/C][C]1.041667[/C][/ROW]
[ROW][C][2.66,2.67][/C][C]2.665[/C][C]1[/C][C]0.010417[/C][C]1[/C][C]1.041667[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=277070&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=277070&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
[2.07,2.08[2.07510.0104170.0104171.041667
[2.08,2.09[2.085000.0104170
[2.09,2.1[2.095000.0104170
[2.1,2.11[2.105000.0104170
[2.11,2.12[2.115000.0104170
[2.12,2.13[2.125000.0104170
[2.13,2.14[2.135000.0104170
[2.14,2.15[2.145000.0104170
[2.15,2.16[2.155000.0104170
[2.16,2.17[2.165000.0104170
[2.17,2.18[2.17510.0104170.0208331.041667
[2.18,2.19[2.185000.0208330
[2.19,2.2[2.19510.0104170.031251.041667
[2.2,2.21[2.20510.0104170.0416671.041667
[2.21,2.22[2.215000.0416670
[2.22,2.23[2.22520.0208330.06252.083333
[2.23,2.24[2.23510.0104170.0729171.041667
[2.24,2.25[2.24510.0104170.0833331.041667
[2.25,2.26[2.25520.0208330.1041672.083333
[2.26,2.27[2.265000.1041670
[2.27,2.28[2.27530.031250.1354173.125
[2.28,2.29[2.28530.031250.1666673.125
[2.29,2.3[2.29520.0208330.18752.083333
[2.3,2.31[2.30560.06250.256.25
[2.31,2.32[2.315000.250
[2.32,2.33[2.32520.0208330.2708332.083333
[2.33,2.34[2.33520.0208330.2916672.083333
[2.34,2.35[2.34520.0208330.31252.083333
[2.35,2.36[2.35520.0208330.3333332.083333
[2.36,2.37[2.36520.0208330.3541672.083333
[2.37,2.38[2.37550.0520830.406255.208333
[2.38,2.39[2.38540.0416670.4479174.166667
[2.39,2.4[2.395000.4479170
[2.4,2.41[2.40510.0104170.4583331.041667
[2.41,2.42[2.41520.0208330.4791672.083333
[2.42,2.43[2.42530.031250.5104173.125
[2.43,2.44[2.43560.06250.5729176.25
[2.44,2.45[2.44550.0520830.6255.208333
[2.45,2.46[2.45530.031250.656253.125
[2.46,2.47[2.46530.031250.68753.125
[2.47,2.48[2.47540.0416670.7291674.166667
[2.48,2.49[2.48520.0208330.752.083333
[2.49,2.5[2.49520.0208330.7708332.083333
[2.5,2.51[2.50540.0416670.81254.166667
[2.51,2.52[2.51510.0104170.8229171.041667
[2.52,2.53[2.525000.8229170
[2.53,2.54[2.53520.0208330.843752.083333
[2.54,2.55[2.54520.0208330.8645832.083333
[2.55,2.56[2.55540.0416670.906254.166667
[2.56,2.57[2.56510.0104170.9166671.041667
[2.57,2.58[2.575000.9166670
[2.58,2.59[2.58510.0104170.9270831.041667
[2.59,2.6[2.595000.9270830
[2.6,2.61[2.60510.0104170.93751.041667
[2.61,2.62[2.61520.0208330.9583332.083333
[2.62,2.63[2.62520.0208330.9791672.083333
[2.63,2.64[2.635000.9791670
[2.64,2.65[2.645000.9791670
[2.65,2.66[2.65510.0104170.9895831.041667
[2.66,2.67]2.66510.01041711.041667



Parameters (Session):
par1 = 50 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = 50 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
R code (references can be found in the software module):
par4 <- 'Unknown'
par3 <- 'FALSE'
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 {
plot(mytab <- table(x),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,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')
} 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')
}