Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1dm.wasp
Title produced by softwareNotched Boxplots
Date of computationTue, 01 May 2012 15:37:54 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/May/01/t13359010925g487y997ln6asa.htm/, Retrieved Sat, 04 May 2024 15:24:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=165766, Retrieved Sat, 04 May 2024 15:24:04 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact146
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Recursive Partitioning (Regression Trees)] [] [2012-04-17 16:07:15] [b98453cac15ba1066b407e146608df68]
- RMP   [Notched Boxplots] [Usabiltiy Male] [2012-05-01 19:35:11] [be6dd99035eed41c2358246baf91f928]
-           [Notched Boxplots] [Usabiltiy Female] [2012-05-01 19:37:54] [b10cca3604328cb93a48bb763738d076] [Current]
Feedback Forum

Post a new message




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=165766&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 time1 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
U123445
U223445
U323445
U444444
U523445
U623445
U723445
U812345
U923445
U1011235
U1112334
U1223345
U1312345
U1412345
U15233.545
U1623345
U1723345
U1823345
U1923445
U2023445
U21123.545
U2223445
U2323445
U2423345
U2512234
U2623445
U2734455
U28123.545
U2923445
U3023445
U3123445
U3223445
U3334455

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
U1 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U2 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U3 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U4 & 4 & 4 & 4 & 4 & 4 \tabularnewline
U5 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U6 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U7 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U8 & 1 & 2 & 3 & 4 & 5 \tabularnewline
U9 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U10 & 1 & 1 & 2 & 3 & 5 \tabularnewline
U11 & 1 & 2 & 3 & 3 & 4 \tabularnewline
U12 & 2 & 3 & 3 & 4 & 5 \tabularnewline
U13 & 1 & 2 & 3 & 4 & 5 \tabularnewline
U14 & 1 & 2 & 3 & 4 & 5 \tabularnewline
U15 & 2 & 3 & 3.5 & 4 & 5 \tabularnewline
U16 & 2 & 3 & 3 & 4 & 5 \tabularnewline
U17 & 2 & 3 & 3 & 4 & 5 \tabularnewline
U18 & 2 & 3 & 3 & 4 & 5 \tabularnewline
U19 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U20 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U21 & 1 & 2 & 3.5 & 4 & 5 \tabularnewline
U22 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U23 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U24 & 2 & 3 & 3 & 4 & 5 \tabularnewline
U25 & 1 & 2 & 2 & 3 & 4 \tabularnewline
U26 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U27 & 3 & 4 & 4 & 5 & 5 \tabularnewline
U28 & 1 & 2 & 3.5 & 4 & 5 \tabularnewline
U29 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U30 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U31 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U32 & 2 & 3 & 4 & 4 & 5 \tabularnewline
U33 & 3 & 4 & 4 & 5 & 5 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=165766&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]U1[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U2[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U3[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U4[/C][C]4[/C][C]4[/C][C]4[/C][C]4[/C][C]4[/C][/ROW]
[ROW][C]U5[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U6[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U7[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U8[/C][C]1[/C][C]2[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U9[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U10[/C][C]1[/C][C]1[/C][C]2[/C][C]3[/C][C]5[/C][/ROW]
[ROW][C]U11[/C][C]1[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][/ROW]
[ROW][C]U12[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U13[/C][C]1[/C][C]2[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U14[/C][C]1[/C][C]2[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U15[/C][C]2[/C][C]3[/C][C]3.5[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U16[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U17[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U18[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U19[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U20[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U21[/C][C]1[/C][C]2[/C][C]3.5[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U22[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U23[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U24[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U25[/C][C]1[/C][C]2[/C][C]2[/C][C]3[/C][C]4[/C][/ROW]
[ROW][C]U26[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U27[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][C]5[/C][/ROW]
[ROW][C]U28[/C][C]1[/C][C]2[/C][C]3.5[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U29[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U30[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U31[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U32[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]U33[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][C]5[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=165766&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=165766&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
Variablelower whiskerlower hingemedianupper hingeupper whisker
U123445
U223445
U323445
U444444
U523445
U623445
U723445
U812345
U923445
U1011235
U1112334
U1223345
U1312345
U1412345
U15233.545
U1623345
U1723345
U1823345
U1923445
U2023445
U21123.545
U2223445
U2323445
U2423345
U2512234
U2623445
U2734455
U28123.545
U2923445
U3023445
U3123445
U3223445
U3334455







Boxplot Notches
Variablelower boundmedianupper bound
U13.8334533765644744.16654662343553
U23.8334533765644744.16654662343553
U33.8334533765644744.16654662343553
U4444
U53.8334533765644744.16654662343553
U63.8334533765644744.16654662343553
U73.8334533765644744.16654662343553
U82.6669067531289333.33309324687107
U93.8334533765644744.16654662343553
U101.6669067531289322.33309324687107
U112.8334533765644733.16654662343553
U122.8334533765644733.16654662343553
U132.6669067531289333.33309324687107
U142.6669067531289333.33309324687107
U153.333453376564473.53.66654662343553
U162.8334533765644733.16654662343553
U172.8334533765644733.16654662343553
U182.8334533765644733.16654662343553
U193.8334533765644744.16654662343553
U203.8334533765644744.16654662343553
U213.166906753128933.53.83309324687107
U223.8334533765644744.16654662343553
U233.8334533765644744.16654662343553
U242.8334533765644733.16654662343553
U251.8334533765644722.16654662343553
U263.8334533765644744.16654662343553
U273.8334533765644744.16654662343553
U283.166906753128933.53.83309324687107
U293.8334533765644744.16654662343553
U303.8334533765644744.16654662343553
U313.8334533765644744.16654662343553
U323.8334533765644744.16654662343553
U333.8334533765644744.16654662343553

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
U1 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U2 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U3 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U4 & 4 & 4 & 4 \tabularnewline
U5 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U6 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U7 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U8 & 2.66690675312893 & 3 & 3.33309324687107 \tabularnewline
U9 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U10 & 1.66690675312893 & 2 & 2.33309324687107 \tabularnewline
U11 & 2.83345337656447 & 3 & 3.16654662343553 \tabularnewline
U12 & 2.83345337656447 & 3 & 3.16654662343553 \tabularnewline
U13 & 2.66690675312893 & 3 & 3.33309324687107 \tabularnewline
U14 & 2.66690675312893 & 3 & 3.33309324687107 \tabularnewline
U15 & 3.33345337656447 & 3.5 & 3.66654662343553 \tabularnewline
U16 & 2.83345337656447 & 3 & 3.16654662343553 \tabularnewline
U17 & 2.83345337656447 & 3 & 3.16654662343553 \tabularnewline
U18 & 2.83345337656447 & 3 & 3.16654662343553 \tabularnewline
U19 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U20 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U21 & 3.16690675312893 & 3.5 & 3.83309324687107 \tabularnewline
U22 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U23 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U24 & 2.83345337656447 & 3 & 3.16654662343553 \tabularnewline
U25 & 1.83345337656447 & 2 & 2.16654662343553 \tabularnewline
U26 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U27 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U28 & 3.16690675312893 & 3.5 & 3.83309324687107 \tabularnewline
U29 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U30 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U31 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U32 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
U33 & 3.83345337656447 & 4 & 4.16654662343553 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=165766&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]U1[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U2[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U3[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U4[/C][C]4[/C][C]4[/C][C]4[/C][/ROW]
[ROW][C]U5[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U6[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U7[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U8[/C][C]2.66690675312893[/C][C]3[/C][C]3.33309324687107[/C][/ROW]
[ROW][C]U9[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U10[/C][C]1.66690675312893[/C][C]2[/C][C]2.33309324687107[/C][/ROW]
[ROW][C]U11[/C][C]2.83345337656447[/C][C]3[/C][C]3.16654662343553[/C][/ROW]
[ROW][C]U12[/C][C]2.83345337656447[/C][C]3[/C][C]3.16654662343553[/C][/ROW]
[ROW][C]U13[/C][C]2.66690675312893[/C][C]3[/C][C]3.33309324687107[/C][/ROW]
[ROW][C]U14[/C][C]2.66690675312893[/C][C]3[/C][C]3.33309324687107[/C][/ROW]
[ROW][C]U15[/C][C]3.33345337656447[/C][C]3.5[/C][C]3.66654662343553[/C][/ROW]
[ROW][C]U16[/C][C]2.83345337656447[/C][C]3[/C][C]3.16654662343553[/C][/ROW]
[ROW][C]U17[/C][C]2.83345337656447[/C][C]3[/C][C]3.16654662343553[/C][/ROW]
[ROW][C]U18[/C][C]2.83345337656447[/C][C]3[/C][C]3.16654662343553[/C][/ROW]
[ROW][C]U19[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U20[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U21[/C][C]3.16690675312893[/C][C]3.5[/C][C]3.83309324687107[/C][/ROW]
[ROW][C]U22[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U23[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U24[/C][C]2.83345337656447[/C][C]3[/C][C]3.16654662343553[/C][/ROW]
[ROW][C]U25[/C][C]1.83345337656447[/C][C]2[/C][C]2.16654662343553[/C][/ROW]
[ROW][C]U26[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U27[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U28[/C][C]3.16690675312893[/C][C]3.5[/C][C]3.83309324687107[/C][/ROW]
[ROW][C]U29[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U30[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U31[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U32[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[ROW][C]U33[/C][C]3.83345337656447[/C][C]4[/C][C]4.16654662343553[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=165766&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=165766&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
Variablelower boundmedianupper bound
U13.8334533765644744.16654662343553
U23.8334533765644744.16654662343553
U33.8334533765644744.16654662343553
U4444
U53.8334533765644744.16654662343553
U63.8334533765644744.16654662343553
U73.8334533765644744.16654662343553
U82.6669067531289333.33309324687107
U93.8334533765644744.16654662343553
U101.6669067531289322.33309324687107
U112.8334533765644733.16654662343553
U122.8334533765644733.16654662343553
U132.6669067531289333.33309324687107
U142.6669067531289333.33309324687107
U153.333453376564473.53.66654662343553
U162.8334533765644733.16654662343553
U172.8334533765644733.16654662343553
U182.8334533765644733.16654662343553
U193.8334533765644744.16654662343553
U203.8334533765644744.16654662343553
U213.166906753128933.53.83309324687107
U223.8334533765644744.16654662343553
U233.8334533765644744.16654662343553
U242.8334533765644733.16654662343553
U251.8334533765644722.16654662343553
U263.8334533765644744.16654662343553
U273.8334533765644744.16654662343553
U283.166906753128933.53.83309324687107
U293.8334533765644744.16654662343553
U303.8334533765644744.16654662343553
U313.8334533765644744.16654662343553
U323.8334533765644744.16654662343553
U333.8334533765644744.16654662343553



Parameters (Session):
par1 = 6 ; par2 = none ; par3 = 3 ; par4 = no ; par5 = all ; par6 = bachelor ; par7 = all ; par8 = COLLES actuals ; par9 = Learning Activities ;
Parameters (R input):
par1 = grey ; par2 = female ; par3 = bachelor ; par4 = all ; par5 = CSUQ ;
R code (references can be found in the software module):
x <- as.data.frame(read.table(file='https://automated.biganalytics.eu/download/utaut.csv',sep=',',header=T))
x$U25 <- 6-x$U25
if(par2 == 'female') x <- x[x$Gender==0,]
if(par2 == 'male') x <- x[x$Gender==1,]
if(par3 == 'prep') x <- x[x$Pop==1,]
if(par3 == 'bachelor') x <- x[x$Pop==0,]
if(par4 != 'all') {
x <- x[x$Year==as.numeric(par4),]
}
cAc <- with(x,cbind( A1, A2, A3, A4, A5, A6, A7, A8, A9,A10))
cAs <- with(x,cbind(A11,A12,A13,A14,A15,A16,A17,A18,A19,A20))
cA <- cbind(cAc,cAs)
cCa <- with(x,cbind(C1,C3,C5,C7, C9,C11,C13,C15,C17,C19,C21,C23,C25,C27,C29,C31,C33,C35,C37,C39,C41,C43,C45,C47))
cCp <- with(x,cbind(C2,C4,C6,C8,C10,C12,C14,C16,C18,C20,C22,C24,C26,C28,C30,C32,C34,C36,C38,C40,C42,C44,C46,C48))
cC <- cbind(cCa,cCp)
cU <- with(x,cbind(U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19,U20,U21,U22,U23,U24,U25,U26,U27,U28,U29,U30,U31,U32,U33))
cE <- with(x,cbind(BC,NNZFG,MRT,AFL,LPM,LPC,W,WPA))
cX <- with(x,cbind(X1,X2,X3,X4,X5,X6,X7,X8,X9,X10,X11,X12,X13,X14,X15,X16,X17,X18))
if (par5=='ATTLES connected') x <- cAc
if (par5=='ATTLES separate') x <- cAs
if (par5=='ATTLES all') x <- cA
if (par5=='COLLES actuals') x <- cCa
if (par5=='COLLES preferred') x <- cCp
if (par5=='COLLES all') x <- cC
if (par5=='CSUQ') x <- cU
if (par5=='Learning Activities') x <- cE
if (par5=='Exam Items') x <- cX
ncol <- length(x[1,])
for (jjj in 1:ncol) {
x <- x[!is.na(x[,jjj]),]
}
x <- t(x)
y <- x
z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,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,r$stats[j,i])
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
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,r$conf[1,i])
a<-table.element(a,r$stats[3,i])
a<-table.element(a,r$conf[2,i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')