FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_BoxplotAndScatterplotMatrix.wasp
Title produced by softwareBoxplot and Trimmed Means
Date of computationMon, 27 Oct 2014 14:37:39 +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/2014/Oct/27/t1414420665uipgnu3g78ptyaw.htm/, Retrieved Fri, 10 May 2024 14:35:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=247100, Retrieved Fri, 10 May 2024 14:35:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact61

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Boxplot and Trimmed Means] [Care Age 10 Data] [2009-10-26 09:01:50] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   PD  [Boxplot and Trimmed Means] [Care Age 7 Data] [2009-10-26 18:36:29] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   P     [CARE Data - Boxplots and Scatterplot Matrix] [CARE Data] [2010-10-19 14:16:27] [3fdd735c61ad38cbc9b3393dc997cdb7]
- RM        [CARE Data - Boxplots and Scatterplot Matrix] [CARE data - works...] [2011-10-17 10:23:12] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RMP         [Boxplot and Trimmed Means] [CARE Study Age 7 ] [2013-10-17 12:59:45] [34296d8f7657c52ed60d5bff9133afec]
- RM D            [Boxplot and Trimmed Means] [trete] [2014-10-27 14:37:39] [08e77ac34f27977346a73a9c211abbca] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
89	81	109	83	95	88	95	95	81	84
90	91	88	102	92	98	92	87	90	97
82	96	87	75	85	89	95	91	91	88
82	85	78	92	83	81	97	84	87	87
71	74	72	94	73	88	92	92	89	92
80	78	85	88	81	95	104	84	85	91
62	71	73	77	63	79	79	84	81	80
77	72	77	63	77	91	78	69	80	73
80	87	90	73	82	80	79	84	75	73
87	72	78	85	82	91	86	84	84	77
96	90	96	80	95	85	92	85	91	86
80	87	84	77	85	94	78	89	87	82
85	89	87	67	88	86	86	83	90	82
89	110	105	98	98	82	71	86	72	73
89	95	89	89	87	107	90	91	96	99
73	72	78	63	71	97	93	90	88	90
88	70	96	97	89	78	80	77	73	78
86	79	79	77	86	91	90	88	86	100
83	92	90	96	88	74	77	88	67	73
91	93	96	84	93	95	86	88	89	95
98	97	95	94	95	97	89	102	94	93
80	75	79	70	78	112	88	103	88	91
84	88	86	100	84	80	86	84	77	81
90	105	99	88	97	98	97	87	89	98
92	82	111	97	95	102	81	88	104	88
86	89	105	78	88	100	88	93	89	90
117	114	123	108	121	97	82	101	107	85
88	81	102	81	97	92	82	88	96	79
86	73	82	96	82	114	100	113	111	107
78	82	86	84	82	88	91	95	84	82
104	110	117	104	108	96	111	99	83	98
89	93	94	87	90	91	102	85	82	84
99	114	110	98	113	114	105	105	105	99
84	91	86	89	86	91	92	105	100	89
89	97	109	93	105	114	100	96	111	105
95	97	118	89	105	89	82	88	90	94
58	68	64	63	60	103	91	93	87	92
77	72	78	84	75	83	71	93	90	81
77	81	86	82	79	74	71	69	67	NA
98	102	98	105	104	88	89	83	84	86
58	62	64	70	60	88	82	83	84	90
81	102	84	94	87	98	105	93	96	101
92	84	87	101	93	74	71	69	67	73
94	75	88	83	85	86	91	86	90	88
87	102	106	88	97	93	105	90	83	90
75	62	78	69	67	85	82	87	78	84
80	100	79	94	85	91	86	92	100	89
84	82	95	82	86	75	72	75	67	73
87	78	98	82	88	97	98	89	94	98
114	106	101	109	114	88	80	88	89	82
97	88	104	86	97	79	84	87	89	77
102	85	91	99	93	106	109	113	111	107
80	97	78	82	80	102	80	102	88	84
112	114	123	114	118	98	112	101	94	93
104	105	109	99	109	98	86	87	111	96
75	100	77	91	81	114	112	105	111	107
82	72	77	81	79	95	90	101	105	95
92	106	102	102	104	98	96	79	97	89
102	78	88	101	97	82	84	86	83	82
73	80	81	72	75	97	94	95	105	92
78	88	83	91	82	94	112	104	69	100
74	62	72	83	71	84	81	79	80	75
92	93	95	102	92	88	105	86	87	94
97	87	109	103	104	83	77	81	67	83
92	109	91	93	99	98	105	92	92	92
91	91	87	88	89	106	112	95	102	102
102	110	112	110	114	94	91	97	90	98
89	98	95	100	95	91	92	87	98	94
98	99	103	88	106	89	72	94	94	83
117	95	108	119	117	102	100	105	101	107
92	97	116	98	109	103	103	94	96	107
70	88	71	90	74	96	89	88	94	91
63	72	70	69	63	89	86	105	105	83
91	102	105	98	103	112	112	113	105	100
106	95	112	98	107	74	71	69	84	77
81	93	86	81	86	74	73	69	72	74
98	90	109	93	99	102	99	100	96	92
88	80	112	91	87	106	85	113	94	100
95	75	97	86	93	91	80	88	107	92
105	109	122	95	114	94	88	104	103	93
90	75	97	87	82	98	95	94	95	89
58	72	64	63	60	85	86	91	73	86
86	77	84	89	83	108	92	103	110	97
112	93	110	108	111	90	96	95	84	82
71	72	70	99	75	74	71	69	67	73
98	91	100	90	94	81	88	86	73	93
87	95	102	91	91	104	98	108	84	97
98	111	108	82	100	90	108	83	79	93
117	105	123	119	121	95	103	102	91	89
98	90	78	97	90	85	81	94	92	86
98	105	109	108	105	114	96	113	107	89
90	90	106	101	97	114	112	113	111	107
84	92	95	96	92	93	95	93	89	90
86	95	108	97	92	104	92	105	110	104
68	75	74	69	67	92	103	88	98	96
86	92	86	89	90	100	95	90	95	93
77	100	82	84	85	92	94	92	84	104
83	82	88	79	85	77	79	81	73	83
90	102	96	103	97	86	91	86	86	92
107	104	114	92	118	87	87	85	98	83
102	98	111	104	109	91	82	86	90	83
90	95	88	102	94	102	97	97	97	96
113	114	123	106	121	100	92	103	106	84
86	93	89	93	85	113	112	102	106	107
105	110	114	108	112	NA	NA	NA	NA	NA
110	104	121	119	118	NA	NA	NA	NA	NA
82	91	100	102	93	NA	NA	NA	NA	NA
89	79	83	83	85	NA	NA	NA	NA	NA
99	97	92	92	97	NA	NA	NA	NA	NA
113	102	108	119	121	NA	NA	NA	NA	NA
91	77	87	100	83	NA	NA	NA	NA	NA
92	105	84	97	89	NA	NA	NA	NA	NA
86	95	95	103	92	NA	NA	NA	NA	NA
91	104	90	95	89	NA	NA	NA	NA	NA
82	75	82	73	82	NA	NA	NA	NA	NA
86	82	84	86	85	NA	NA	NA	NA	NA
86	91	96	88	92	NA	NA	NA	NA	NA
102	105	109	102	112	NA	NA	NA	NA	NA
84	71	84	87	79	NA	NA	NA	NA	NA
80	89	83	100	84	NA	NA	NA	NA	NA
96	79	93	88	92	NA	NA	NA	NA	NA
117	113	120	100	118	NA	NA	NA	NA	NA
88	82	83	79	82	NA	NA	NA	NA	NA
99	102	103	90	100	NA	NA	NA	NA	NA
89	82	103	83	87	NA	NA	NA	NA	NA
86	92	102	95	97	NA	NA	NA	NA	NA
98	82	90	89	87	NA	NA	NA	NA	NA
58	86	69	64	70	NA	NA	NA	NA	NA
98	108	114	108	110	NA	NA	NA	NA	NA
58	74	64	80	60	NA	NA	NA	NA	NA
81	87	87	83	81	NA	NA	NA	NA	NA
90	97	116	96	94	NA	NA	NA	NA	NA
112	102	121	108	114	NA	NA	NA	NA	NA
84	75	90	86	85	NA	NA	NA	NA	NA
84	82	92	88	85	NA	NA	NA	NA	NA
75	72	81	97	79	NA	NA	NA	NA	NA
78	88	84	110	82	NA	NA	NA	NA	NA
94	97	106	102	102	NA	NA	NA	NA	NA
75	85	75	92	73	NA	NA	NA	NA	NA
82	62	79	91	78	NA	NA	NA	NA	NA
87	95	80	92	84	NA	NA	NA	NA	NA
59	95	74	72	70	NA	NA	NA	NA	NA
68	72	66	88	66	NA	NA	NA	NA	NA
80	92	81	99	79	NA	NA	NA	NA	NA
94	91	98	95	95	NA	NA	NA	NA	NA
87	97	99	83	95	NA	NA	NA	NA	NA
70	78	68	68	69	NA	NA	NA	NA	NA
113	95	100	101	109	NA	NA	NA	NA	NA
99	91	97	91	100	NA	NA	NA	NA	NA
90	95	99	89	91	NA	NA	NA	NA	NA
102	88	104	98	99	NA	NA	NA	NA	NA
80	92	82	89	84	NA	NA	NA	NA	NA
98	97	92	98	101	NA	NA	NA	NA	NA
98	104	99	97	99	NA	NA	NA	NA	NA
95	113	109	98	104	NA	NA	NA	NA	NA
104	113	106	113	109	NA	NA	NA	NA	NA
86	82	89	83	87	NA	NA	NA	NA	NA
84	90	87	92	88	NA	NA	NA	NA	NA
85	91	98	113	87	NA	NA	NA	NA	NA
90	95	95	103	95	NA	NA	NA	NA	NA
86	102	92	96	92	NA	NA	NA	NA	NA
97	92	90	94	100	NA	NA	NA	NA	NA

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 2 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=247100&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=247100&T=0

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

