Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_BoxplotAndScatterplotMatrix.wasp

Title produced by software

Boxplot and Trimmed Means

Date of computation

Tue, 21 Jan 2014 10:09:07 -0500

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/2014/Jan/21/t13903170328trvewa1pxnkp9w.htm/, Retrieved Tue, 28 May 2024 12:27:28 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=233145, Retrieved Tue, 28 May 2024 12:27:28 +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

201

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

-       [Boxplot and Trimmed Means] [PY2224 Descriptiv...] [2014-01-21 15:09:07] [a9208f4f8d3b118336aae915785f2bd9] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

3.478422188	91	47	46	188	91	162	3	100	112
3.456821348	41	45	19	188	135	43	3	39	101
3.498310554	77	40	53	162	97	88	9	37	91
3.442009159	52	45	56	171	77	58	2	30	83
3.455758203	67	45	57	158	123	74	4	36	81
3.586249639	91	39	9	153	68	51	4	29	78
3.352182518	36	45	53	174	99	139	3	41	77
3.487421211	50	45	20	184	0	33	6	10	72
3.42143939	49	45	63	182	140	95	4	35	70
3.308991029	38	45	14	161	0	63	4	40	70
3.291812687	56	40	2	131	2	54	4	43	69
3.3287872	50	45	32	165	135	54	3	31	69
3.331427297	43	45	41	188	158	55	3	26	68
3.321391278	41	46	71	171	87	69	2	33	67
3.244771761	32	45	36	191	160	107	4	50	65
3.464191371	41	39	46	148	13	43	3	17	64
3.372727941	41	45	22	169	44	55	3	59	63
3.378579576	28	45	20	181	25	60	5	18	63
3.280805928	39	45	72	189	32	44	3	22	61
3.333245699	40	45	70	186	53	36	3	21	61
3.229937686	37	45	40	172	12	46	2	22	60
3.235275877	63	40	45	154	22	44	4	21	59
3.39252109	42	45	18	168	5	45	4	20	59
3.512550993	43	46	64	165	42	36	3	18	59
3.299725154	31	45	48	180	152	75	38	16	58
3.354876423	16	49	23	137	0	54	6	30	58
3.255995727	38	45	65	180	0	77	4	27	58
3.230959556	24	45	41	190	62	31	31	2	57
3.228656958	43	41	12	154	0	54	4	20	56
3.344981414	37	45	40	175	29	46	3	19	56
3.38039216	43	41	14	155	104	41	3	18	55
3.24674471	34	47	46	194	137	54	3	23	55
3.341632336	32	45	15	170	173	65	2	34	54
3.418798291	69	46	38	167	192	75	3	24	54
3.345373731	64	47	32	178	38	43	4	16	54
3.366796383	30	45	13	167	10	51	4	21	53
3.277609214	45	45	6	157	46	61	3	31	53
3.250663919	47	48	78	185	122	44	3	23	53
3.456517858	58	47	78	174	141	57	5	17	53
3.23350376	51	46	49	186	184	74	2	32	52
3.368286885	25	36	26	137	0	42	4	15	52
3.292477594	45	42	11	158	0	55	6	21	52
3.405858399	41	45	31	173	113	31	3	20	51
3.380211242	41	41	24	109	0	38	3	29	51
3.379486814	43	46	21	173	67	56	4	21	50
3.45591024	22	45	16	154	2	39	3	13	50
3.347330015	30	45	48	163	84	35	3	21	49
3.277609214	31	46	35	165	23	25	4	12	49
3.140193679	26	45	61	190	0	36	3	20	48
3.188084374	45	45	44	184	84	50	4	12	47
3.503109437	24	41	12	176	0	14	NA	0	47
3.421603927	38	43	22	161	121	38	3	20	47
3.2929203	28	40	22	122	49	53	3	23	47
3.188647296	43	45	36	180	0	62	4	21	46
3.236789099	58	47	53	194	135	52	3	24	46
3.410777233	40	46	42	148	0	32	3	20	46
3.206556044	36	48	27	160	0	41	4	20	46
3.26599637	37	45	45	190	179	67	67	1	45
3.128722284	30	46	41	166	37	30	4	14	45
3.270911639	37	47	30	182	29	28	4	13	45
3.1430148	33	45	25	170	28	26	2	15	44
3.231724383	38	46	68	181	162	53	53	3	44
3.089551883	37	45	22	150	10	29	3	20	44
3.258397804	68	46	37	193	162	61	3	16	44
3.216957207	15	48	28	145	33	38	3	15	44
3.027349608	44	47	59	178	0	49	3	19	43
3.278524965	37	50	12	164	16	21	7	7	42
3.182414652	31	45	18	173	40	42	3	13	42
3.117602692	68	45	42	180	159	122	2	35	42
3.101747074	43	45	64	168	143	50	3	16	41
3.229937686	51	45	-10	53	72	34	4	16	41
3.154119526	35	45	21	190	0	30	3	17	41
3.214578954	41	45	15	181	0	47	4	17	41
3.211387553	28	43	18	135	1	19	6	4	41
3.284205068	37	45	5	163	13	66	3	21	40
3.201397124	31	45	37	185	15	51	3	15	40
3.113609151	28	46	17	153	0	28	4	16	40
3.162564407	34	45	41	160	0	36	3	14	40
3.245018871	53	45	38	158	0	26	3	12	40
3.2757719	25	40	30	170	115	50	5	13	40
3.108903128	8	34	35	110	20	16	3	7	40
3.112605002	32	45	10	90	31	24	3	15	39
3.202760687	27	36	14	113	1	38	4	15	38
3.317436497	36	45	34	182	140	55	4	14	38
3.05422991	29	47	8	85	0	26	3	21	38
3.102433706	23	32	13	121	24	28	2	17	38
3.114277297	42	41	16	133	0	15	2	18	38
3.314288661	20	44	31	167	67	27	9	3	37
3.1430148	21	49	6	156	19	36	3	20	37
3.153814864	35	48	52	128	7	25	3	16	37
3.288025535	42	39	38	173	49	20	3	9	37
3.190611798	34	39	31	140	9	44	3	21	37
3.215637563	43	45	40	160	0	28	3	11	36
3.177247836	26	47	37	162	157	33	4	13	36
3.14332713	39	45	42	169	53	47	4	12	35
3.080987047	35	46	12	152	0	40	3	16	35
3.253095586	37	45	99	183	169	93	NA	1	34
3.196176185	50	46	53	154	70	35	5	8	34
3.202215776	22	45	31	147	74	26	3	15	34
3.129689892	20	45	67	162	45	40	3	22	33
3.314499228	6	45	22	185	20	5	3	3	33
3.04453976	36	46	37	165	64	31	4	12	33
3.152288344	38	40	14	115	12	20	5	8	33
3.146748014	28	45	43	152	0	32	5	10	33
2.977266212	52	26	10	106	70	95	5	22	33
3.038620162	30	34	13	104	0	21	5	7	32
3.157456768	22	45	19	184	0	33	11	5	32
3.135450699	25	45	17	167	1	28	4	10	32
3.188365926	23	34	15	106	84	19	3	7	31
3.195899652	32	35	24	114	92	34	6	7	30
3.082426301	43	46	28	166	8	65	3	17	30
3.153509989	49	47	8	150	0	30	5	10	29
3.015359755	46	25	0	0	0	21	2	18	29
3.01911629	36	26	24	84	92	26	3	11	29
3.155639634	47	52	9	171	0	18	6	6	28
2.989449818	29	37	40	118	20	40	6	10	28
3.07773118	25	46	34	99	12	26	2	15	28
2.877946952	25	35	51	116	12	20	10	9	28
3.058805487	6	43	34	165	0	10	5	2	28
3.123524981	21	46	36	172	97	36	5	10	27
3.082426301	36	45	29	177	169	43	4	11	27
3.105169428	42	46	68	161	43	14	4	6	27
3.10002573	25	39	22	104	50	32	8	9	27
3.033021445	23	35	10	133	0	20	3	10	26
3.017867719	27	46	67	156	7	40	10	4	26
3.038222638	37	32	10	97	49	29	6	11	26
3.108565024	8	39	12	118	0	14	7	3	26
3.064457989	25	40	16	131	0	14	2	7	26
3.009875634	34	46	21	128	0	28	4	12	25
3.158362492	7	41	20	156	0	10	3	6	25
3.026124517	9	45	24	164	2	23	8	5	25
3.053462605	22	45	6	109	16	19	3	9	25
3.07773118	39	36	32	134	2	31	3	8	24
3.067442843	45	50	36	187	0	32	5	8	24
2.992111488	4	45	33	150	14	24	3	11	24
3.248953615	39	38	2	95	20	12	4	8	24
3.1430148	37	39	18	88	80	50	3	14	24
2.989894564	30	23	-5	75	29	26	3	11	23
2.948901761	20	31	28	122	5	26	2	10	23
2.923761961	18	40	20	66	0	14	NA	0	22
3.083860801	28	36	0	108	16	39	3	16	22
3.194236749	17	50	37	181	158	33	4	10	22
3.001300933	34	39	26	87	48	20	3	6	22
3.039017322	12	45	17	148	106	27	3	7	21
3.09482038	50	37	-2	89	0	26	3	12	20
3.058426024	13	15	-2	41	0	2	NA	1	19
3.046495164	9	25	8	43	1	8	2	5	19
2.952792443	15	30	13	81	0	9	5	5	17
2.918554531	32	30	-2	17	0	8	4	7	17
3.219322508	9	40	30	102	65	22	4	11	16
2.936010796	9	20	13	73	0	12	3	7	14
2.699837726	9	24	21	75	18	6	3	2	10
2.788168371	16	2	0	9	0	17	3	5	9
2.471291711	4	10	7	42	0	5	3	2	7
2.257678575	4	6	2	10	0	0	NA	0	3
2.152288344	1	0	0	0	0	0	NA	0	3
2.401400541	4	2	0	5	16	2	2	1	2
2.100370545	8	1	1	3	0	3	3	1	2
1.591064607	0	0	0	0	0	0	NA	0	1
1.716003344	1	0	0	0	0	0	NA	0	1

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	6 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.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 & 6 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=233145&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]6 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=233145&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=233145&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	6 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
LogP	2.79	3.08	3.19	3.3	3.59
B	0	24.5	35	42.5	69
PR	30	39	45	45.5	52
PRR	-10	13	25.5	41	78
LFM	41	117	159	173.5	194
RPR	0	0	20	78.5	192
KCS	0	24	35	51	88
SPR	2	3	3	4	5
CH	0	8	14.5	21	40
Hours	1	27	40	52	83

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
LogP & 2.79 & 3.08 & 3.19 & 3.3 & 3.59 \tabularnewline
B & 0 & 24.5 & 35 & 42.5 & 69 \tabularnewline
PR & 30 & 39 & 45 & 45.5 & 52 \tabularnewline
PRR & -10 & 13 & 25.5 & 41 & 78 \tabularnewline
LFM & 41 & 117 & 159 & 173.5 & 194 \tabularnewline
RPR & 0 & 0 & 20 & 78.5 & 192 \tabularnewline
KCS & 0 & 24 & 35 & 51 & 88 \tabularnewline
SPR & 2 & 3 & 3 & 4 & 5 \tabularnewline
CH & 0 & 8 & 14.5 & 21 & 40 \tabularnewline
Hours & 1 & 27 & 40 & 52 & 83 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=233145&T=1

