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 computationThu, 26 Apr 2012 09:38:04 -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/Apr/26/t1335447503regwr5ajk3nsr85.htm/, Retrieved Mon, 29 Apr 2024 06:35:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=164914, Retrieved Mon, 29 Apr 2024 06:35:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact172
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [Notched Boxplots] [2012-04-26 12:40:42] [38c53a789d29c0853de03d9eff8ed4ee]
- R P     [Notched Boxplots] [k] [2012-04-26 13:38:04] [972100275af27f610aa6d6cf2b8004c8] [Current]
- R P       [Notched Boxplots] [Boxplots JAAR 1] [2012-04-26 13:52:12] [38c53a789d29c0853de03d9eff8ed4ee]
- R P         [Notched Boxplots] [] [2012-05-17 09:44:31] [7d86e24de0a0f8503ecffdef58e8c96c]
- R P         [Notched Boxplots] [] [2012-05-18 19:55:24] [7d86e24de0a0f8503ecffdef58e8c96c]
- R P           [Notched Boxplots] [Jaar 0] [2012-08-28 13:39:06] [52986265a8945c3b72cdef4e8a412754]
- R             [Notched Boxplots] [Jaar 1] [2012-08-28 13:44:54] [52986265a8945c3b72cdef4e8a412754]
- R P           [Notched Boxplots] [jaar 2] [2012-08-28 13:46:05] [52986265a8945c3b72cdef4e8a412754]
- R P           [Notched Boxplots] [jaar 3] [2012-08-28 13:46:56] [52986265a8945c3b72cdef4e8a412754]
- R P       [Notched Boxplots] [Boxplots jaar 2] [2012-04-26 13:53:27] [38c53a789d29c0853de03d9eff8ed4ee]
- RMP         [Notched Boxplots] [] [2012-05-17 11:36:01] [7d86e24de0a0f8503ecffdef58e8c96c]
- R P         [Notched Boxplots] [] [2012-05-18 19:51:28] [7d86e24de0a0f8503ecffdef58e8c96c]
- R P       [Notched Boxplots] [Boxplots jaar 3] [2012-04-26 13:54:27] [38c53a789d29c0853de03d9eff8ed4ee]
- RMP         [Notched Boxplots] [] [2012-05-17 11:37:03] [7d86e24de0a0f8503ecffdef58e8c96c]
- RMP         [Notched Boxplots] [] [2012-05-18 19:53:58] [7d86e24de0a0f8503ecffdef58e8c96c]
- RMP       [Hierarchical Clustering] [Hierarchical clus...] [2012-04-26 14:31:01] [38c53a789d29c0853de03d9eff8ed4ee]
- RMP         [Hierarchical Clustering] [] [2012-05-17 15:24:56] [7d86e24de0a0f8503ecffdef58e8c96c]
- R P         [Hierarchical Clustering] [] [2012-05-19 09:40:56] [7d86e24de0a0f8503ecffdef58e8c96c]
-               [Hierarchical Clustering] [Dendogram] [2012-08-28 12:36:40] [a16dbbad6bb5c4f2f488f3005b4ac28c]
-   P           [Hierarchical Clustering] [Dendogram] [2012-08-28 13:37:50] [a16dbbad6bb5c4f2f488f3005b4ac28c]
- RMP       [Social Networking] [Sociogram 1] [2012-04-26 16:25:40] [38c53a789d29c0853de03d9eff8ed4ee]
- RMP         [Social Networking] [] [2012-05-17 15:27:07] [7d86e24de0a0f8503ecffdef58e8c96c]
- R P         [Social Networking] [] [2012-05-19 09:32:48] [7d86e24de0a0f8503ecffdef58e8c96c]
-  M            [Social Networking] [Sociogram I] [2012-08-30 08:50:16] [a16dbbad6bb5c4f2f488f3005b4ac28c]
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'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=164914&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=164914&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=164914&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'Herman Ole Andreas Wold' @ wold.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
C123445
C323445
C523445
C723445
C923445
C1123445
C1323445
C1523445
C1723445
C1923445
C2123345
C2323445
C2523445
C2713455
C2923445
C3123445
C3323445
C3523345
C3723445
C3923345
C4123445
C4323445
C4544444
C4723445

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
C1 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C3 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C5 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C7 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C9 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C11 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C13 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C15 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C17 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C19 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C21 & 2 & 3 & 3 & 4 & 5 \tabularnewline
C23 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C25 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C27 & 1 & 3 & 4 & 5 & 5 \tabularnewline
C29 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C31 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C33 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C35 & 2 & 3 & 3 & 4 & 5 \tabularnewline
C37 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C39 & 2 & 3 & 3 & 4 & 5 \tabularnewline
C41 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C43 & 2 & 3 & 4 & 4 & 5 \tabularnewline
C45 & 4 & 4 & 4 & 4 & 4 \tabularnewline
C47 & 2 & 3 & 4 & 4 & 5 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=164914&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]C1[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C3[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C5[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C7[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C9[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C11[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C13[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C15[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C17[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C19[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C21[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C23[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C25[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C27[/C][C]1[/C][C]3[/C][C]4[/C][C]5[/C][C]5[/C][/ROW]
[ROW][C]C29[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C31[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C33[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C35[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C37[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C39[/C][C]2[/C][C]3[/C][C]3[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C41[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C43[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[ROW][C]C45[/C][C]4[/C][C]4[/C][C]4[/C][C]4[/C][C]4[/C][/ROW]
[ROW][C]C47[/C][C]2[/C][C]3[/C][C]4[/C][C]4[/C][C]5[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=164914&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=164914&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
C123445
C323445
C523445
C723445
C923445
C1123445
C1323445
C1523445
C1723445
C1923445
C2123345
C2323445
C2523445
C2713455
C2923445
C3123445
C3323445
C3523345
C3723445
C3923345
C4123445
C4323445
C4544444
C4723445







Boxplot Notches
Variablelower boundmedianupper bound
C13.9194757437528644.08052425624714
C33.9194757437528644.08052425624714
C53.9194757437528644.08052425624714
C73.9194757437528644.08052425624714
C93.9194757437528644.08052425624714
C113.9194757437528644.08052425624714
C133.9194757437528644.08052425624714
C153.9194757437528644.08052425624714
C173.9194757437528644.08052425624714
C193.9194757437528644.08052425624714
C212.9194757437528633.08052425624714
C233.9194757437528644.08052425624714
C253.9194757437528644.08052425624714
C273.8389514875057144.16104851249429
C293.9194757437528644.08052425624714
C313.9194757437528644.08052425624714
C333.9194757437528644.08052425624714
C352.9194757437528633.08052425624714
C373.9194757437528644.08052425624714
C392.9194757437528633.08052425624714
C413.9194757437528644.08052425624714
C433.9194757437528644.08052425624714
C45444
C473.9194757437528644.08052425624714

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
C1 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C3 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C5 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C7 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C9 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C11 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C13 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C15 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C17 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C19 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C21 & 2.91947574375286 & 3 & 3.08052425624714 \tabularnewline
C23 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C25 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C27 & 3.83895148750571 & 4 & 4.16104851249429 \tabularnewline
C29 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C31 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C33 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C35 & 2.91947574375286 & 3 & 3.08052425624714 \tabularnewline
C37 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C39 & 2.91947574375286 & 3 & 3.08052425624714 \tabularnewline
C41 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C43 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
C45 & 4 & 4 & 4 \tabularnewline
C47 & 3.91947574375286 & 4 & 4.08052425624714 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=164914&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]C1[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C3[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C5[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C7[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C9[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C11[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C13[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C15[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C17[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C19[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C21[/C][C]2.91947574375286[/C][C]3[/C][C]3.08052425624714[/C][/ROW]
[ROW][C]C23[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C25[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C27[/C][C]3.83895148750571[/C][C]4[/C][C]4.16104851249429[/C][/ROW]
[ROW][C]C29[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C31[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C33[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C35[/C][C]2.91947574375286[/C][C]3[/C][C]3.08052425624714[/C][/ROW]
[ROW][C]C37[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C39[/C][C]2.91947574375286[/C][C]3[/C][C]3.08052425624714[/C][/ROW]
[ROW][C]C41[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C43[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[ROW][C]C45[/C][C]4[/C][C]4[/C][C]4[/C][/ROW]
[ROW][C]C47[/C][C]3.91947574375286[/C][C]4[/C][C]4.08052425624714[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=164914&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=164914&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
C13.9194757437528644.08052425624714
C33.9194757437528644.08052425624714
C53.9194757437528644.08052425624714
C73.9194757437528644.08052425624714
C93.9194757437528644.08052425624714
C113.9194757437528644.08052425624714
C133.9194757437528644.08052425624714
C153.9194757437528644.08052425624714
C173.9194757437528644.08052425624714
C193.9194757437528644.08052425624714
C212.9194757437528633.08052425624714
C233.9194757437528644.08052425624714
C253.9194757437528644.08052425624714
C273.8389514875057144.16104851249429
C293.9194757437528644.08052425624714
C313.9194757437528644.08052425624714
C333.9194757437528644.08052425624714
C352.9194757437528633.08052425624714
C373.9194757437528644.08052425624714
C392.9194757437528633.08052425624714
C413.9194757437528644.08052425624714
C433.9194757437528644.08052425624714
C45444
C473.9194757437528644.08052425624714



Parameters (Session):
par1 = grey ; par2 = female ; par3 = all ; par4 = all ; par5 = COLLES actuals ;
Parameters (R input):
par1 = grey ; par2 = female ; par3 = all ; par4 = all ; par5 = COLLES actuals ;
R code (references can be found in the software module):
par5 <- 'COLLES preferred'
par4 <- 'all'
par3 <- 'all'
par2 <- 'all'
par1 <- 'grey'
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')