As an alternative you can also use a QR Code:  
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 time2 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
WJ7ARD68828896112
WJ7AMA72829197110
WJ7AWL708492103117
WJ7AKN69849298109
WJ7ASK67849097114
WJ10AFS788894100114
WJ10AVA7385.591.598.5112
WJ10ARD7986.591.5101113
WJ10AMA72849099111
WJ10AKN 75849197107

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WJ7ARD & 68 & 82 & 88 & 96 & 112 \tabularnewline
WJ7AMA & 72 & 82 & 91 & 97 & 110 \tabularnewline
WJ7AWL & 70 & 84 & 92 & 103 & 117 \tabularnewline
WJ7AKN & 69 & 84 & 92 & 98 & 109 \tabularnewline
WJ7ASK & 67 & 84 & 90 & 97 & 114 \tabularnewline
WJ10AFS & 78 & 88 & 94 & 100 & 114 \tabularnewline
WJ10AVA & 73 & 85.5 & 91.5 & 98.5 & 112 \tabularnewline
WJ10ARD & 79 & 86.5 & 91.5 & 101 & 113 \tabularnewline
WJ10AMA & 72 & 84 & 90 & 99 & 111 \tabularnewline
WJ10AKN
 & 75 & 84 & 91 & 97 & 107 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=247100&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]WJ7ARD[/C][C]68[/C][C]82[/C][C]88[/C][C]96[/C][C]112[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]72[/C][C]82[/C][C]91[/C][C]97[/C][C]110[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]70[/C][C]84[/C][C]92[/C][C]103[/C][C]117[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]69[/C][C]84[/C][C]92[/C][C]98[/C][C]109[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]67[/C][C]84[/C][C]90[/C][C]97[/C][C]114[/C][/ROW]