[TABLE]
[ROW][C]Boxplot statistics[/C][/ROW]
[ROW][C]Variable[/C][C]lower whisker[/C][C]lower hinge[/C][C]median[/C][C]upper hinge[/C][C]upper whisker[/C][/ROW]
[ROW][C]LogP[/C][C]2.79[/C][C]3.08[/C][C]3.19[/C][C]3.3[/C][C]3.59[/C][/ROW]
[ROW][C]B[/C][C]0[/C][C]24.5[/C][C]35[/C][C]42.5[/C][C]69[/C][/ROW]
[ROW][C]PR[/C][C]30[/C][C]39[/C][C]45[/C][C]45.5[/C][C]52[/C][/ROW]
[ROW][C]PRR[/C][C]-10[/C][C]13[/C][C]25.5[/C][C]41[/C][C]78[/C][/ROW]
[ROW][C]LFM[/C][C]41[/C][C]117[/C][C]159[/C][C]173.5[/C][C]194[/C][/ROW]
[ROW][C]RPR[/C][C]0[/C][C]0[/C][C]20[/C][C]78.5[/C][C]192[/C][/ROW]
[ROW][C]KCS[/C][C]0[/C][C]24[/C][C]35[/C][C]51[/C][C]88[/C][/ROW]
[ROW][C]SPR[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]CH[/C][C]0[/C][C]8[/C][C]14.5[/C][C]21[/C][C]40[/C][/ROW]
[ROW][C]Hours[/C][C]1[/C][C]27[/C][C]40[/C][C]52[/C][C]83[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=233145&T=1

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

As an alternative you can also use a QR Code:

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
LogP	2.79	3.08	3.19	3.3	3.59
B	0	24.5	35	42.5	69
PR	30	39	45	45.5	52
PRR	-10	13	25.5	41	78
LFM	41	117	159	173.5	194
RPR	0	0	20	78.5	192
KCS	0	24	35	51	88
SPR	2	3	3	4	5
CH	0	8	14.5	21	40
Hours	1	27	40	52	83

Boxplot Notches
Variable	lower bound	median	upper bound
LogP	3.17	3.19	3.22
B	32.75	35	37.25
PR	44.19	45	45.81
PRR	22	25.5	29
LFM	151.94	159	166.06
RPR	10.19	20	29.81
KCS	31.63	35	38.37
SPR	2.87	3	3.13
CH	12.88	14.5	16.12
Hours	36.88	40	43.12

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
LogP & 3.17 & 3.19 & 3.22 \tabularnewline
B & 32.75 & 35 & 37.25 \tabularnewline
PR & 44.19 & 45 & 45.81 \tabularnewline
PRR & 22 & 25.5 & 29 \tabularnewline
LFM & 151.94 & 159 & 166.06 \tabularnewline
RPR & 10.19 & 20 & 29.81 \tabularnewline
KCS & 31.63 & 35 & 38.37 \tabularnewline
SPR & 2.87 & 3 & 3.13 \tabularnewline
CH & 12.88 & 14.5 & 16.12 \tabularnewline
Hours & 36.88 & 40 & 43.12 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=233145&T=2

[TABLE]
[ROW][C]Boxplot Notches[/C][/ROW]
[ROW][C]Variable[/C][C]lower bound[/C][C]median[/C][C]upper bound[/C][/ROW]
[ROW][C]LogP[/C][C]3.17[/C][C]3.19[/C][C]3.22[/C][/ROW]
[ROW][C]B[/C][C]32.75[/C][C]35[/C][C]37.25[/C][/ROW]
[ROW][C]PR[/C][C]44.19[/C][C]45[/C][C]45.81[/C][/ROW]
[ROW][C]PRR[/C][C]22[/C][C]25.5[/C][C]29[/C][/ROW]
[ROW][C]LFM[/C][C]151.94[/C][C]159[/C][C]166.06[/C][/ROW]
[ROW][C]RPR[/C][C]10.19[/C][C]20[/C][C]29.81[/C][/ROW]
[ROW][C]KCS[/C][C]31.63[/C][C]35[/C][C]38.37[/C][/ROW]
[ROW][C]SPR[/C][C]2.87[/C][C]3[/C][C]3.13[/C][/ROW]
[ROW][C]CH[/C][C]12.88[/C][C]14.5[/C][C]16.12[/C][/ROW]
[ROW][C]Hours[/C][C]36.88[/C][C]40[/C][C]43.12[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=233145&T=2

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

As an alternative you can also use a QR Code:

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

Boxplot Notches
Variable	lower bound	median	upper bound
LogP	3.17	3.19	3.22
B	32.75	35	37.25
PR	44.19	45	45.81
PRR	22	25.5	29
LFM	151.94	159	166.06
RPR	10.19	20	29.81
KCS	31.63	35	38.37
SPR	2.87	3	3.13
CH	12.88	14.5	16.12
Hours	36.88	40	43.12

Boxplot Means
Variable	trimmed mean	unbiased SD
LogP	3.15	0.28
B	33.68	16.38
PR	40.3	10.62
PRR	28.66	20.35
LFM	141.09	48.35
RPR	45.84	55.34
KCS	38.77	25.06
SPR	4.97	7.5
CH	15.81	12.42
Hours	40.48	18.93

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
LogP & 3.15 & 0.28 \tabularnewline
B & 33.68 & 16.38 \tabularnewline
PR & 40.3 & 10.62 \tabularnewline
PRR & 28.66 & 20.35 \tabularnewline
LFM & 141.09 & 48.35 \tabularnewline
RPR & 45.84 & 55.34 \tabularnewline
KCS & 38.77 & 25.06 \tabularnewline
SPR & 4.97 & 7.5 \tabularnewline
CH & 15.81 & 12.42 \tabularnewline
Hours & 40.48 & 18.93 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=233145&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]LogP[/C][C]3.15[/C][C]0.28[/C][/ROW]
[ROW][C]B[/C][C]33.68[/C][C]16.38[/C][/ROW]
[ROW][C]PR[/C][C]40.3[/C][C]10.62[/C][/ROW]
[ROW][C]PRR[/C][C]28.66[/C][C]20.35[/C][/ROW]
[ROW][C]LFM[/C][C]141.09[/C][C]48.35[/C][/ROW]
[ROW][C]RPR[/C][C]45.84[/C][C]55.34[/C][/ROW]
[ROW][C]KCS[/C][C]38.77[/C][C]25.06[/C][/ROW]
[ROW][C]SPR[/C][C]4.97[/C][C]7.5[/C][/ROW]
[ROW][C]CH[/C][C]15.81[/C][C]12.42[/C][/ROW]
[ROW][C]Hours[/C][C]40.48[/C][C]18.93[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=233145&T=3

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

As an alternative you can also use a QR Code:

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

Boxplot Means
Variable	trimmed mean	unbiased SD
LogP	3.15	0.28
B	33.68	16.38
PR	40.3	10.62
PRR	28.66	20.35
LFM	141.09	48.35
RPR	45.84	55.34
KCS	38.77	25.06
SPR	4.97	7.5
CH	15.81	12.42
Hours	40.48	18.93

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 3 ; par2 = TRUE ; par3 = 0 ;

Parameters (R input):

par1 = 3 ; par2 = TRUE ; par3 = 0 ;

R code (references can be found in the software module):

par3 <- '0'
par2 <- 'TRUE'
par1 <- '3'
par1 <- as.numeric(par1) #colour
par2<- as.logical(par2) # Notches ?
par3<-as.numeric(par3) # % trim
if(par3>45){par3<-45;warning('trim limited to 45%')}
if(par3<0){par3<-0;warning('negative trim makes no sense. Trim is zero.')}
lotrm<-as.integer(length(y[1,])*par3/100)+1
hitrm<-as.integer(length(y[1,])*(100-par3)/100)
y1<-array(dim=c(dim(y)[1], hitrm-lotrm+1), dimnames=list(dimnames(y)[[1]], 1:(hitrm-lotrm+1) ))
for(i in 1:dim(y)[1]){
tmp<-order(y[i,])
y1[i,]<- y[i, tmp[lotrm:hitrm] ]
}
bitmap(file='test2.png')
pairs(t(y))
dev.off()
y<-y1
z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=par2,col=par1))
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('overview.htm','Boxplot statistics','Boxplot overview'),6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,hyperlink('lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE)
a<-table.element(a,hyperlink('lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE)
a<-table.element(a,hyperlink('central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE)
a<-table.element(a,hyperlink('upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE)
a<-table.element(a,hyperlink('upper_whisker.htm','upper whisker','definition of upper whisker'),1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
for (j in 1:5)
{
a<-table.element(a,round(r$stats[j,i], digits=2))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
if (par2){
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot Notches',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower bound',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper bound',1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
a<-table.element(a,round(r$conf[1,i], digits=2))
a<-table.element(a, round(r$stats[3,i], digits=2))
a<-table.element(a,round(r$conf[2,i], digits=2))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
}
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot Means',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,hyperlink('trimmed_mean.htm','trimmed mean','definition of trimmed mean'),1,TRUE)
a<-table.element(a,hyperlink('unbiased1.htm','unbiased SD','definition of unbiased SD'),1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
a<-table.element(a,round(mean(unlist(z[i]), trim=par3/100, na.rm=TRUE), digits=2))
a<-table.element(a,round(sd(unlist(z[i]), na.rm=TRUE), digits=2))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code