Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationMon, 27 Aug 2018 02:01:14 +0200
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/Aug/27/t153532811831azfcnq1a2xsmj.htm/, Retrieved Sat, 04 May 2024 00:00:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315109, Retrieved Sat, 04 May 2024 00:00:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact106
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Dollar amount] [2018-08-27 00:01:14] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
9,779,057.16
7,243,746.05
6,994,742.28
6,902,681.66
6,602,425.77
6,360,914.50
5,772,360.13
3,668,026.82
3,664,956.37
3,176,263.20
3,056,574.51
3,056,574.51
3,011,865.36
2,991,383.11
2,497,613.16
2,438,362.50
2,263,385.60
2,201,353.67
2,200,378.32
1,937,340.39
1,896,403.91
1,652,192.14
1,631,088.10
1,545,525.16
1,514,315.01
1,488,763.54
1,487,658.85
1,412,954.20
1,385,476.23
1,374,595.21
1,355,061.00
1,349,718.25
1,338,075.32
1,295,533.16
1,271,545.79
1,234,446.38
1,227,097.51
1,209,115.52
1,183,505.65
1,138,052.82
1,066,313.01
1,018,963.30
977,250.35
899,895.38
881,951.33
869,092.20
859,084.92
859,084.92
820,673.10
819,330.63
772,200.00
770,431.44
764,143.63
756,283.86
743,934.60
739,999.68
683,309.47
679,331.19
674,803.52
654,980.25
653,633.61
638,466.77
632,516.17
624,715.68
621,171.10
615,405.15
612,435.46
605,342.27
602,316.05
590,662.06
586,523.13
584,175.90
557,808.49
557,165.47
547,753.76
545,385.47
543,576.22
539,654.82
535,422.10
524,263.83
522,412.25
504,612.50
503,155.68
503,140.55
489,656.93
485,606.42
485,390.63
473,748.22
473,074.22
472,265.40
466,995.19
459,067.13
456,521.44
454,807.91
445,786.00
444,757.32
440,128.73
440,128.73
434,880.75
430,211.89
426,433.45
421,572.77
417,507.91
407,612.70
402,925.44
398,892.66
398,217.32
398,187.42
389,905.18
388,580.15
386,148.69
385,449.77
383,843.54
381,953.41
381,953.41
381,750.68
377,524.91
371,330.14
371,155.48
368,535.55
368,452.78
364,154.27
356,910.36
351,981.03
350,471.95
349,490.88
345,640.38
341,350.56
340,037.35
337,888.93
337,581.82
335,430.03
334,906.47
333,949.14
328,900.60
328,848.49
322,926.71
322,210.52
320,301.19
317,550.02
316,403.04
310,284.82
308,736.85
306,522.04
305,147.25
303,981.12
302,863.00
302,863.00
300,387.58
298,668.60
294,317.63
292,237.69
292,204.65
291,738.55
290,463.97
286,105.56
285,859.22
280,328.27
280,328.25
279,390.31
273,758.14
273,248.73
272,784.28
269,422.47
268,534.07
267,682.77
267,682.77
267,682.77
266,827.88
265,586.45
265,586.45
265,586.44
265,586.44
265,481.05
262,279.10
261,992.10
259,359.19
259,117.85
258,749.47
257,900.50
256,778.52
256,248.55
254,545.15
252,133.19
250,586.83
244,158.38
243,314.58
243,244.74
242,360.69
240,947.09
240,523.93
239,789.38
239,047.95
238,987.34
238,973.80
238,450.00
237,622.78
237,203.90
236,430.52
236,359.67
234,094.92
233,992.49
233,800.90
233,005.34
232,857.26
231,722.44
230,521.95
228,137.74
227,986.00
227,487.53
227,150.05
225,699.14
225,339.15
223,461.72
223,182.86
223,004.71
222,839.84
221,741.17
220,358.50
220,358.49
220,238.20
219,381.13
218,030.89
217,945.51
217,697.00
215,785.05
214,541.42
214,492.67
214,433.40
214,153.03
212,065.38
211,060.87
211,012.19
210,914.81
210,735.59
210,545.12
209,593.68
209,064.23
208,169.78
207,916.24
207,148.10
206,895.53
206,592.47
205,660.05
204,201.78
203,304.29
202,778.87
201,255.37
200,372.49
198,466.88
196,665.06
196,016.35
195,708.42
194,553.75
194,097.15
194,058.40
194,035.09
193,914.89
192,296.21
192,127.54
191,168.63
190,474.10
190,445.32
189,916.26
189,460.11
189,319.81
189,249.92
188,867.95
187,842.16
187,428.94
187,373.56
187,266.24
186,072.02
185,540.04
185,471.64
184,227.26
183,831.93
183,826.00
183,826.00
183,826.00
183,826.00
183,664.01
183,660.13
183,064.26
182,879.56
182,673.07
181,049.54
180,504.14
180,061.14
179,668.13
179,379.78
179,365.49
179,027.94
178,822.02
178,813.01
177,947.85
176,573.82
176,236.13
175,971.62
175,534.71
174,858.20
174,743.21
174,025.07
172,974.88
171,765.85
171,747.28
171,747.28
171,567.89
171,152.25
171,131.56
170,821.50
170,490.15
170,490.15
170,490.15
170,428.71
170,174.92
169,921.13
169,775.77
169,699.88
169,170.54
168,975.83
168,635.91
168,279.45
168,036.92
167,939.70
167,754.91
167,473.44
166,893.00
166,818.94
166,376.54
166,232.59
165,797.89
165,667.51
165,443.40
164,878.45
163,266.27
162,926.06
162,522.47
162,459.35
162,459.35
162,275.75
161,686.94
161,577.27
161,329.68
160,807.31
160,610.28
160,579.30
160,370.65
159,989.75
159,674.58
159,519.18
158,943.73
157,976.55
157,830.20
157,429.15
156,488.82
156,252.10
155,190.37
154,831.53
154,831.53
154,831.53
154,831.53
154,831.53
154,831.53
154,831.53
154,831.53
154,831.53
154,542.76
154,454.01
154,378.44
154,281.66
153,429.30
152,704.28
152,463.41
152,340.10
152,304.73
152,242.94
152,120.33
151,120.46
151,087.79
150,982.30
150,737.32
150,649.40
150,555.29
149,893.63
149,526.39
149,411.22
148,971.73
148,878.68
148,669.07
147,921.03
147,916.08
147,840.95
147,518.45
147,060.80
147,060.80
147,060.80
147,060.80
146,456.33
146,184.08
144,897.22
144,897.22
144,249.08
143,588.85
142,981.70
142,336.41
142,336.24
142,227.09
141,937.44
141,881.76
141,546.02
141,093.51
141,089.19
141,083.80
140,583.93
140,203.18
140,098.05
139,076.87
138,636.99
138,178.44
138,001.65
137,869.50
137,747.06
137,747.06
137,706.76
137,632.45
137,323.62
137,286.00
136,820.74
136,814.80
136,765.33
136,559.00
136,445.37
136,420.10
135,493.55
133,935.41
133,906.35
133,827.35
133,698.18
133,316.70
133,000.00
132,904.96
132,828.66
132,633.27
132,476.90
132,281.80
132,153.98
131,691.89
131,528.69
131,416.82
131,064.02
130,676.59
130,436.12
130,100.40
129,970.67
129,970.67
129,422.95
129,385.27
129,350.89
128,678.20
128,459.21
127,909.09
127,893.58
127,758.08
127,376.33
127,198.75
127,122.67
126,977.43
126,968.77
126,938.77
126,755.96
126,199.64
125,284.50
124,697.91
124,188.71
123,904.68
123,727.10
123,715.28
123,633.09
123,252.60
123,154.45
122,636.15
121,897.10
121,808.41
121,784.53
121,119.95
120,914.50
120,735.28
120,722.50
120,722.50
120,722.28
120,722.28
120,651.71
120,078.21
120,010.82
119,614.13
119,566.48
119,104.72
119,078.25
119,078.25
119,078.25
119,078.25
118,878.96
118,863.00
118,833.13
118,786.12
118,441.39
118,122.96
118,048.24
117,782.37
117,538.03
117,035.08
116,395.74
116,335.45
116,067.05
115,358.41
115,282.87
115,261.61
115,199.35
115,071.04
114,782.97
114,773.92
114,700.57
114,513.78
114,309.45
114,187.21
114,173.79
113,930.86
113,801.69
113,684.63
112,936.00
112,934.14
112,757.18
112,724.25
112,560.49
112,471.94
112,260.53
112,133.86
111,404.18
111,110.45
111,009.39
110,823.81
110,778.91
110,662.09
110,662.09
110,581.51
110,520.77
110,295.60
110,295.60
110,295.60
110,295.60
110,295.60
110,118.51
110,070.87
110,016.28
109,868.24
109,868.24
109,848.32
109,505.93
109,437.12
109,369.14
109,134.64
108,952.44
108,861.57
108,715.46
108,664.66
108,241.33
108,236.16
108,150.08
108,124.19
107,829.19
107,631.80
107,478.77
107,372.77
106,623.86
106,581.33
106,468.78
106,282.36
106,179.84
105,757.90
105,733.10
105,683.47
105,393.58
105,123.90
105,057.83
104,785.97
104,776.50
104,776.50
104,364.58
104,338.61
104,306.71
104,301.01
103,909.62
103,862.68
103,808.73
103,794.96
103,637.98
103,482.72
103,474.04
102,807.93
102,790.04
102,664.01
102,661.87
102,655.49
102,503.35
102,355.33
102,054.04
102,054.04
101,479.94
101,407.63
101,282.63
101,173.41
101,132.78
101,095.81
100,950.42
100,864.02
100,834.23
100,784.20
100,601.90
100,409.84
100,364.70
100,250.21
100,204.55
100,201.36
100,007.16
100,000.00
99,877.66
99,772.23
99,657.60
99,341.79
99,187.22
99,178.13
99,111.49
98,926.80
98,766.95
98,590.48
98,569.45
98,282.71
97,971.11
97,926.64
97,725.41
97,597.58
97,389.39
97,092.91
96,984.33
96,898.37
96,675.29
96,530.93
96,022.84
95,870.18
95,468.14
95,414.55
95,412.21
95,330.41
95,225.15
95,175.32
95,022.74
94,947.27
94,882.38
94,432.76
94,369.79
94,130.03
94,093.54
94,045.46
93,782.62
93,374.08
93,355.12
93,232.06
93,188.46
92,770.02
92,639.25
92,590.89
92,475.63
92,448.03
92,367.71
92,259.91
92,222.00
92,222.00
92,120.30
92,066.79
92,009.06
91,944.93
91,913.00
91,913.00
91,913.00
91,913.00
91,913.00
91,913.00
91,913.00
91,865.68
91,787.52
91,749.16
91,584.37
91,336.67
91,128.14
91,063.21
91,051.77
91,014.29
91,008.20
90,896.65
90,879.95
90,839.96
90,663.85
90,542.46
90,541.71
90,416.65
89,905.06
89,726.20
89,625.58
89,398.01
89,349.49
89,179.01
89,041.91
88,392.56
88,245.13
88,196.52
87,886.48
87,585.16
87,562.39
87,527.47
87,480.48
87,303.87
87,293.81
87,212.44
87,094.51
86,988.86
86,965.35
86,948.49
86,926.82
86,869.83
86,861.82
86,744.33
86,674.00
86,492.80
86,431.61
86,285.96
86,185.69
85,939.49
85,715.47
85,549.59
85,443.08
85,414.20
85,339.24
85,339.24
85,339.24
85,217.91
84,958.94
84,929.38
84,696.27
84,595.90
84,555.99
84,522.25
84,510.03
84,331.40
84,264.95
84,123.14
84,123.13
84,123.13
84,018.14
83,866.74
83,680.96
83,607.25
83,595.63
83,545.70
83,542.30
83,516.96
83,426.01
83,418.50
83,307.00
83,274.50
83,174.21
83,174.21
83,077.33
82,721.70
82,721.70
82,721.70
82,721.70
82,721.70
82,721.70
82,673.92
82,520.05
82,448.16
82,438.63
82,345.21
82,316.93
82,299.04
82,166.31
82,078.85
82,041.05
81,844.73
81,689.95
81,383.55
81,142.19
81,040.11
80,883.44
80,850.34
80,701.40
80,692.29
80,637.62
80,420.59
80,420.59
80,382.00
80,215.00
80,084.37
80,053.62
79,984.68
79,837.93
79,817.95
79,722.05
79,553.00
79,482.17
79,281.08
79,139.19
79,108.84
79,076.93
78,853.15
78,802.77
78,756.16
78,738.49
78,581.41
78,493.30
78,493.30
78,415.28
78,356.09
78,161.73
78,038.77
77,779.31
77,706.09
77,332.32
77,247.32
77,247.32
77,241.85
77,196.96
77,109.98
77,051.95
77,049.20
76,966.37
76,951.62
76,951.24
76,749.62
76,684.14
76,653.61
76,622.01
76,381.65
76,199.37
76,100.90
76,052.87
76,007.99
75,964.81
75,804.76
75,733.74
75,715.00
75,381.63
75,369.18
75,329.29
75,254.24
75,184.99
75,060.64
75,060.64
74,998.77
74,989.10
74,878.96
74,854.14
74,815.53
74,683.49
74,466.70
74,360.62
74,349.00
74,310.30
74,239.07
74,208.82
74,189.50
74,065.94
74,050.70
74,026.04
73,862.87
73,823.24
73,770.73
73,687.85
73,530.40
73,530.40
73,530.40
73,530.40
73,530.40
73,530.40
73,530.40
73,530.40
73,530.40
73,530.40
73,530.40
73,528.49
73,512.58
73,407.69
73,280.80
73,186.80
73,114.43
73,114.43
72,884.60
72,774.65
72,722.59
72,702.86
72,563.91
72,464.57
72,384.05
72,272.62
72,093.26
71,937.05
71,918.09
71,907.81
71,855.69
71,804.79
71,731.98
71,692.14
71,609.26
71,470.57
71,467.17
71,416.43
71,349.73
71,337.78
71,121.50
71,047.30
70,918.72
70,860.97
70,837.54
70,801.78
70,769.68
70,536.89
70,362.12
70,347.57
70,250.67
70,249.21
70,164.00
70,000.00
69,853.88
69,825.10
69,729.13
69,722.80
69,619.58
69,367.78
69,344.28
69,297.89
69,271.04
69,127.40
69,121.15
69,102.74
69,101.65
68,981.18
68,920.12
68,831.63
68,652.36
68,572.66
68,525.45
68,448.57
68,329.81
68,232.49
68,211.24
68,180.97
68,130.57
68,015.62
67,961.90
67,824.21
67,813.70
67,775.68
67,715.19
67,635.65
67,558.50
67,533.57
67,317.96
67,313.62
67,294.54
67,288.99
67,203.24
67,105.53
67,093.70
67,070.11
67,068.11
66,945.56
66,886.36
66,813.46
66,775.30
66,689.18
66,685.35
66,631.26
66,626.94
66,463.96
66,400.40
66,249.60
66,177.36
66,177.36
66,077.61
66,077.61
66,034.91
65,994.40
65,986.34
65,957.37
65,880.79
65,806.11
65,634.22
65,542.73
65,505.69
65,412.73
65,412.73
65,271.53
65,271.46
65,179.29
65,167.35
65,124.72
64,985.82
64,915.55
64,861.59
64,861.50
64,861.50
64,834.20
64,834.20
64,784.19
64,695.21
64,686.04
64,660.69
64,460.77
64,339.10
64,339.10
64,327.00
64,296.81
64,229.28
64,021.29
63,970.62
63,945.90
63,942.83
63,936.88
63,795.50
63,687.07
63,679.40
63,645.75
63,645.75
63,510.94
63,304.95
63,231.08
63,210.26
63,208.73
63,079.77
63,077.34
63,038.48
63,023.46
62,992.83
62,746.25
62,697.89
62,524.62
62,474.99
62,270.64
62,232.05
62,232.05
62,196.36
62,170.42
62,056.15
61,836.12
61,809.31
61,720.37
61,709.23
61,415.52
61,221.27
61,212.78
61,189.14
61,108.50
61,085.81
61,069.44
60,938.47
60,879.67
60,821.37
60,662.58
60,662.58
60,636.32
60,593.65
60,554.45
60,552.08
60,495.92
60,370.80
60,266.18
60,260.53
60,201.33
60,159.31
60,064.80
60,064.80
60,051.94
60,031.80
60,027.96
60,013.51
59,931.10
59,765.58
59,675.13
59,536.83
59,479.20
59,471.57
59,466.59
59,462.51
59,452.67
59,431.89
59,409.05
59,268.61
59,266.94
59,220.76
59,022.08
59,022.08
58,963.95
58,911.00
58,907.32
58,886.22
58,824.32
58,824.32
58,824.32
58,824.32
58,813.52
58,740.74
58,678.26
58,482.11
58,466.17
58,446.64
58,412.97
58,406.65
58,370.39
58,240.05
58,066.03
58,041.92
57,971.65
57,818.41
57,747.76
57,701.72
57,446.83
57,446.83
57,290.23
57,177.64
57,177.64
57,159.17
57,115.01
57,115.01
57,115.01
57,115.01
57,106.66
57,092.38
57,025.34
56,886.27
56,877.70
56,791.62
56,715.43
56,525.11
56,520.63
56,520.63
56,520.63
56,474.42
56,429.89
56,411.05
56,352.04
56,344.44
56,317.82
56,267.12
56,267.12
56,076.81
55,913.43
55,858.46
55,741.98
55,708.62
55,707.42
55,609.06
55,593.96
55,581.89
55,572.90
55,567.92
55,455.77
55,349.55
55,282.28
55,198.18
55,161.71
55,161.43
55,150.90
55,147.80
55,147.80
55,147.80
55,147.80
55,147.80
55,147.80
55,147.80
55,147.80
55,147.80
55,147.80
55,147.80
55,094.80
54,949.00
54,884.31
54,882.48
54,826.60
54,785.84
54,770.02
54,712.89
54,652.77
54,586.87
54,555.28
54,508.77
54,441.42
54,302.77
54,242.57
54,176.47
54,069.43
54,035.88
54,023.80
53,975.57
53,953.56
53,889.07
53,765.93
53,759.61
53,743.00
53,734.27
53,731.51
53,692.67
53,656.39
53,515.29
53,512.30
53,503.68
53,503.68
53,503.68
53,503.68
53,481.10
53,477.49
53,444.17
53,341.75
53,333.84
53,330.34
53,317.78
53,309.54
53,287.69
53,285.68
53,285.67
53,285.67
53,159.98
53,158.42
53,092.74
53,067.97
53,029.13
53,029.13
52,948.19
52,907.92
52,905.91
52,839.35
52,750.99
52,740.06
52,684.53
52,663.88
52,594.07
52,571.15
52,422.85
52,355.34
52,342.34
52,188.87
52,122.56
52,074.84
52,057.65
52,050.40
51,955.83
51,916.74
51,903.96
51,884.79
51,728.49
51,719.15
51,529.81
51,451.65
51,425.73
51,425.73
51,366.58
51,337.93
51,252.63
51,246.99
51,002.86
51,001.14
50,853.04
50,840.59
50,835.06
50,724.17
50,687.62
50,608.24
50,523.65
50,520.23
50,475.22
50,453.81
50,440.37
50,419.26
50,378.32
50,258.81
50,186.46
50,184.87
50,165.58
50,165.58
50,125.93
50,041.01
50,015.23
50,012.71
50,006.82




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

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



Parameters (Session):
par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = ; 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.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')
}