[ROW][C]WJ10AFS[/C][C]78[/C][C]88[/C][C]94[/C][C]100[/C][C]114[/C][/ROW]
[ROW][C]WJ10AVA[/C][C]73[/C][C]85.5[/C][C]91.5[/C][C]98.5[/C][C]112[/C][/ROW]
[ROW][C]WJ10ARD[/C][C]79[/C][C]86.5[/C][C]91.5[/C][C]101[/C][C]113[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]72[/C][C]84[/C][C]90[/C][C]99[/C][C]111[/C][/ROW]
[ROW][C]WJ10AKN
[/C][C]75[/C][C]84[/C][C]91[/C][C]97[/C][C]107[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=247100&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
WJ7ARD68828896112
WJ7AMA72829197110
WJ7AWL708492103117
WJ7AKN69849298109
WJ7ASK67849097114
WJ10AFS788894100114
WJ10AVA7385.591.598.5112
WJ10ARD7986.591.5101113
WJ10AMA72849099111
WJ10AKN 75849197107






Boxplot Notches
Variablelower boundmedianupper bound
WJ7ARD86.168889.84
WJ7AMA89.039192.97
WJ7AWL89.519294.49
WJ7AKN90.169293.84
WJ7ASK88.299091.71
WJ10AFS92.069495.94
WJ10AVA89.491.593.6
WJ10ARD89.1691.593.84
WJ10AMA87.589092.42
WJ10AKN 88.899193.11

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
WJ7ARD & 86.16 & 88 & 89.84 \tabularnewline
WJ7AMA & 89.03 & 91 & 92.97 \tabularnewline
WJ7AWL & 89.51 & 92 & 94.49 \tabularnewline
WJ7AKN & 90.16 & 92 & 93.84 \tabularnewline
WJ7ASK & 88.29 & 90 & 91.71 \tabularnewline
WJ10AFS & 92.06 & 94 & 95.94 \tabularnewline
WJ10AVA & 89.4 & 91.5 & 93.6 \tabularnewline
WJ10ARD & 89.16 & 91.5 & 93.84 \tabularnewline
WJ10AMA & 87.58 & 90 & 92.42 \tabularnewline
WJ10AKN
 & 88.89 & 91 & 93.11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=247100&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]WJ7ARD[/C][C]86.16[/C][C]88[/C][C]89.84[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]89.03[/C][C]91[/C][C]92.97[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]89.51[/C][C]92[/C][C]94.49[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]90.16[/C][C]92[/C][C]93.84[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]88.29[/C][C]90[/C][C]91.71[/C][/ROW]
