Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software ModuleIan.Hollidayrwasp_Reddy-Moores Data Boxplot V2.0.wasp
Title produced by softwareBoxplot and Trimmed Means
Date of computationMon, 18 Oct 2010 15:00:15 +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/2010/Oct/18/t1287413945z1616sz1t3wf03z.htm/, Retrieved Thu, 31 Oct 2024 23:34:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=84926, Retrieved Thu, 31 Oct 2024 23:34:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact190
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Boxplot and Trimmed Means] [Reddy Moores Boxp...] [2010-10-12 16:37:57] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R P   [Boxplot and Trimmed Means] [Reddy-Moores Plac...] [2010-10-13 09:46:26] [98fd0e87c3eb04e0cc2efde01dbafab6]
-    D    [Boxplot and Trimmed Means] [Error with Boxplot] [2010-10-17 09:53:51] [a1af044be13ec2160cfa9b8e01858a75]
- R  D      [Boxplot and Trimmed Means] [Boxplot of Reddy ...] [2010-10-18 08:31:37] [98fd0e87c3eb04e0cc2efde01dbafab6]
-             [Boxplot and Trimmed Means] [Boxplot of Reddy ...] [2010-10-18 08:38:06] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R             [Boxplot and Trimmed Means] [Boxplot of Reddy ...] [2010-10-18 08:42:04] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R               [Boxplot and Trimmed Means] [Reddy Moores Boxp...] [2010-10-18 11:10:52] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R                 [Boxplot and Trimmed Means] [Boxplot 0% trim] [2010-10-18 14:56:34] [98fd0e87c3eb04e0cc2efde01dbafab6]
-                       [Boxplot and Trimmed Means] [20% trim boxplot] [2010-10-18 15:00:15] [a9208f4f8d3b118336aae915785f2bd9] [Current]
-                         [Boxplot and Trimmed Means] [20% trim] [2010-10-18 15:13:50] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R P                       [Boxplot and Trimmed Means] [Trim 0%] [2010-10-18 15:18:47] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R P                         [Boxplot and Trimmed Means] [30% trim] [2010-10-18 15:24:15] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R                           [Boxplot and Trimmed Means] [Trim 30% test 1] [2010-10-18 16:18:57] [98fd0e87c3eb04e0cc2efde01dbafab6]
- R  D                        [Boxplot and Trimmed Means] [test] [2010-10-18 16:42:35] [b98453cac15ba1066b407e146608df68]
-   P                           [Boxplot and Trimmed Means] [Reddy-Moores Plac...] [2010-10-18 17:11:37] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   P                             [Boxplot and Trimmed Means] [5% trim] [2010-10-18 18:49:10] [0f001550dea2fc4fb5273b1f5a571e75]
-   P                             [Boxplot and Trimmed Means] [5% trim box plots] [2010-10-18 18:49:36] [b3d3d2a4e3813ea6c4a04808e1fc1271]
-   P                               [Boxplot and Trimmed Means] [10% trimming box ...] [2010-10-18 18:56:53] [b3d3d2a4e3813ea6c4a04808e1fc1271]
-   P                                 [Boxplot and Trimmed Means] [20% box plot trim...] [2010-10-18 19:01:25] [b3d3d2a4e3813ea6c4a04808e1fc1271]
-   P                             [Boxplot and Trimmed Means] [10% trim] [2010-10-18 18:56:33] [0f001550dea2fc4fb5273b1f5a571e75]
-   P                             [Boxplot and Trimmed Means] [20% trim] [2010-10-18 18:57:51] [0f001550dea2fc4fb5273b1f5a571e75]
-    D                            [Boxplot and Trimmed Means] [] [2010-10-18 19:16:02] [74be16979710d4c4e7c6647856088456]
- RM D                              [Boxplot and Trimmed Means] [] [2012-02-14 19:03:17] [74be16979710d4c4e7c6647856088456]
-                                 [Boxplot and Trimmed Means] [week 2-box plot] [2010-10-18 19:20:52] [ba756de104b943f77c26d411b990b453]
-    D                            [Boxplot and Trimmed Means] [box plot] [2010-10-18 19:21:19] [bf7a23b5d486241ca2b1892f1fc7bec9]
-    D                            [Boxplot and Trimmed Means] [Compendium 2] [2010-10-18 19:26:14] [791b6e9b5b89a59caaa2a08b67d5f6f0]
-   P                               [Boxplot and Trimmed Means] [Compendium 2] [2010-10-18 19:52:38] [791b6e9b5b89a59caaa2a08b67d5f6f0]
-   P                                 [Boxplot and Trimmed Means] [Compendium 2] [2010-10-18 20:29:23] [791b6e9b5b89a59caaa2a08b67d5f6f0]
-   P                                 [Boxplot and Trimmed Means] [Compendium 2] [2010-10-18 20:47:46] [791b6e9b5b89a59caaa2a08b67d5f6f0]
-   PD                            [Boxplot and Trimmed Means] [] [2010-10-18 19:28:26] [74be16979710d4c4e7c6647856088456]
-   P                               [Boxplot and Trimmed Means] [] [2010-10-18 19:38:47] [74be16979710d4c4e7c6647856088456]
-   P                               [Boxplot and Trimmed Means] [] [2010-10-18 19:44:22] [74be16979710d4c4e7c6647856088456]
-   PD                            [Boxplot and Trimmed Means] [] [2010-10-18 19:35:25] [56deace5afbbe22352c3841e29b79134]
-   PD                            [Boxplot and Trimmed Means] [W2 Comp E4 BP10] [2010-10-18 19:45:23] [56deace5afbbe22352c3841e29b79134]
-    D                            [Boxplot and Trimmed Means] [boxplot np] [2010-10-18 19:46:44] [61f503b2177bafdabe2572a488e9c39b]
-                                 [Boxplot and Trimmed Means] [] [2010-10-18 19:45:19] [b48f5f730c5d512b3990977e77ceb182]
-    D                            [Boxplot and Trimmed Means] [boxplot p] [2010-10-18 19:50:08] [61f503b2177bafdabe2572a488e9c39b]
-   PD                            [Boxplot and Trimmed Means] [bp p 5%] [2010-10-18 19:52:02] [61f503b2177bafdabe2572a488e9c39b]
-   PD                            [Boxplot and Trimmed Means] [W2 C E4 BP 20] [2010-10-18 19:51:47] [56deace5afbbe22352c3841e29b79134]
-   PD                            [Boxplot and Trimmed Means] [bp p 10%] [2010-10-18 19:53:59] [61f503b2177bafdabe2572a488e9c39b]
-   PD                            [Boxplot and Trimmed Means] [bp p 20%] [2010-10-18 19:55:42] [61f503b2177bafdabe2572a488e9c39b]
-   P                             [Boxplot and Trimmed Means] [] [2010-10-18 19:49:49] [b48f5f730c5d512b3990977e77ceb182]
-   PD                            [Boxplot and Trimmed Means] [bp np 20%] [2010-10-18 19:57:55] [61f503b2177bafdabe2572a488e9c39b]
-   P                             [Boxplot and Trimmed Means] [] [2010-10-18 19:59:24] [b48f5f730c5d512b3990977e77ceb182]
-   P                             [Boxplot and Trimmed Means] [5% trim] [2010-10-18 20:02:25] [bf7a23b5d486241ca2b1892f1fc7bec9]
-                                 [Boxplot and Trimmed Means] [Boxplot Original] [2010-10-18 20:02:23] [404b7cc4dc7a1aee40b74eb017dcd509]
F                                   [Boxplot and Trimmed Means] [original boxplot] [2010-10-18 20:08:20] [3bda7d0113b56426af4979274b798dbe]
-   P                               [Boxplot and Trimmed Means] [5% boxplot] [2010-10-18 20:14:23] [404b7cc4dc7a1aee40b74eb017dcd509]
F   P                               [Boxplot and Trimmed Means] [5% boxplot] [2010-10-18 20:17:38] [3bda7d0113b56426af4979274b798dbe]
-   P                               [Boxplot and Trimmed Means] [10% boxplot] [2010-10-18 20:22:01] [3bda7d0113b56426af4979274b798dbe]
-   P                               [Boxplot and Trimmed Means] [10% boxplot] [2010-10-18 20:26:33] [404b7cc4dc7a1aee40b74eb017dcd509]
-   P                               [Boxplot and Trimmed Means] [20% boxplot] [2010-10-18 20:29:21] [3bda7d0113b56426af4979274b798dbe]
-                                   [Boxplot and Trimmed Means] [20% boxplot] [2010-10-18 20:33:23] [404b7cc4dc7a1aee40b74eb017dcd509]
-   P                             [Boxplot and Trimmed Means] [] [2010-10-18 20:04:20] [b48f5f730c5d512b3990977e77ceb182]
-   P                             [Boxplot and Trimmed Means] [10%] [2010-10-18 20:05:06] [bf7a23b5d486241ca2b1892f1fc7bec9]
-    D                            [Boxplot and Trimmed Means] [unsorted data wk2] [2010-10-18 20:02:48] [05616fbd08f92db09f64c90de8227106]
-   PD                            [Boxplot and Trimmed Means] [bp np 5%] [2010-10-18 20:06:20] [61f503b2177bafdabe2572a488e9c39b]

