Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationMon, 17 Dec 2018 21:32:54 +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/2018/Dec/17/t15450793771ky6m09a0g6s3m0.htm/, Retrieved Thu, 02 May 2024 12:17:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315920, Retrieved Thu, 02 May 2024 12:17:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact109
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [MLR bouwvergunningen] [2018-12-17 20:32:54] [1fa0b6d83deab05e8f8a52e2846ed0da] [Current]
Feedback Forum

Post a new message
Dataseries X:
325.577251329476
333.089641034222
113.889703096624
570.703197964553
1133.40004449652
402.474276237571
666.803562218605
-29.1189231361895
575.867190979369
305.38032342624
160.138819647441
9.48788083886949
223.609003588165
157.521513103422
-307.077769227644
-45.5692056105275
-35.2677443646298
-86.9750529797284
210.153424567547
3.59479918769375
-57.2018537145624
489.07821641075
143.53831976508
-59.0672145063756
-353.647783383449
253.938239692758
-283.46830633063
-300.947078413118
243.394533738825
138.692624300063
-85.9959087156828
554.060333662123
-149.046420803771
373.479276728566
161.687560093809
191.870424195199
511.478607001318
84.2584774820797
-161.969077858812
100.892867091867
-226.80446969391
-268.98542324734
215.027402589395
-42.2962952545956
-244.29866581818
458.609212827287
18.501909610537
280.09843819512
152.082450504742
16.7083393214979
-279.863567914552
-299.033165439936
-206.875230689088
-48.0411090912959
690.54030334507
1015.8091624753
1076.68829560805
1303.63349084839
34.0047496050582
-686.971026463498
-976.358233494381
-806.364379643047
-988.275590381893
-706.167012999281
-600.484138633086
-675.369044934168
-269.661299588882
-502.741224340561
19.8662767315184
-264.069231204843
-449.774093585705
-2.48238142923595
-77.5470296476844
-346.61243512156
-205.12517821458
75.4986322695142
270.29445452241
-30.1665751994252
313.772047726542
90.6102850977104
-74.8142704383447
-11.1890646336835
-44.3575454024036
-83.6920241697385
-112.024131120234
-40.8165060286756
-334.549731971216
-292.777741971856
81.7934354556689
-254.611479190353
6.36416447492543
40.3842286267129
-327.994889974434
-174.418917096039
-100.355622538468
-378.882546221304
-241.899579853059
-222.520076465644
-532.867452198714
-4.99767826784626
755.187917254682
892.585974013854
1494.76987793074
858.188998045767
-531.968135443374
-572.028601838197
-699.832978103835
-417.287132996138
-297.184190208766
-495.351852854753
-764.744019347299
-428.194849549029




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=315920&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=315920&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315920&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 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
[-1000,-950[-97520.0178570.0178570.000357
[-950,-900[-925000.0178570
[-900,-850[-875000.0178570
[-850,-800[-82510.0089290.0267860.000179
[-800,-750[-77510.0089290.0357140.000179
[-750,-700[-72510.0089290.0446430.000179
[-700,-650[-67530.0267860.0714290.000536
[-650,-600[-62510.0089290.0803570.000179
[-600,-550[-57510.0089290.0892860.000179
[-550,-500[-52530.0267860.1160710.000536
[-500,-450[-47510.0089290.1250.000179
[-450,-400[-42530.0267860.1517860.000536
[-400,-350[-37520.0178570.1696430.000357
[-350,-300[-32550.0446430.2142860.000893
[-300,-250[-27590.0803570.2946430.001607
[-250,-200[-22560.0535710.3482140.001071
[-200,-150[-17520.0178570.3660710.000357
[-150,-100[-12530.0267860.3928570.000536
[-100,-50[-7570.06250.4553570.00125
[-50,0[-25110.0982140.5535710.001964
[0,50[2580.0714290.6250.001429
[50,100[7540.0357140.6607140.000714
[100,150[12540.0357140.6964290.000714
[150,200[17550.0446430.7410710.000893
[200,250[22540.0357140.7767860.000714
[250,300[27530.0267860.8035710.000536
[300,350[32540.0357140.8392860.000714
[350,400[37510.0089290.8482140.000179
[400,450[42510.0089290.8571430.000179
[450,500[47520.0178570.8750.000357
[500,550[52510.0089290.8839290.000179
[550,600[57530.0267860.9107140.000536
[600,650[625000.9107140
[650,700[67520.0178570.9285710.000357
[700,750[725000.9285710
[750,800[77510.0089290.93750.000179
[800,850[825000.93750
[850,900[87520.0178570.9553570.000357
[900,950[925000.9553570
[950,1000[975000.9553570
[1000,1050[102510.0089290.9642860.000179
[1050,1100[107510.0089290.9732140.000179
[1100,1150[112510.0089290.9821430.000179
[1150,1200[1175000.9821430
[1200,1250[1225000.9821430
[1250,1300[1275000.9821430
[1300,1350[132510.0089290.9910710.000179
[1350,1400[1375000.9910710
[1400,1450[1425000.9910710
[1450,1500]147510.00892910.000179

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[-1000,-950[ & -975 & 2 & 0.017857 & 0.017857 & 0.000357 \tabularnewline
[-950,-900[ & -925 & 0 & 0 & 0.017857 & 0 \tabularnewline
[-900,-850[ & -875 & 0 & 0 & 0.017857 & 0 \tabularnewline
[-850,-800[ & -825 & 1 & 0.008929 & 0.026786 & 0.000179 \tabularnewline
[-800,-750[ & -775 & 1 & 0.008929 & 0.035714 & 0.000179 \tabularnewline
[-750,-700[ & -725 & 1 & 0.008929 & 0.044643 & 0.000179 \tabularnewline
[-700,-650[ & -675 & 3 & 0.026786 & 0.071429 & 0.000536 \tabularnewline
[-650,-600[ & -625 & 1 & 0.008929 & 0.080357 & 0.000179 \tabularnewline
[-600,-550[ & -575 & 1 & 0.008929 & 0.089286 & 0.000179 \tabularnewline
[-550,-500[ & -525 & 3 & 0.026786 & 0.116071 & 0.000536 \tabularnewline
[-500,-450[ & -475 & 1 & 0.008929 & 0.125 & 0.000179 \tabularnewline
[-450,-400[ & -425 & 3 & 0.026786 & 0.151786 & 0.000536 \tabularnewline
[-400,-350[ & -375 & 2 & 0.017857 & 0.169643 & 0.000357 \tabularnewline
[-350,-300[ & -325 & 5 & 0.044643 & 0.214286 & 0.000893 \tabularnewline
[-300,-250[ & -275 & 9 & 0.080357 & 0.294643 & 0.001607 \tabularnewline
[-250,-200[ & -225 & 6 & 0.053571 & 0.348214 & 0.001071 \tabularnewline
[-200,-150[ & -175 & 2 & 0.017857 & 0.366071 & 0.000357 \tabularnewline
[-150,-100[ & -125 & 3 & 0.026786 & 0.392857 & 0.000536 \tabularnewline
[-100,-50[ & -75 & 7 & 0.0625 & 0.455357 & 0.00125 \tabularnewline
[-50,0[ & -25 & 11 & 0.098214 & 0.553571 & 0.001964 \tabularnewline
[0,50[ & 25 & 8 & 0.071429 & 0.625 & 0.001429 \tabularnewline
[50,100[ & 75 & 4 & 0.035714 & 0.660714 & 0.000714 \tabularnewline
[100,150[ & 125 & 4 & 0.035714 & 0.696429 & 0.000714 \tabularnewline
[150,200[ & 175 & 5 & 0.044643 & 0.741071 & 0.000893 \tabularnewline
[200,250[ & 225 & 4 & 0.035714 & 0.776786 & 0.000714 \tabularnewline
[250,300[ & 275 & 3 & 0.026786 & 0.803571 & 0.000536 \tabularnewline
[300,350[ & 325 & 4 & 0.035714 & 0.839286 & 0.000714 \tabularnewline
[350,400[ & 375 & 1 & 0.008929 & 0.848214 & 0.000179 \tabularnewline
[400,450[ & 425 & 1 & 0.008929 & 0.857143 & 0.000179 \tabularnewline
[450,500[ & 475 & 2 & 0.017857 & 0.875 & 0.000357 \tabularnewline
[500,550[ & 525 & 1 & 0.008929 & 0.883929 & 0.000179 \tabularnewline
[550,600[ & 575 & 3 & 0.026786 & 0.910714 & 0.000536 \tabularnewline
[600,650[ & 625 & 0 & 0 & 0.910714 & 0 \tabularnewline
[650,700[ & 675 & 2 & 0.017857 & 0.928571 & 0.000357 \tabularnewline
[700,750[ & 725 & 0 & 0 & 0.928571 & 0 \tabularnewline
[750,800[ & 775 & 1 & 0.008929 & 0.9375 & 0.000179 \tabularnewline
[800,850[ & 825 & 0 & 0 & 0.9375 & 0 \tabularnewline
[850,900[ & 875 & 2 & 0.017857 & 0.955357 & 0.000357 \tabularnewline
[900,950[ & 925 & 0 & 0 & 0.955357 & 0 \tabularnewline
[950,1000[ & 975 & 0 & 0 & 0.955357 & 0 \tabularnewline
[1000,1050[ & 1025 & 1 & 0.008929 & 0.964286 & 0.000179 \tabularnewline
[1050,1100[ & 1075 & 1 & 0.008929 & 0.973214 & 0.000179 \tabularnewline
[1100,1150[ & 1125 & 1 & 0.008929 & 0.982143 & 0.000179 \tabularnewline
[1150,1200[ & 1175 & 0 & 0 & 0.982143 & 0 \tabularnewline
[1200,1250[ & 1225 & 0 & 0 & 0.982143 & 0 \tabularnewline
[1250,1300[ & 1275 & 0 & 0 & 0.982143 & 0 \tabularnewline
[1300,1350[ & 1325 & 1 & 0.008929 & 0.991071 & 0.000179 \tabularnewline
[1350,1400[ & 1375 & 0 & 0 & 0.991071 & 0 \tabularnewline
[1400,1450[ & 1425 & 0 & 0 & 0.991071 & 0 \tabularnewline
[1450,1500] & 1475 & 1 & 0.008929 & 1 & 0.000179 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315920&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][-1000,-950[[/C][C]-975[/C][C]2[/C][C]0.017857[/C][C]0.017857[/C][C]0.000357[/C][/ROW]
[ROW][C][-950,-900[[/C][C]-925[/C][C]0[/C][C]0[/C][C]0.017857[/C][C]0[/C][/ROW]
[ROW][C][-900,-850[[/C][C]-875[/C][C]0[/C][C]0[/C][C]0.017857[/C][C]0[/C][/ROW]
[ROW][C][-850,-800[[/C][C]-825[/C][C]1[/C][C]0.008929[/C][C]0.026786[/C][C]0.000179[/C][/ROW]
[ROW][C][-800,-750[[/C][C]-775[/C][C]1[/C][C]0.008929[/C][C]0.035714[/C][C]0.000179[/C][/ROW]
[ROW][C][-750,-700[[/C][C]-725[/C][C]1[/C][C]0.008929[/C][C]0.044643[/C][C]0.000179[/C][/ROW]
[ROW][C][-700,-650[[/C][C]-675[/C][C]3[/C][C]0.026786[/C][C]0.071429[/C][C]0.000536[/C][/ROW]
[ROW][C][-650,-600[[/C][C]-625[/C][C]1[/C][C]0.008929[/C][C]0.080357[/C][C]0.000179[/C][/ROW]
[ROW][C][-600,-550[[/C][C]-575[/C][C]1[/C][C]0.008929[/C][C]0.089286[/C][C]0.000179[/C][/ROW]
[ROW][C][-550,-500[[/C][C]-525[/C][C]3[/C][C]0.026786[/C][C]0.116071[/C][C]0.000536[/C][/ROW]
[ROW][C][-500,-450[[/C][C]-475[/C][C]1[/C][C]0.008929[/C][C]0.125[/C][C]0.000179[/C][/ROW]
[ROW][C][-450,-400[[/C][C]-425[/C][C]3[/C][C]0.026786[/C][C]0.151786[/C][C]0.000536[/C][/ROW]
[ROW][C][-400,-350[[/C][C]-375[/C][C]2[/C][C]0.017857[/C][C]0.169643[/C][C]0.000357[/C][/ROW]
[ROW][C][-350,-300[[/C][C]-325[/C][C]5[/C][C]0.044643[/C][C]0.214286[/C][C]0.000893[/C][/ROW]
[ROW][C][-300,-250[[/C][C]-275[/C][C]9[/C][C]0.080357[/C][C]0.294643[/C][C]0.001607[/C][/ROW]
[ROW][C][-250,-200[[/C][C]-225[/C][C]6[/C][C]0.053571[/C][C]0.348214[/C][C]0.001071[/C][/ROW]
[ROW][C][-200,-150[[/C][C]-175[/C][C]2[/C][C]0.017857[/C][C]0.366071[/C][C]0.000357[/C][/ROW]
[ROW][C][-150,-100[[/C][C]-125[/C][C]3[/C][C]0.026786[/C][C]0.392857[/C][C]0.000536[/C][/ROW]
[ROW][C][-100,-50[[/C][C]-75[/C][C]7[/C][C]0.0625[/C][C]0.455357[/C][C]0.00125[/C][/ROW]
[ROW][C][-50,0[[/C][C]-25[/C][C]11[/C][C]0.098214[/C][C]0.553571[/C][C]0.001964[/C][/ROW]
[ROW][C][0,50[[/C][C]25[/C][C]8[/C][C]0.071429[/C][C]0.625[/C][C]0.001429[/C][/ROW]
[ROW][C][50,100[[/C][C]75[/C][C]4[/C][C]0.035714[/C][C]0.660714[/C][C]0.000714[/C][/ROW]
[ROW][C][100,150[[/C][C]125[/C][C]4[/C][C]0.035714[/C][C]0.696429[/C][C]0.000714[/C][/ROW]
[ROW][C][150,200[[/C][C]175[/C][C]5[/C][C]0.044643[/C][C]0.741071[/C][C]0.000893[/C][/ROW]
[ROW][C][200,250[[/C][C]225[/C][C]4[/C][C]0.035714[/C][C]0.776786[/C][C]0.000714[/C][/ROW]
[ROW][C][250,300[[/C][C]275[/C][C]3[/C][C]0.026786[/C][C]0.803571[/C][C]0.000536[/C][/ROW]
[ROW][C][300,350[[/C][C]325[/C][C]4[/C][C]0.035714[/C][C]0.839286[/C][C]0.000714[/C][/ROW]
[ROW][C][350,400[[/C][C]375[/C][C]1[/C][C]0.008929[/C][C]0.848214[/C][C]0.000179[/C][/ROW]
[ROW][C][400,450[[/C][C]425[/C][C]1[/C][C]0.008929[/C][C]0.857143[/C][C]0.000179[/C][/ROW]
[ROW][C][450,500[[/C][C]475[/C][C]2[/C][C]0.017857[/C][C]0.875[/C][C]0.000357[/C][/ROW]
[ROW][C][500,550[[/C][C]525[/C][C]1[/C][C]0.008929[/C][C]0.883929[/C][C]0.000179[/C][/ROW]
[ROW][C][550,600[[/C][C]575[/C][C]3[/C][C]0.026786[/C][C]0.910714[/C][C]0.000536[/C][/ROW]
[ROW][C][600,650[[/C][C]625[/C][C]0[/C][C]0[/C][C]0.910714[/C][C]0[/C][/ROW]
[ROW][C][650,700[[/C][C]675[/C][C]2[/C][C]0.017857[/C][C]0.928571[/C][C]0.000357[/C][/ROW]
[ROW][C][700,750[[/C][C]725[/C][C]0[/C][C]0[/C][C]0.928571[/C][C]0[/C][/ROW]
[ROW][C][750,800[[/C][C]775[/C][C]1[/C][C]0.008929[/C][C]0.9375[/C][C]0.000179[/C][/ROW]
[ROW][C][800,850[[/C][C]825[/C][C]0[/C][C]0[/C][C]0.9375[/C][C]0[/C][/ROW]
[ROW][C][850,900[[/C][C]875[/C][C]2[/C][C]0.017857[/C][C]0.955357[/C][C]0.000357[/C][/ROW]
[ROW][C][900,950[[/C][C]925[/C][C]0[/C][C]0[/C][C]0.955357[/C][C]0[/C][/ROW]
[ROW][C][950,1000[[/C][C]975[/C][C]0[/C][C]0[/C][C]0.955357[/C][C]0[/C][/ROW]
[ROW][C][1000,1050[[/C][C]1025[/C][C]1[/C][C]0.008929[/C][C]0.964286[/C][C]0.000179[/C][/ROW]
[ROW][C][1050,1100[[/C][C]1075[/C][C]1[/C][C]0.008929[/C][C]0.973214[/C][C]0.000179[/C][/ROW]
[ROW][C][1100,1150[[/C][C]1125[/C][C]1[/C][C]0.008929[/C][C]0.982143[/C][C]0.000179[/C][/ROW]
[ROW][C][1150,1200[[/C][C]1175[/C][C]0[/C][C]0[/C][C]0.982143[/C][C]0[/C][/ROW]
[ROW][C][1200,1250[[/C][C]1225[/C][C]0[/C][C]0[/C][C]0.982143[/C][C]0[/C][/ROW]
[ROW][C][1250,1300[[/C][C]1275[/C][C]0[/C][C]0[/C][C]0.982143[/C][C]0[/C][/ROW]
[ROW][C][1300,1350[[/C][C]1325[/C][C]1[/C][C]0.008929[/C][C]0.991071[/C][C]0.000179[/C][/ROW]
[ROW][C][1350,1400[[/C][C]1375[/C][C]0[/C][C]0[/C][C]0.991071[/C][C]0[/C][/ROW]
[ROW][C][1400,1450[[/C][C]1425[/C][C]0[/C][C]0[/C][C]0.991071[/C][C]0[/C][/ROW]
[ROW][C][1450,1500][/C][C]1475[/C][C]1[/C][C]0.008929[/C][C]1[/C][C]0.000179[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=315920&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315920&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
[-1000,-950[-97520.0178570.0178570.000357
[-950,-900[-925000.0178570
[-900,-850[-875000.0178570
[-850,-800[-82510.0089290.0267860.000179
[-800,-750[-77510.0089290.0357140.000179
[-750,-700[-72510.0089290.0446430.000179
[-700,-650[-67530.0267860.0714290.000536
[-650,-600[-62510.0089290.0803570.000179
[-600,-550[-57510.0089290.0892860.000179
[-550,-500[-52530.0267860.1160710.000536
[-500,-450[-47510.0089290.1250.000179
[-450,-400[-42530.0267860.1517860.000536
[-400,-350[-37520.0178570.1696430.000357
[-350,-300[-32550.0446430.2142860.000893
[-300,-250[-27590.0803570.2946430.001607
[-250,-200[-22560.0535710.3482140.001071
[-200,-150[-17520.0178570.3660710.000357
[-150,-100[-12530.0267860.3928570.000536
[-100,-50[-7570.06250.4553570.00125
[-50,0[-25110.0982140.5535710.001964
[0,50[2580.0714290.6250.001429
[50,100[7540.0357140.6607140.000714
[100,150[12540.0357140.6964290.000714
[150,200[17550.0446430.7410710.000893
[200,250[22540.0357140.7767860.000714
[250,300[27530.0267860.8035710.000536
[300,350[32540.0357140.8392860.000714
[350,400[37510.0089290.8482140.000179
[400,450[42510.0089290.8571430.000179
[450,500[47520.0178570.8750.000357
[500,550[52510.0089290.8839290.000179
[550,600[57530.0267860.9107140.000536
[600,650[625000.9107140
[650,700[67520.0178570.9285710.000357
[700,750[725000.9285710
[750,800[77510.0089290.93750.000179
[800,850[825000.93750
[850,900[87520.0178570.9553570.000357
[900,950[925000.9553570
[950,1000[975000.9553570
[1000,1050[102510.0089290.9642860.000179
[1050,1100[107510.0089290.9732140.000179
[1100,1150[112510.0089290.9821430.000179
[1150,1200[1175000.9821430
[1200,1250[1225000.9821430
[1250,1300[1275000.9821430
[1300,1350[132510.0089290.9910710.000179
[1350,1400[1375000.9910710
[1400,1450[1425000.9910710
[1450,1500]147510.00892910.000179



Parameters (Session):
Parameters (R input):
par1 = 10000 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
R code (references can be found in the software module):
par4 <- 'Unknown'
par3 <- 'FALSE'
par2 <- 'grey'
par1 <- '20000'
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')
}