[ROW][C]WJ10AFS[/C][C]92.06[/C][C]94[/C][C]95.94[/C][/ROW]
[ROW][C]WJ10AVA[/C][C]89.4[/C][C]91.5[/C][C]93.6[/C][/ROW]
[ROW][C]WJ10ARD[/C][C]89.16[/C][C]91.5[/C][C]93.84[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]87.58[/C][C]90[/C][C]92.42[/C][/ROW]
[ROW][C]WJ10AKN
[/C][C]88.89[/C][C]91[/C][C]93.11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=247100&T=2

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

As an alternative you can also use a QR Code:  
QR Code


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

Boxplot Notches
Variablelower boundmedianupper bound
WJ7ARD86.168889.84
WJ7AMA89.039192.97
WJ7AWL89.519294.49
WJ7AKN90.169293.84
WJ7ASK88.299091.71
WJ10AFS92.069495.94
WJ10AVA89.491.593.6
WJ10ARD89.1691.593.84
WJ10AMA87.589092.42
WJ10AKN 88.899193.11






Boxplot Means
Variabletrimmed meanunbiased SD
WJ7ARD88.639.36
WJ7AMA90.0610.47
WJ7AWL93.0711.82
WJ7AKN91.69.37
WJ7ASK90.9610.96
WJ10AFS94.479.32
WJ10AVA92.189.99
WJ10ARD92.978.79
WJ10AMA92.2510.28
WJ10AKN 91.18.16

\begin{tabular}{lllllllll}
\hline
Boxplot Means \tabularnewline
Variable & trimmed mean & unbiased SD \tabularnewline
WJ7ARD & 88.63 & 9.36 \tabularnewline
WJ7AMA & 90.06 & 10.47 \tabularnewline
WJ7AWL & 93.07 & 11.82 \tabularnewline
WJ7AKN & 91.6 & 9.37 \tabularnewline
WJ7ASK & 90.96 & 10.96 \tabularnewline
WJ10AFS & 94.47 & 9.32 \tabularnewline
WJ10AVA & 92.18 & 9.99 \tabularnewline
WJ10ARD & 92.97 & 8.79 \tabularnewline
WJ10AMA & 92.25 & 10.28 \tabularnewline
WJ10AKN
 & 91.1 & 8.16 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=247100&T=3

[TABLE]
[ROW][C]Boxplot Means[/C][/ROW]
[ROW][C]Variable[/C][C]trimmed mean[/C][C]unbiased SD[/C][/ROW]
[ROW][C]WJ7ARD[/C][C]88.63[/C][C]9.36[/C][/ROW]
[ROW][C]WJ7AMA[/C][C]90.06[/C][C]10.47[/C][/ROW]
[ROW][C]WJ7AWL[/C][C]93.07[/C][C]11.82[/C][/ROW]
[ROW][C]WJ7AKN[/C][C]91.6[/C][C]9.37[/C][/ROW]
[ROW][C]WJ7ASK[/C][C]90.96[/C][C]10.96[/C][/ROW]
[ROW][C]WJ10AFS[/C][C]94.47[/C][C]9.32[/C][/ROW]
[ROW][C]WJ10AVA[/C][C]92.18[/C][C]9.99[/C][/ROW]
[ROW][C]WJ10ARD[/C][C]92.97[/C][C]8.79[/C][/ROW]
[ROW][C]WJ10AMA[/C][C]92.25[/C][C]10.28[/C][/ROW]
[ROW][C]WJ10AKN
[/C][C]91.1[/C][C]8.16[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=247100&T=3

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

As an alternative you can also use a QR Code:  
QR Code


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

Boxplot Means
Variabletrimmed meanunbiased SD
WJ7ARD88.639.36
WJ7AMA90.0610.47
WJ7AWL93.0711.82
WJ7AKN91.69.37
WJ7ASK90.9610.96
WJ10AFS94.479.32
WJ10AVA92.189.99
WJ10ARD92.978.79
WJ10AMA92.2510.28
WJ10AKN 91.18.16


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 2 ; par2 = TRUE ; par3 = 5 ;
Parameters (R input):
par1 = 2 ; par2 = TRUE ; par3 = 5 ;
R code (references can be found in the software module):
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')