[Truncated]
Feedback Forum

Post a new message
Dataseries X:
'yes'	70.80
'yes'	69.60
'yes'	69.87
'yes'	67.47
'yes'	67.60
'yes'	67.13
'yes'	66.27
'yes'	66.73
'yes'	68.07
'yes'	67.80
'yes'	64.80
'yes'	64.60
'yes'	64.20
'yes'	64.20
'yes'	63.67
'yes'	61.00
'yes'	59.67
'yes'	59.67
'yes'	59.80
'yes'	60.73
'yes'	59.40
'yes'	58.07
'yes'	57.47
'yes'	70.73
'yes'	72.87
'yes'	66.00
'yes'	66.07
'yes'	66.00
'yes'	66.27
'yes'	64.00
'yes'	63.67
'yes'	63.73
'yes'	63.33
'yes'	63.53
'yes'	63.53
'yes'	62.87
'yes'	59.53
'yes'	62.80
'yes'	60.80
'yes'	59.80
'yes'	56.67
'yes'	57.67
'yes'	58.40
'yes'	55.47
'yes'	56.20
'yes'	71.53
'yes'	68.67
'yes'	65.67
'yes'	66.73
'yes'	67.33
'yes'	66.73
'yes'	66.87
'yes'	65.80
'yes'	64.73
'yes'	65.47
'yes'	63.60
'yes'	64.07
'yes'	64.67
'yes'	63.73
'yes'	62.53
'yes'	61.93
'yes'	62.67
'yes'	62.80
'yes'	61.33
'yes'	62.60
'yes'	59.13
'yes'	61.27
'yes'	59.47
'yes'	57.87
'yes'	59.73
'yes'	61.40
'yes'	58.80
'yes'	58.33
'yes'	57.47
'yes'	57.13
'yes'	55.00
'yes'	51.53
'yes'	72.73
'yes'	73.00
'yes'	70.80
'yes'	70.07
'yes'	71.67
'yes'	71.07
'yes'	70.67
'yes'	70.73
'yes'	70.73
'yes'	68.60
'yes'	69.60
'yes'	66.47
'yes'	67.07
'yes'	68.67
'yes'	66.93
'yes'	65.93
'yes'	68.87
'yes'	66.53
'yes'	65.80
'yes'	66.60
'yes'	66.00
'yes'	65.00
'yes'	66.80
'yes'	65.60
'yes'	66.00
'yes'	65.67
'yes'	64.67
'yes'	65.07
'yes'	64.67
'yes'	65.07
'yes'	65.20
'yes'	64.87
'yes'	63.47
'yes'	62.60
'yes'	64.07
'yes'	63.73
'yes'	64.67
'yes'	61.60
'yes'	61.60
'yes'	60.47
'yes'	61.27
'yes'	63.00
'yes'	61.47
'yes'	60.87
'yes'	61.67
'yes'	62.87
'yes'	62.40
'yes'	59.73
'yes'	60.13
'yes'	58.80
'yes'	59.60
'yes'	58.93
'yes'	60.13
'yes'	58.20
'yes'	58.27
'yes'	58.27
'yes'	55.07
'yes'	53.87
'yes'	52.33
'yes'	47.20
'yes'	37.93
'yes'	72.73
'yes'	70.07
'yes'	70.67
'yes'	72.07
'yes'	68.80
'yes'	68.80
'yes'	67.47
'yes'	66.73
'yes'	66.53
'yes'	66.00
'yes'	67.60
'yes'	66.00
'yes'	66.00
'yes'	66.53
'yes'	65.80
'yes'	64.27
'yes'	64.67
'yes'	64.60
'yes'	64.13
'yes'	65.47
'yes'	62.93
'yes'	63.53
'yes'	62.13
'yes'	63.87
'yes'	64.67
'yes'	63.33
'yes'	63.13
'yes'	62.80
'yes'	62.40
'yes'	62.40
'yes'	62.60
'yes'	61.47
'yes'	62.20
'yes'	63.00
'yes'	61.80
'yes'	59.73
'yes'	60.33
'yes'	60.13
'yes'	59.53
'yes'	59.00
'yes'	55.93
'yes'	41.87
'yes'	36.33
'yes'	71.67
'yes'	71.47
'yes'	70.47
'yes'	69.53
'yes'	70.73
'yes'	69.93
'yes'	68.73
'yes'	67.53
'yes'	64.40
'yes'	66.20
'yes'	66.20
'yes'	63.07
'yes'	64.27
'yes'	65.00
'yes'	63.67
'yes'	62.67
'yes'	64.67
'yes'	64.67
'yes'	64.47
'yes'	61.93
'yes'	63.27
'yes'	62.93
'yes'	61.93
'yes'	64.07
'yes'	61.40
'yes'	62.00
'yes'	62.60
'yes'	62.40
'yes'	61.60
'yes'	59.87
'yes'	63.20
'yes'	62.40
'yes'	60.40
'yes'	61.87
'yes'	59.13
'yes'	59.53
'yes'	57.80
'yes'	57.67
'yes'	61.00
'yes'	56.33
'yes'	54.20
'yes'	54.73
'yes'	52.67
'yes'	17.60
'no'	66.67
'no'	66.33
'no'	64.33
'no'	64.00
'no'	63.33
'no'	61.33
'no'	64.67
'no'	63.00
'no'	60.67
'no'	63.67
'no'	60.67
'no'	61.67
'no'	62.33
'no'	60.33
'no'	59.67
'no'	60.33
'no'	59.33
'no'	58.67
'no'	58.67
'no'	59.33
'no'	57.33
'no'	59.33
'no'	56.00
'no'	53.67
'no'	58.67
'no'	49.33
'no'	71.33
'no'	70.33
'no'	69.00
'no'	66.00
'no'	66.00
'no'	63.33
'no'	65.33
'no'	64.33
'no'	64.00
'no'	61.67
'no'	63.67
'no'	64.67
'no'	61.67
'no'	62.00
'no'	61.33
'no'	63.67
'no'	61.33
'no'	62.33
'no'	59.67
'no'	59.33
'no'	61.67
'no'	58.67
'no'	58.00
'no'	56.67
'no'	59.67
'no'	58.00
'no'	57.00
'no'	57.67
'no'	58.67
'no'	55.33
'no'	56.00
'no'	55.67
'no'	53.33
'no'	53.67
'no'	51.00
'no'	47.00
'no'	4.33
'no'	70.00
'no'	68.67
'no'	67.67
'no'	66.00
'no'	65.67
'no'	65.67
'no'	63.67
'no'	63.67
'no'	64.00
'no'	62.00
'no'	62.00
'no'	61.67
'no'	61.67
'no'	63.33
'no'	61.00
'no'	62.33
'no'	60.33
'no'	60.33
'no'	60.67
'no'	57.67
'no'	58.33
'no'	58.00
'no'	57.33
'no'	56.67
'no'	58.00
'no'	55.33
'no'	55.67
'no'	54.67
'no'	56.33
'no'	55.00
'no'	55.00
'no'	54.67
'no'	54.33
'no'	49.00
'no'	48.33
'no'	49.67
'no'	43.67
'no'	6.33
'no'	3.00
'no'	66.67
'no'	67.33
'no'	65.33
'no'	66.00
'no'	65.67
'no'	66.67
'no'	65.67
'no'	65.00
'no'	64.67
'no'	66.67
'no'	63.67
'no'	63.33
'no'	63.67
'no'	63.33
'no'	63.67
'no'	63.00
'no'	61.67
'no'	61.33
'no'	60.67
'no'	60.00
'no'	61.67
'no'	61.33
'no'	58.67
'no'	60.33
'no'	59.67
'no'	59.33
'no'	59.67
'no'	61.00
'no'	61.00
'no'	60.00
'no'	60.00
'no'	58.67
'no'	58.33
'no'	58.00
'no'	56.33
'no'	54.67
'no'	55.33
'no'	54.00
'no'	52.67
'no'	44.00
'no'	65.67
'no'	65.00
'no'	66.33
'no'	64.00
'no'	62.33
'no'	61.33
'no'	63.00
'no'	63.67
'no'	62.00
'no'	61.33
'no'	64.67
'no'	62.67
'no'	64.00
'no'	61.00
'no'	60.67
'no'	59.67
'no'	60.33
'no'	56.67
'no'	56.67
'no'	54.33
'no'	51.00
'no'	51.00
'no'	47.00
'no'	68.00
'no'	65.00
'no'	64.00
'no'	64.00
'no'	64.00
'no'	62.00
'no'	61.00
'no'	60.00
'no'	60.00
'no'	62.00
'no'	60.00
'no'	59.00
'no'	61.00
'no'	60.00
'no'	60.00
'no'	58.00
'no'	58.00
'no'	60.00
'no'	58.00
'no'	59.00
'no'	56.00
'no'	54.00
'no'	51.00
'no'	47.00




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=84926&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=84926&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=84926&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







