Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_histogram.wasp

Title produced by software

Histogram

Date of computation

Tue, 02 Aug 2016 15:47:05 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Aug/02/t14701493368qfl2ansy0rn6ld.htm/, Retrieved Mon, 06 May 2024 06:58:40 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296008, Retrieved Mon, 06 May 2024 06:58:40 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

142

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Histogram] [Reeks A Stap 5] [2016-08-02 14:47:05] [683de60048494fb76648fe2459d7f7af] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296008&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]0 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=296008&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296008&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 Output	view raw output of R engine
Computing time	0 seconds
R Server	'Gwilym Jenkins' @ jenkins.wessa.net

Frequency Table (Histogram)
Bins	Midpoint	Abs. Frequency	Rel. Frequency	Cumul. Rel. Freq.	Density
[2000,3000[	2500	1	0.008333	0.008333	8e-06
[3000,4000[	3500	1	0.008333	0.016667	8e-06
[4000,5000[	4500	1	0.008333	0.025	8e-06
[5000,6000[	5500	3	0.025	0.05	2.5e-05
[6000,7000[	6500	0	0	0.05	0
[7000,8000[	7500	2	0.016667	0.066667	1.7e-05
[8000,9000[	8500	2	0.016667	0.083333	1.7e-05
[9000,10000[	9500	3	0.025	0.108333	2.5e-05
[10000,11000[	10500	4	0.033333	0.141667	3.3e-05
[11000,12000[	11500	1	0.008333	0.15	8e-06
[12000,13000[	12500	1	0.008333	0.158333	8e-06
[13000,14000[	13500	0	0	0.158333	0
[14000,15000[	14500	5	0.041667	0.2	4.2e-05
[15000,16000[	15500	1	0.008333	0.208333	8e-06
[16000,17000[	16500	2	0.016667	0.225	1.7e-05
[17000,18000[	17500	2	0.016667	0.241667	1.7e-05
[18000,19000[	18500	1	0.008333	0.25	8e-06
[19000,20000[	19500	0	0	0.25	0
[20000,21000[	20500	5	0.041667	0.291667	4.2e-05
[21000,22000[	21500	1	0.008333	0.3	8e-06
[22000,23000[	22500	3	0.025	0.325	2.5e-05
[23000,24000[	23500	1	0.008333	0.333333	8e-06
[24000,25000[	24500	2	0.016667	0.35	1.7e-05
[25000,26000[	25500	1	0.008333	0.358333	8e-06
[26000,27000[	26500	1	0.008333	0.366667	8e-06
[27000,28000[	27500	4	0.033333	0.4	3.3e-05
[28000,29000[	28500	3	0.025	0.425	2.5e-05
[29000,30000[	29500	2	0.016667	0.441667	1.7e-05
[30000,31000[	30500	1	0.008333	0.45	8e-06
[31000,32000[	31500	1	0.008333	0.458333	8e-06
[32000,33000[	32500	5	0.041667	0.5	4.2e-05
[33000,34000[	33500	3	0.025	0.525	2.5e-05
[34000,35000[	34500	2	0.016667	0.541667	1.7e-05
[35000,36000[	35500	1	0.008333	0.55	8e-06
[36000,37000[	36500	4	0.033333	0.583333	3.3e-05
[37000,38000[	37500	5	0.041667	0.625	4.2e-05
[38000,39000[	38500	8	0.066667	0.691667	6.7e-05
[39000,40000[	39500	13	0.108333	0.8	0.000108
[40000,41000[	40500	18	0.15	0.95	0.00015
[41000,42000[	41500	3	0.025	0.975	2.5e-05
[42000,43000]	42500	3	0.025	1	2.5e-05

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[2000,3000[ & 2500 & 1 & 0.008333 & 0.008333 & 8e-06 \tabularnewline
[3000,4000[ & 3500 & 1 & 0.008333 & 0.016667 & 8e-06 \tabularnewline
[4000,5000[ & 4500 & 1 & 0.008333 & 0.025 & 8e-06 \tabularnewline
[5000,6000[ & 5500 & 3 & 0.025 & 0.05 & 2.5e-05 \tabularnewline
[6000,7000[ & 6500 & 0 & 0 & 0.05 & 0 \tabularnewline
[7000,8000[ & 7500 & 2 & 0.016667 & 0.066667 & 1.7e-05 \tabularnewline
[8000,9000[ & 8500 & 2 & 0.016667 & 0.083333 & 1.7e-05 \tabularnewline
[9000,10000[ & 9500 & 3 & 0.025 & 0.108333 & 2.5e-05 \tabularnewline
[10000,11000[ & 10500 & 4 & 0.033333 & 0.141667 & 3.3e-05 \tabularnewline
[11000,12000[ & 11500 & 1 & 0.008333 & 0.15 & 8e-06 \tabularnewline
[12000,13000[ & 12500 & 1 & 0.008333 & 0.158333 & 8e-06 \tabularnewline
[13000,14000[ & 13500 & 0 & 0 & 0.158333 & 0 \tabularnewline
[14000,15000[ & 14500 & 5 & 0.041667 & 0.2 & 4.2e-05 \tabularnewline
[15000,16000[ & 15500 & 1 & 0.008333 & 0.208333 & 8e-06 \tabularnewline
[16000,17000[ & 16500 & 2 & 0.016667 & 0.225 & 1.7e-05 \tabularnewline
[17000,18000[ & 17500 & 2 & 0.016667 & 0.241667 & 1.7e-05 \tabularnewline
[18000,19000[ & 18500 & 1 & 0.008333 & 0.25 & 8e-06 \tabularnewline
[19000,20000[ & 19500 & 0 & 0 & 0.25 & 0 \tabularnewline
[20000,21000[ & 20500 & 5 & 0.041667 & 0.291667 & 4.2e-05 \tabularnewline
[21000,22000[ & 21500 & 1 & 0.008333 & 0.3 & 8e-06 \tabularnewline
[22000,23000[ & 22500 & 3 & 0.025 & 0.325 & 2.5e-05 \tabularnewline
[23000,24000[ & 23500 & 1 & 0.008333 & 0.333333 & 8e-06 \tabularnewline
[24000,25000[ & 24500 & 2 & 0.016667 & 0.35 & 1.7e-05 \tabularnewline
[25000,26000[ & 25500 & 1 & 0.008333 & 0.358333 & 8e-06 \tabularnewline
[26000,27000[ & 26500 & 1 & 0.008333 & 0.366667 & 8e-06 \tabularnewline
[27000,28000[ & 27500 & 4 & 0.033333 & 0.4 & 3.3e-05 \tabularnewline
[28000,29000[ & 28500 & 3 & 0.025 & 0.425 & 2.5e-05 \tabularnewline
[29000,30000[ & 29500 & 2 & 0.016667 & 0.441667 & 1.7e-05 \tabularnewline
[30000,31000[ & 30500 & 1 & 0.008333 & 0.45 & 8e-06 \tabularnewline
[31000,32000[ & 31500 & 1 & 0.008333 & 0.458333 & 8e-06 \tabularnewline
[32000,33000[ & 32500 & 5 & 0.041667 & 0.5 & 4.2e-05 \tabularnewline
[33000,34000[ & 33500 & 3 & 0.025 & 0.525 & 2.5e-05 \tabularnewline
[34000,35000[ & 34500 & 2 & 0.016667 & 0.541667 & 1.7e-05 \tabularnewline
[35000,36000[ & 35500 & 1 & 0.008333 & 0.55 & 8e-06 \tabularnewline
[36000,37000[ & 36500 & 4 & 0.033333 & 0.583333 & 3.3e-05 \tabularnewline
[37000,38000[ & 37500 & 5 & 0.041667 & 0.625 & 4.2e-05 \tabularnewline
[38000,39000[ & 38500 & 8 & 0.066667 & 0.691667 & 6.7e-05 \tabularnewline
[39000,40000[ & 39500 & 13 & 0.108333 & 0.8 & 0.000108 \tabularnewline
[40000,41000[ & 40500 & 18 & 0.15 & 0.95 & 0.00015 \tabularnewline
[41000,42000[ & 41500 & 3 & 0.025 & 0.975 & 2.5e-05 \tabularnewline
[42000,43000] & 42500 & 3 & 0.025 & 1 & 2.5e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296008&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][2000,3000[[/C][C]2500[/C][C]1[/C][C]0.008333[/C][C]0.008333[/C][C]8e-06[/C][/ROW]
[ROW][C][3000,4000[[/C][C]3500[/C][C]1[/C][C]0.008333[/C][C]0.016667[/C][C]8e-06[/C][/ROW]
[ROW][C][4000,5000[[/C][C]4500[/C][C]1[/C][C]0.008333[/C][C]0.025[/C][C]8e-06[/C][/ROW]
[ROW][C][5000,6000[[/C][C]5500[/C][C]3[/C][C]0.025[/C][C]0.05[/C][C]2.5e-05[/C][/ROW]
[ROW][C][6000,7000[[/C][C]6500[/C][C]0[/C][C]0[/C][C]0.05[/C][C]0[/C][/ROW]
[ROW][C][7000,8000[[/C][C]7500[/C][C]2[/C][C]0.016667[/C][C]0.066667[/C][C]1.7e-05[/C][/ROW]
[ROW][C][8000,9000[[/C][C]8500[/C][C]2[/C][C]0.016667[/C][C]0.083333[/C][C]1.7e-05[/C][/ROW]
[ROW][C][9000,10000[[/C][C]9500[/C][C]3[/C][C]0.025[/C][C]0.108333[/C][C]2.5e-05[/C][/ROW]
[ROW][C][10000,11000[[/C][C]10500[/C][C]4[/C][C]0.033333[/C][C]0.141667[/C][C]3.3e-05[/C][/ROW]
[ROW][C][11000,12000[[/C][C]11500[/C][C]1[/C][C]0.008333[/C][C]0.15[/C][C]8e-06[/C][/ROW]
[ROW][C][12000,13000[[/C][C]12500[/C][C]1[/C][C]0.008333[/C][C]0.158333[/C][C]8e-06[/C][/ROW]
[ROW][C][13000,14000[[/C][C]13500[/C][C]0[/C][C]0[/C][C]0.158333[/C][C]0[/C][/ROW]
[ROW][C][14000,15000[[/C][C]14500[/C][C]5[/C][C]0.041667[/C][C]0.2[/C][C]4.2e-05[/C][/ROW]
[ROW][C][15000,16000[[/C][C]15500[/C][C]1[/C][C]0.008333[/C][C]0.208333[/C][C]8e-06[/C][/ROW]
[ROW][C][16000,17000[[/C][C]16500[/C][C]2[/C][C]0.016667[/C][C]0.225[/C][C]1.7e-05[/C][/ROW]
[ROW][C][17000,18000[[/C][C]17500[/C][C]2[/C][C]0.016667[/C][C]0.241667[/C][C]1.7e-05[/C][/ROW]
[ROW][C][18000,19000[[/C][C]18500[/C][C]1[/C][C]0.008333[/C][C]0.25[/C][C]8e-06[/C][/ROW]
[ROW][C][19000,20000[[/C][C]19500[/C][C]0[/C][C]0[/C][C]0.25[/C][C]0[/C][/ROW]
[ROW][C][20000,21000[[/C][C]20500[/C][C]5[/C][C]0.041667[/C][C]0.291667[/C][C]4.2e-05[/C][/ROW]
[ROW][C][21000,22000[[/C][C]21500[/C][C]1[/C][C]0.008333[/C][C]0.3[/C][C]8e-06[/C][/ROW]
[ROW][C][22000,23000[[/C][C]22500[/C][C]3[/C][C]0.025[/C][C]0.325[/C][C]2.5e-05[/C][/ROW]
[ROW][C][23000,24000[[/C][C]23500[/C][C]1[/C][C]0.008333[/C][C]0.333333[/C][C]8e-06[/C][/ROW]
[ROW][C][24000,25000[[/C][C]24500[/C][C]2[/C][C]0.016667[/C][C]0.35[/C][C]1.7e-05[/C][/ROW]
[ROW][C][25000,26000[[/C][C]25500[/C][C]1[/C][C]0.008333[/C][C]0.358333[/C][C]8e-06[/C][/ROW]
[ROW][C][26000,27000[[/C][C]26500[/C][C]1[/C][C]0.008333[/C][C]0.366667[/C][C]8e-06[/C][/ROW]
[ROW][C][27000,28000[[/C][C]27500[/C][C]4[/C][C]0.033333[/C][C]0.4[/C][C]3.3e-05[/C][/ROW]
[ROW][C][28000,29000[[/C][C]28500[/C][C]3[/C][C]0.025[/C][C]0.425[/C][C]2.5e-05[/C][/ROW]
[ROW][C][29000,30000[[/C][C]29500[/C][C]2[/C][C]0.016667[/C][C]0.441667[/C][C]1.7e-05[/C][/ROW]
[ROW][C][30000,31000[[/C][C]30500[/C][C]1[/C][C]0.008333[/C][C]0.45[/C][C]8e-06[/C][/ROW]
[ROW][C][31000,32000[[/C][C]31500[/C][C]1[/C][C]0.008333[/C][C]0.458333[/C][C]8e-06[/C][/ROW]
[ROW][C][32000,33000[[/C][C]32500[/C][C]5[/C][C]0.041667[/C][C]0.5[/C][C]4.2e-05[/C][/ROW]
[ROW][C][33000,34000[[/C][C]33500[/C][C]3[/C][C]0.025[/C][C]0.525[/C][C]2.5e-05[/C][/ROW]
[ROW][C][34000,35000[[/C][C]34500[/C][C]2[/C][C]0.016667[/C][C]0.541667[/C][C]1.7e-05[/C][/ROW]
[ROW][C][35000,36000[[/C][C]35500[/C][C]1[/C][C]0.008333[/C][C]0.55[/C][C]8e-06[/C][/ROW]
[ROW][C][36000,37000[[/C][C]36500[/C][C]4[/C][C]0.033333[/C][C]0.583333[/C][C]3.3e-05[/C][/ROW]
[ROW][C][37000,38000[[/C][C]37500[/C][C]5[/C][C]0.041667[/C][C]0.625[/C][C]4.2e-05[/C][/ROW]
[ROW][C][38000,39000[[/C][C]38500[/C][C]8[/C][C]0.066667[/C][C]0.691667[/C][C]6.7e-05[/C][/ROW]
[ROW][C][39000,40000[[/C][C]39500[/C][C]13[/C][C]0.108333[/C][C]0.8[/C][C]0.000108[/C][/ROW]
[ROW][C][40000,41000[[/C][C]40500[/C][C]18[/C][C]0.15[/C][C]0.95[/C][C]0.00015[/C][/ROW]
[ROW][C][41000,42000[[/C][C]41500[/C][C]3[/C][C]0.025[/C][C]0.975[/C][C]2.5e-05[/C][/ROW]
[ROW][C][42000,43000][/C][C]42500[/C][C]3[/C][C]0.025[/C][C]1[/C][C]2.5e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296008&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296008&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)
Bins	Midpoint	Abs. Frequency	Rel. Frequency	Cumul. Rel. Freq.	Density
[2000,3000[	2500	1	0.008333	0.008333	8e-06
[3000,4000[	3500	1	0.008333	0.016667	8e-06
[4000,5000[	4500	1	0.008333	0.025	8e-06
[5000,6000[	5500	3	0.025	0.05	2.5e-05
[6000,7000[	6500	0	0	0.05	0
[7000,8000[	7500	2	0.016667	0.066667	1.7e-05
[8000,9000[	8500	2	0.016667	0.083333	1.7e-05
[9000,10000[	9500	3	0.025	0.108333	2.5e-05
[10000,11000[	10500	4	0.033333	0.141667	3.3e-05
[11000,12000[	11500	1	0.008333	0.15	8e-06
[12000,13000[	12500	1	0.008333	0.158333	8e-06
[13000,14000[	13500	0	0	0.158333	0
[14000,15000[	14500	5	0.041667	0.2	4.2e-05
[15000,16000[	15500	1	0.008333	0.208333	8e-06
[16000,17000[	16500	2	0.016667	0.225	1.7e-05
[17000,18000[	17500	2	0.016667	0.241667	1.7e-05
[18000,19000[	18500	1	0.008333	0.25	8e-06
[19000,20000[	19500	0	0	0.25	0
[20000,21000[	20500	5	0.041667	0.291667	4.2e-05
[21000,22000[	21500	1	0.008333	0.3	8e-06
[22000,23000[	22500	3	0.025	0.325	2.5e-05
[23000,24000[	23500	1	0.008333	0.333333	8e-06
[24000,25000[	24500	2	0.016667	0.35	1.7e-05
[25000,26000[	25500	1	0.008333	0.358333	8e-06
[26000,27000[	26500	1	0.008333	0.366667	8e-06
[27000,28000[	27500	4	0.033333	0.4	3.3e-05
[28000,29000[	28500	3	0.025	0.425	2.5e-05
[29000,30000[	29500	2	0.016667	0.441667	1.7e-05
[30000,31000[	30500	1	0.008333	0.45	8e-06
[31000,32000[	31500	1	0.008333	0.458333	8e-06
[32000,33000[	32500	5	0.041667	0.5	4.2e-05
[33000,34000[	33500	3	0.025	0.525	2.5e-05
[34000,35000[	34500	2	0.016667	0.541667	1.7e-05
[35000,36000[	35500	1	0.008333	0.55	8e-06
[36000,37000[	36500	4	0.033333	0.583333	3.3e-05
[37000,38000[	37500	5	0.041667	0.625	4.2e-05
[38000,39000[	38500	8	0.066667	0.691667	6.7e-05
[39000,40000[	39500	13	0.108333	0.8	0.000108
[40000,41000[	40500	18	0.15	0.95	0.00015
[41000,42000[	41500	3	0.025	0.975	2.5e-05
[42000,43000]	42500	3	0.025	1	2.5e-05

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 1000 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;

Parameters (R input):

par1 = 1000 ; 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 {
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,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')
}

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code