Boxplot statistics
Placementlower whiskerlower hingemedianupper hingeupper whisker
no5658.83560.676264
yes59.6761.96563.56565.03566.8

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Placement & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
no & 56 & 58.835 & 60.67 & 62 & 64 \tabularnewline
yes & 59.67 & 61.965 & 63.565 & 65.035 & 66.8 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=84926&T=1

[TABLE]
[ROW][C]Boxplot statistics[/C][/ROW]
[ROW][C]Placement[/C][C]lower whisker[/C][C]lower hinge[/C][C]median[/C][C]upper hinge[/C][C]upper whisker[/C][/ROW]
[ROW][C]no[/C][C]56[/C][C]58.835[/C][C]60.67[/C][C]62[/C][C]64[/C][/ROW]
[ROW][C]yes[/C][C]59.67[/C][C]61.965[/C][C]63.565[/C][C]65.035[/C][C]66.8[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=84926&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=84926&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
Placementlower whiskerlower hingemedianupper hingeupper whisker
no5658.83560.676264
yes59.6761.96563.56565.03566.8







Trimmed Mean Equation
No PlacementPlacement
60.582869565217463.5474074074074

\begin{tabular}{lllllllll}
\hline
Trimmed Mean Equation \tabularnewline
No Placement & Placement \tabularnewline
60.5828695652174 & 63.5474074074074 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=84926&T=2

[TABLE]
[ROW][C]Trimmed Mean Equation[/C][/ROW]
[ROW][C]No Placement[/C][C]Placement[/C][/ROW]
[ROW][C]60.5828695652174[/C][C]63.5474074074074[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=84926&T=2

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

As an alternative you can also use a QR Code:  

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

Trimmed Mean Equation
No PlacementPlacement
60.582869565217463.5474074074074



Parameters (Session):
par1 = 3 ; par2 = FALSE ; par3 = 0 ; par4 = 1 ; par5 = 2 ;
Parameters (R input):
par1 = 3 ; par2 = FALSE ; par3 = 20 ; par4 = 1 ; par5 = 2 ;
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.')}
par4 <- as.numeric(par4) #factor column
par5 <- as.numeric(par5) # response column
x <- t(x)
x1<-as.numeric(x[,par5]) # response
f1<-as.character(x[,par4]) # factor
x2<-x1[f1=='no']
f2 <- f1[f1=='no']
lotrm<-as.integer(length(x2)*par3/100)
hitrm<-as.integer(length(x2)*(100-par3)/100)
srt<-order(x2,f2)
trmx1<-x2[srt[lotrm:hitrm]]
trmf1<-f2[srt[lotrm:hitrm]]
x3<-x1[f1=='yes']
f3 <- f1[f1=='yes']
lotrm<-as.integer(length(x3)*par3/100)
hitrm<-as.integer(length(x3)*(100-par3)/100)
srt<-order(x3,f3)
trmx2<-x3[srt[lotrm:hitrm]]
trmf2<-f3[srt[lotrm:hitrm]]
xtrm<-c(trmx1,trmx2)
ftrm<-c(trmf1,trmf2)
xtrm[1:6]
ftrm[1:6]
bitmap(file='test1.png')
r<-boxplot(xtrm~as.factor(ftrm), col=par1, notch=par2, main='Reddy and Moores Placements Data', xlab='Placement Student', ylab='Degree Grade')
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,'Placement',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)
a<-table.row.start(a)
a<-table.element(a,'no',1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,1])
}
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'yes',1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,2])
}
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
tr.mns<-tapply(x1,f1,mean, trim=par3/100)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('trimmed_mean.htm','Trimmed Mean Equation','Trimmed Mean'),2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'No Placement')
a<-table.element(a,'Placement')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,tr.mns[1])
a<-table.element(a,tr.mns[2])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')