Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_Two Factor ANOVA.wasp
Title produced by softwareTwo-Way ANOVA
Date of computationTue, 29 Nov 2011 04:49:40 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/29/t1322560197l3f7e7vvdbuv1wh.htm/, Retrieved Thu, 28 Mar 2024 23:01:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=148143, Retrieved Thu, 28 Mar 2024 23:01:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact76
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Two-Way ANOVA] [] [2011-11-29 09:49:40] [87b6e955a128bfb8d1e350b3ce0d281e] [Current]
Feedback Forum

Post a new message
Dataseries X:
'Firefox'	'WWE'	0
'MSIE'	'WWE'	0
'MSIE'	'WWE'	2
'MSIE'	'WWE'	0
'MSIE'	'WWE'	2
'Firefox'	'WWE'	1
'Firefox'	'WWE'	0
'MSIE'	'WWE'	2
'Chrome'	'WWE'	0
'Firefox'	'WWE'	0
'Firefox'	'WWE'	0
'MSIE'	'WWE'	0
'MSIE'	'WWE'	0
'MSIE'	'WWE'	NA
'MSIE'	'WWE'	1
'MSIE'	'WWE'	NA
'Firefox'	'WWE'	-1
'MSIE'	'WWE'	0
'Firefox'	'WWE'	1
'Firefox'	'WWE'	1
'MSIE'	'WWE'	0
'Firefox'	'WWE'	0
'Firefox'	'WWE'	0
'MSIE'	'WWE'	1
'MSIE'	'WWE'	2
'Firefox'	'WWE'	2
'Firefox'	'WWE'	0
'Safari'	'WWE'	0
'MSIE'	'WWE'	1
'Firefox'	'WWE'	1
'MSIE'	'WWE'	1
'MSIE'	'WWE'	1
'MSIE'	'WWE'	1
'Firefox'	'WWE'	0
'MSIE'	'WWE'	0
'MSIE'	'WWE'	0
'Firefox'	'WWE'	0
'MSIE'	'WWE'	0
'MSIE'	'WWE'	NA
'MSIE'	'WWE'	1
'Firefox'	'WWE'	0
'MSIE'	'CSWE'	0
'MSIE'	'CSWE'	NA
'Firefox'	'CSWE'	0
'Opera'	'CSWE'	NA
'Firefox'	'CSWE'	1
'MSIE'	'CSWE'	0
'MSIE'	'CSWE'	0
'MSIE'	'CSWE'	1
'Firefox'	'CSWE'	0
'Firefox'	'CSWE'	0
'Safari'	'CSWE'	1
'Firefox'	'CSWE'	1
'Firefox'	'CSWE'	0
'MSIE'	'CSWE'	NA
'MSIE'	'CSWE'	1
'MSIE'	'CSWE'	NA
'Firefox'	'CSWE'	0
'Safari'	'CSWE'	1
'MSIE'	'CSWE'	NA
'MSIE'	'CSWE'	1
'MSIE'	'CSWE'	0
'MSIE'	'CSWE'	NA
'Firefox'	'CSWE'	0
'MSIE'	'CSWE'	1
'Chrome'	'CSWE'	0
'MSIE'	'CSWE'	1
'Firefox'	'CSWE'	1
'Safari'	'CSWE'	1
'Safari'	'CSWE'	0
'Firefox'	'CSWE'	1
'MSIE'	'CSWE'	2
'MSIE'	'CSWE'	1
'Firefox'	'CSWE'	NA
'MSIE'	'CSWE'	0
'MSIE'	'CSWE'	NA
'MSIE'	'CSWE'	0
'MSIE'	'CSWE'	0
'Firefox'	'CSWE'	0
'MSIE'	'CSWE'	1
'MSIE'	'CSWE'	1
'MSIE'	'C'	0
'MSIE'	'C'	1
'Firefox'	'C'	-1
'MSIE'	'C'	1
'Firefox'	'C'	NA
'Safari'	'C'	0
'Firefox'	'C'	0
'MSIE'	'C'	1
'MSIE'	'C'	0
'MSIE'	'C'	NA
'MSIE'	'C'	0
'MSIE'	'C'	1
'MSIE'	'C'	1
'MSIE'	'C'	0
'Safari'	'C'	0
'Firefox'	'C'	0
'MSIE'	'C'	0
'Firefox'	'C'	NA
'MSIE'	'C'	0
'MSIE'	'C'	1
'MSIE'	'C'	0
'MSIE'	'C'	1
'MSIE'	'C'	0
'Firefox'	'C'	0
'MSIE'	'C'	0
'Firefox'	'C'	0
'MSIE'	'C'	0
'MSIE'	'C'	0
'MSIE'	'C'	0
'Firefox'	'C'	0
'MSIE'	'C'	0
'MSIE'	'C'	1
'MSIE'	'C'	0
'Safari'	'C'	0
'MSIE'	'C'	0
'Firefox'	'C'	1
'Firefox'	'C'	0
'MSIE'	'C'	NA
'Safari'	'C'	0




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

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







ANOVA Model
xdf2$tot ~ xdf2$browser * xdf2$methode
names(Intercept)xdf2$browserFirefoxxdf2$browserMSIExdf2$browserSafarixdf2$methodeCSWExdf2$methodeWWExdf2$browserFirefox:xdf2$methodeCSWExdf2$browserMSIE:xdf2$methodeCSWExdf2$browserSafari:xdf2$methodeCSWExdf2$browserFirefox:xdf2$methodeWWExdf2$browserMSIE:xdf2$methodeWWExdf2$browserSafari:xdf2$methodeWWE
means-4.033e-154.0318e-150.347833.5283e-153.5232e-152.4681e-150.363640.277170.750.31250.40217NA

\begin{tabular}{lllllllll}
\hline
ANOVA Model \tabularnewline
xdf2$tot ~ xdf2$browser * xdf2$methode \tabularnewline
names & (Intercept) & xdf2$browserFirefox & xdf2$browserMSIE & xdf2$browserSafari & xdf2$methodeCSWE & xdf2$methodeWWE & xdf2$browserFirefox:xdf2$methodeCSWE & xdf2$browserMSIE:xdf2$methodeCSWE & xdf2$browserSafari:xdf2$methodeCSWE & xdf2$browserFirefox:xdf2$methodeWWE & xdf2$browserMSIE:xdf2$methodeWWE & xdf2$browserSafari:xdf2$methodeWWE \tabularnewline
means & -4.033e-15 & 4.0318e-15 & 0.34783 & 3.5283e-15 & 3.5232e-15 & 2.4681e-15 & 0.36364 & 0.27717 & 0.75 & 0.3125 & 0.40217 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148143&T=1

[TABLE]
[ROW][C]ANOVA Model[/C][/ROW]
[ROW][C]xdf2$tot ~ xdf2$browser * xdf2$methode[/C][/ROW]
[ROW][C]names[/C][C](Intercept)[/C][C]xdf2$browserFirefox[/C][C]xdf2$browserMSIE[/C][C]xdf2$browserSafari[/C][C]xdf2$methodeCSWE[/C][C]xdf2$methodeWWE[/C][C]xdf2$browserFirefox:xdf2$methodeCSWE[/C][C]xdf2$browserMSIE:xdf2$methodeCSWE[/C][C]xdf2$browserSafari:xdf2$methodeCSWE[/C][C]xdf2$browserFirefox:xdf2$methodeWWE[/C][C]xdf2$browserMSIE:xdf2$methodeWWE[/C][C]xdf2$browserSafari:xdf2$methodeWWE[/C][/ROW]
[ROW][C]means[/C][C]-4.033e-15[/C][C]4.0318e-15[/C][C]0.34783[/C][C]3.5283e-15[/C][C]3.5232e-15[/C][C]2.4681e-15[/C][C]0.36364[/C][C]0.27717[/C][C]0.75[/C][C]0.3125[/C][C]0.40217[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148143&T=1

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

As an alternative you can also use a QR Code:  

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

ANOVA Model
xdf2$tot ~ xdf2$browser * xdf2$methode
names(Intercept)xdf2$browserFirefoxxdf2$browserMSIExdf2$browserSafarixdf2$methodeCSWExdf2$methodeWWExdf2$browserFirefox:xdf2$methodeCSWExdf2$browserMSIE:xdf2$methodeCSWExdf2$browserSafari:xdf2$methodeCSWExdf2$browserFirefox:xdf2$methodeWWExdf2$browserMSIE:xdf2$methodeWWExdf2$browserSafari:xdf2$methodeWWE
means-4.033e-154.0318e-150.347833.5283e-153.5232e-152.4681e-150.363640.277170.750.31250.40217NA







ANOVA Statistics
DfSum SqMean SqF valuePr(>F)
3
xdf2$browser32.48620.828732.19750.093483
xdf2$methode33.03841.51924.02830.020965
xdf2$browser:xdf2$methode30.739370.147870.39210.85314
Residuals9435.450.37713

\begin{tabular}{lllllllll}
\hline
ANOVA Statistics \tabularnewline
  & Df & Sum Sq & Mean Sq & F value & Pr(>F) \tabularnewline
 & 3 &  &  &  &  \tabularnewline
xdf2$browser & 3 & 2.4862 & 0.82873 & 2.1975 & 0.093483 \tabularnewline
xdf2$methode & 3 & 3.0384 & 1.5192 & 4.0283 & 0.020965 \tabularnewline
xdf2$browser:xdf2$methode & 3 & 0.73937 & 0.14787 & 0.3921 & 0.85314 \tabularnewline
Residuals & 94 & 35.45 & 0.37713 &   &   \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148143&T=2

[TABLE]
[ROW][C]ANOVA Statistics[/C][/ROW]
[ROW][C] [/C][C]Df[/C][C]Sum Sq[/C][C]Mean Sq[/C][C]F value[/C][C]Pr(>F)[/C][/ROW]
[ROW][C][/C][C]3[/C][C][/C][C][/C][C][/C][C][/C][/ROW]
[ROW][C]xdf2$browser[/C][C]3[/C][C]2.4862[/C][C]0.82873[/C][C]2.1975[/C][C]0.093483[/C][/ROW]
[ROW][C]xdf2$methode[/C][C]3[/C][C]3.0384[/C][C]1.5192[/C][C]4.0283[/C][C]0.020965[/C][/ROW]
[ROW][C]xdf2$browser:xdf2$methode[/C][C]3[/C][C]0.73937[/C][C]0.14787[/C][C]0.3921[/C][C]0.85314[/C][/ROW]
[ROW][C]Residuals[/C][C]94[/C][C]35.45[/C][C]0.37713[/C][C] [/C][C] [/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148143&T=2

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

As an alternative you can also use a QR Code:  

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

ANOVA Statistics
DfSum SqMean SqF valuePr(>F)
3
xdf2$browser32.48620.828732.19750.093483
xdf2$methode33.03841.51924.02830.020965
xdf2$browser:xdf2$methode30.739370.147870.39210.85314
Residuals9435.450.37713







Tukey Honest Significant Difference Comparisons
difflwruprp adj
Firefox-Chrome0.25714-0.910661.42490.93905
MSIE-Chrome0.55932-0.595571.71420.58626
Safari-Chrome0.33333-0.922341.5890.89902
MSIE-Firefox0.30218-0.0405250.644880.10388
Safari-Firefox0.07619-0.524140.676520.98731
Safari-MSIE-0.22599-0.80080.348820.73331
CSWE-C0.35738-0.000307290.715070.050248
WWE-C0.350750.00812540.693370.043567
WWE-CSWE-0.0066363-0.357520.344250.99888
Firefox:C-Chrome:CNANANANA
MSIE:C-Chrome:CNANANANA
Safari:C-Chrome:CNANANANA
Chrome:CSWE-Chrome:CNANANANA
Firefox:CSWE-Chrome:CNANANANA
MSIE:CSWE-Chrome:CNANANANA
Safari:CSWE-Chrome:CNANANANA
Chrome:WWE-Chrome:CNANANANA
Firefox:WWE-Chrome:CNANANANA
MSIE:WWE-Chrome:CNANANANA
Safari:WWE-Chrome:CNANANANA
MSIE:C-Firefox:C0.34783-0.497081.19270.96462
Safari:C-Firefox:C-5.447e-16-1.26051.26051
Chrome:CSWE-Firefox:C-4.4219e-16-2.18332.18331
Firefox:CSWE-Firefox:C0.36364-0.592831.32010.9804
MSIE:CSWE-Firefox:C0.625-0.266331.51630.44959
Safari:CSWE-Firefox:C0.75-0.510522.01050.69596
Chrome:WWE-Firefox:C-1.457e-15-2.18332.18331
Firefox:WWE-Firefox:C0.3125-0.578831.20380.98965
MSIE:WWE-Firefox:C0.75-0.11111.61110.15116
Safari:WWE-Firefox:C1.7868e-15-2.18332.18331
Safari:C-MSIE:C-0.34783-1.4630.76730.99611
Chrome:CSWE-MSIE:C-0.34783-2.45051.75490.99999
Firefox:CSWE-MSIE:C0.01581-0.738790.770411
MSIE:CSWE-MSIE:C0.27717-0.392930.947280.9634
Safari:CSWE-MSIE:C0.40217-0.712951.51730.98702
Chrome:WWE-MSIE:C-0.34783-2.45051.75490.99999
Firefox:WWE-MSIE:C-0.035326-0.705430.634781
MSIE:WWE-MSIE:C0.40217-0.227171.03150.59468
Safari:WWE-MSIE:C-0.34783-2.45051.75490.99999
Chrome:CSWE-Safari:C1.0251e-16-2.30142.30141
Firefox:CSWE-Safari:C0.36364-0.838231.56550.99702
MSIE:CSWE-Safari:C0.625-0.52571.77570.8026
Safari:CSWE-Safari:C0.75-0.705532.20550.85104
Chrome:WWE-Safari:C-9.123e-16-2.30142.30141
Firefox:WWE-Safari:C0.3125-0.83821.46320.99887
MSIE:WWE-Safari:C0.75-0.377451.87740.53295
Safari:WWE-Safari:C2.3315e-15-2.30142.30141
Firefox:CSWE-Chrome:CSWE0.36364-1.78632.51360.99999
MSIE:CSWE-Chrome:CSWE0.625-1.49682.74680.99765
Safari:CSWE-Chrome:CSWE0.75-1.55143.05140.99435
Chrome:WWE-Chrome:CSWE-1.0148e-15-2.91112.91111
Firefox:WWE-Chrome:CSWE0.3125-1.80932.43431
MSIE:WWE-Chrome:CSWE0.75-1.35932.85930.98841
Safari:WWE-Chrome:CSWE2.229e-15-2.91112.91111
MSIE:CSWE-Firefox:CSWE0.26136-0.544871.06760.9946
Safari:CSWE-Firefox:CSWE0.38636-0.81551.58820.99497
Chrome:WWE-Firefox:CSWE-0.36364-2.51361.78630.99999
Firefox:WWE-Firefox:CSWE-0.051136-0.857370.75511
MSIE:WWE-Firefox:CSWE0.38636-0.386331.15910.87441
Safari:WWE-Firefox:CSWE-0.36364-2.51361.78630.99999
Safari:CSWE-MSIE:CSWE0.125-1.02571.27571
Chrome:WWE-MSIE:CSWE-0.625-2.74681.49680.99765
Firefox:WWE-MSIE:CSWE-0.3125-1.04030.415260.95238
MSIE:WWE-MSIE:CSWE0.125-0.565420.815420.99998
Safari:WWE-MSIE:CSWE-0.625-2.74681.49680.99765
Chrome:WWE-Safari:CSWE-0.75-3.05141.55140.99435
Firefox:WWE-Safari:CSWE-0.4375-1.58820.71320.9804
MSIE:WWE-Safari:CSWE-4.4409e-16-1.12741.12741
Safari:WWE-Safari:CSWE-0.75-3.05141.55140.99435
Firefox:WWE-Chrome:WWE0.3125-1.80932.43431
MSIE:WWE-Chrome:WWE0.75-1.35932.85930.98841
Safari:WWE-Chrome:WWE3.2438e-15-2.91112.91111
MSIE:WWE-Firefox:WWE0.4375-0.252921.12790.60727
Safari:WWE-Firefox:WWE-0.3125-2.43431.80931
Safari:WWE-MSIE:WWE-0.75-2.85931.35930.98841

\begin{tabular}{lllllllll}
\hline
Tukey Honest Significant Difference Comparisons \tabularnewline
  & diff & lwr & upr & p adj \tabularnewline
Firefox-Chrome & 0.25714 & -0.91066 & 1.4249 & 0.93905 \tabularnewline
MSIE-Chrome & 0.55932 & -0.59557 & 1.7142 & 0.58626 \tabularnewline
Safari-Chrome & 0.33333 & -0.92234 & 1.589 & 0.89902 \tabularnewline
MSIE-Firefox & 0.30218 & -0.040525 & 0.64488 & 0.10388 \tabularnewline
Safari-Firefox & 0.07619 & -0.52414 & 0.67652 & 0.98731 \tabularnewline
Safari-MSIE & -0.22599 & -0.8008 & 0.34882 & 0.73331 \tabularnewline
CSWE-C & 0.35738 & -0.00030729 & 0.71507 & 0.050248 \tabularnewline
WWE-C & 0.35075 & 0.0081254 & 0.69337 & 0.043567 \tabularnewline
WWE-CSWE & -0.0066363 & -0.35752 & 0.34425 & 0.99888 \tabularnewline
Firefox:C-Chrome:C & NA & NA & NA & NA \tabularnewline
MSIE:C-Chrome:C & NA & NA & NA & NA \tabularnewline
Safari:C-Chrome:C & NA & NA & NA & NA \tabularnewline
Chrome:CSWE-Chrome:C & NA & NA & NA & NA \tabularnewline
Firefox:CSWE-Chrome:C & NA & NA & NA & NA \tabularnewline
MSIE:CSWE-Chrome:C & NA & NA & NA & NA \tabularnewline
Safari:CSWE-Chrome:C & NA & NA & NA & NA \tabularnewline
Chrome:WWE-Chrome:C & NA & NA & NA & NA \tabularnewline
Firefox:WWE-Chrome:C & NA & NA & NA & NA \tabularnewline
MSIE:WWE-Chrome:C & NA & NA & NA & NA \tabularnewline
Safari:WWE-Chrome:C & NA & NA & NA & NA \tabularnewline
MSIE:C-Firefox:C & 0.34783 & -0.49708 & 1.1927 & 0.96462 \tabularnewline
Safari:C-Firefox:C & -5.447e-16 & -1.2605 & 1.2605 & 1 \tabularnewline
Chrome:CSWE-Firefox:C & -4.4219e-16 & -2.1833 & 2.1833 & 1 \tabularnewline
Firefox:CSWE-Firefox:C & 0.36364 & -0.59283 & 1.3201 & 0.9804 \tabularnewline
MSIE:CSWE-Firefox:C & 0.625 & -0.26633 & 1.5163 & 0.44959 \tabularnewline
Safari:CSWE-Firefox:C & 0.75 & -0.51052 & 2.0105 & 0.69596 \tabularnewline
Chrome:WWE-Firefox:C & -1.457e-15 & -2.1833 & 2.1833 & 1 \tabularnewline
Firefox:WWE-Firefox:C & 0.3125 & -0.57883 & 1.2038 & 0.98965 \tabularnewline
MSIE:WWE-Firefox:C & 0.75 & -0.1111 & 1.6111 & 0.15116 \tabularnewline
Safari:WWE-Firefox:C & 1.7868e-15 & -2.1833 & 2.1833 & 1 \tabularnewline
Safari:C-MSIE:C & -0.34783 & -1.463 & 0.7673 & 0.99611 \tabularnewline
Chrome:CSWE-MSIE:C & -0.34783 & -2.4505 & 1.7549 & 0.99999 \tabularnewline
Firefox:CSWE-MSIE:C & 0.01581 & -0.73879 & 0.77041 & 1 \tabularnewline
MSIE:CSWE-MSIE:C & 0.27717 & -0.39293 & 0.94728 & 0.9634 \tabularnewline
Safari:CSWE-MSIE:C & 0.40217 & -0.71295 & 1.5173 & 0.98702 \tabularnewline
Chrome:WWE-MSIE:C & -0.34783 & -2.4505 & 1.7549 & 0.99999 \tabularnewline
Firefox:WWE-MSIE:C & -0.035326 & -0.70543 & 0.63478 & 1 \tabularnewline
MSIE:WWE-MSIE:C & 0.40217 & -0.22717 & 1.0315 & 0.59468 \tabularnewline
Safari:WWE-MSIE:C & -0.34783 & -2.4505 & 1.7549 & 0.99999 \tabularnewline
Chrome:CSWE-Safari:C & 1.0251e-16 & -2.3014 & 2.3014 & 1 \tabularnewline
Firefox:CSWE-Safari:C & 0.36364 & -0.83823 & 1.5655 & 0.99702 \tabularnewline
MSIE:CSWE-Safari:C & 0.625 & -0.5257 & 1.7757 & 0.8026 \tabularnewline
Safari:CSWE-Safari:C & 0.75 & -0.70553 & 2.2055 & 0.85104 \tabularnewline
Chrome:WWE-Safari:C & -9.123e-16 & -2.3014 & 2.3014 & 1 \tabularnewline
Firefox:WWE-Safari:C & 0.3125 & -0.8382 & 1.4632 & 0.99887 \tabularnewline
MSIE:WWE-Safari:C & 0.75 & -0.37745 & 1.8774 & 0.53295 \tabularnewline
Safari:WWE-Safari:C & 2.3315e-15 & -2.3014 & 2.3014 & 1 \tabularnewline
Firefox:CSWE-Chrome:CSWE & 0.36364 & -1.7863 & 2.5136 & 0.99999 \tabularnewline
MSIE:CSWE-Chrome:CSWE & 0.625 & -1.4968 & 2.7468 & 0.99765 \tabularnewline
Safari:CSWE-Chrome:CSWE & 0.75 & -1.5514 & 3.0514 & 0.99435 \tabularnewline
Chrome:WWE-Chrome:CSWE & -1.0148e-15 & -2.9111 & 2.9111 & 1 \tabularnewline
Firefox:WWE-Chrome:CSWE & 0.3125 & -1.8093 & 2.4343 & 1 \tabularnewline
MSIE:WWE-Chrome:CSWE & 0.75 & -1.3593 & 2.8593 & 0.98841 \tabularnewline
Safari:WWE-Chrome:CSWE & 2.229e-15 & -2.9111 & 2.9111 & 1 \tabularnewline
MSIE:CSWE-Firefox:CSWE & 0.26136 & -0.54487 & 1.0676 & 0.9946 \tabularnewline
Safari:CSWE-Firefox:CSWE & 0.38636 & -0.8155 & 1.5882 & 0.99497 \tabularnewline
Chrome:WWE-Firefox:CSWE & -0.36364 & -2.5136 & 1.7863 & 0.99999 \tabularnewline
Firefox:WWE-Firefox:CSWE & -0.051136 & -0.85737 & 0.7551 & 1 \tabularnewline
MSIE:WWE-Firefox:CSWE & 0.38636 & -0.38633 & 1.1591 & 0.87441 \tabularnewline
Safari:WWE-Firefox:CSWE & -0.36364 & -2.5136 & 1.7863 & 0.99999 \tabularnewline
Safari:CSWE-MSIE:CSWE & 0.125 & -1.0257 & 1.2757 & 1 \tabularnewline
Chrome:WWE-MSIE:CSWE & -0.625 & -2.7468 & 1.4968 & 0.99765 \tabularnewline
Firefox:WWE-MSIE:CSWE & -0.3125 & -1.0403 & 0.41526 & 0.95238 \tabularnewline
MSIE:WWE-MSIE:CSWE & 0.125 & -0.56542 & 0.81542 & 0.99998 \tabularnewline
Safari:WWE-MSIE:CSWE & -0.625 & -2.7468 & 1.4968 & 0.99765 \tabularnewline
Chrome:WWE-Safari:CSWE & -0.75 & -3.0514 & 1.5514 & 0.99435 \tabularnewline
Firefox:WWE-Safari:CSWE & -0.4375 & -1.5882 & 0.7132 & 0.9804 \tabularnewline
MSIE:WWE-Safari:CSWE & -4.4409e-16 & -1.1274 & 1.1274 & 1 \tabularnewline
Safari:WWE-Safari:CSWE & -0.75 & -3.0514 & 1.5514 & 0.99435 \tabularnewline
Firefox:WWE-Chrome:WWE & 0.3125 & -1.8093 & 2.4343 & 1 \tabularnewline
MSIE:WWE-Chrome:WWE & 0.75 & -1.3593 & 2.8593 & 0.98841 \tabularnewline
Safari:WWE-Chrome:WWE & 3.2438e-15 & -2.9111 & 2.9111 & 1 \tabularnewline
MSIE:WWE-Firefox:WWE & 0.4375 & -0.25292 & 1.1279 & 0.60727 \tabularnewline
Safari:WWE-Firefox:WWE & -0.3125 & -2.4343 & 1.8093 & 1 \tabularnewline
Safari:WWE-MSIE:WWE & -0.75 & -2.8593 & 1.3593 & 0.98841 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148143&T=3

[TABLE]
[ROW][C]Tukey Honest Significant Difference Comparisons[/C][/ROW]
[ROW][C] [/C][C]diff[/C][C]lwr[/C][C]upr[/C][C]p adj[/C][/ROW]
[ROW][C]Firefox-Chrome[/C][C]0.25714[/C][C]-0.91066[/C][C]1.4249[/C][C]0.93905[/C][/ROW]
[ROW][C]MSIE-Chrome[/C][C]0.55932[/C][C]-0.59557[/C][C]1.7142[/C][C]0.58626[/C][/ROW]
[ROW][C]Safari-Chrome[/C][C]0.33333[/C][C]-0.92234[/C][C]1.589[/C][C]0.89902[/C][/ROW]
[ROW][C]MSIE-Firefox[/C][C]0.30218[/C][C]-0.040525[/C][C]0.64488[/C][C]0.10388[/C][/ROW]
[ROW][C]Safari-Firefox[/C][C]0.07619[/C][C]-0.52414[/C][C]0.67652[/C][C]0.98731[/C][/ROW]
[ROW][C]Safari-MSIE[/C][C]-0.22599[/C][C]-0.8008[/C][C]0.34882[/C][C]0.73331[/C][/ROW]
[ROW][C]CSWE-C[/C][C]0.35738[/C][C]-0.00030729[/C][C]0.71507[/C][C]0.050248[/C][/ROW]
[ROW][C]WWE-C[/C][C]0.35075[/C][C]0.0081254[/C][C]0.69337[/C][C]0.043567[/C][/ROW]
[ROW][C]WWE-CSWE[/C][C]-0.0066363[/C][C]-0.35752[/C][C]0.34425[/C][C]0.99888[/C][/ROW]
[ROW][C]Firefox:C-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]MSIE:C-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Safari:C-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Chrome:CSWE-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Firefox:CSWE-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]MSIE:CSWE-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Safari:CSWE-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Chrome:WWE-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Firefox:WWE-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]MSIE:WWE-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Safari:WWE-Chrome:C[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]MSIE:C-Firefox:C[/C][C]0.34783[/C][C]-0.49708[/C][C]1.1927[/C][C]0.96462[/C][/ROW]
[ROW][C]Safari:C-Firefox:C[/C][C]-5.447e-16[/C][C]-1.2605[/C][C]1.2605[/C][C]1[/C][/ROW]
[ROW][C]Chrome:CSWE-Firefox:C[/C][C]-4.4219e-16[/C][C]-2.1833[/C][C]2.1833[/C][C]1[/C][/ROW]
[ROW][C]Firefox:CSWE-Firefox:C[/C][C]0.36364[/C][C]-0.59283[/C][C]1.3201[/C][C]0.9804[/C][/ROW]
[ROW][C]MSIE:CSWE-Firefox:C[/C][C]0.625[/C][C]-0.26633[/C][C]1.5163[/C][C]0.44959[/C][/ROW]
[ROW][C]Safari:CSWE-Firefox:C[/C][C]0.75[/C][C]-0.51052[/C][C]2.0105[/C][C]0.69596[/C][/ROW]
[ROW][C]Chrome:WWE-Firefox:C[/C][C]-1.457e-15[/C][C]-2.1833[/C][C]2.1833[/C][C]1[/C][/ROW]
[ROW][C]Firefox:WWE-Firefox:C[/C][C]0.3125[/C][C]-0.57883[/C][C]1.2038[/C][C]0.98965[/C][/ROW]
[ROW][C]MSIE:WWE-Firefox:C[/C][C]0.75[/C][C]-0.1111[/C][C]1.6111[/C][C]0.15116[/C][/ROW]
[ROW][C]Safari:WWE-Firefox:C[/C][C]1.7868e-15[/C][C]-2.1833[/C][C]2.1833[/C][C]1[/C][/ROW]
[ROW][C]Safari:C-MSIE:C[/C][C]-0.34783[/C][C]-1.463[/C][C]0.7673[/C][C]0.99611[/C][/ROW]
[ROW][C]Chrome:CSWE-MSIE:C[/C][C]-0.34783[/C][C]-2.4505[/C][C]1.7549[/C][C]0.99999[/C][/ROW]
[ROW][C]Firefox:CSWE-MSIE:C[/C][C]0.01581[/C][C]-0.73879[/C][C]0.77041[/C][C]1[/C][/ROW]
[ROW][C]MSIE:CSWE-MSIE:C[/C][C]0.27717[/C][C]-0.39293[/C][C]0.94728[/C][C]0.9634[/C][/ROW]
[ROW][C]Safari:CSWE-MSIE:C[/C][C]0.40217[/C][C]-0.71295[/C][C]1.5173[/C][C]0.98702[/C][/ROW]
[ROW][C]Chrome:WWE-MSIE:C[/C][C]-0.34783[/C][C]-2.4505[/C][C]1.7549[/C][C]0.99999[/C][/ROW]
[ROW][C]Firefox:WWE-MSIE:C[/C][C]-0.035326[/C][C]-0.70543[/C][C]0.63478[/C][C]1[/C][/ROW]
[ROW][C]MSIE:WWE-MSIE:C[/C][C]0.40217[/C][C]-0.22717[/C][C]1.0315[/C][C]0.59468[/C][/ROW]
[ROW][C]Safari:WWE-MSIE:C[/C][C]-0.34783[/C][C]-2.4505[/C][C]1.7549[/C][C]0.99999[/C][/ROW]
[ROW][C]Chrome:CSWE-Safari:C[/C][C]1.0251e-16[/C][C]-2.3014[/C][C]2.3014[/C][C]1[/C][/ROW]
[ROW][C]Firefox:CSWE-Safari:C[/C][C]0.36364[/C][C]-0.83823[/C][C]1.5655[/C][C]0.99702[/C][/ROW]
[ROW][C]MSIE:CSWE-Safari:C[/C][C]0.625[/C][C]-0.5257[/C][C]1.7757[/C][C]0.8026[/C][/ROW]
[ROW][C]Safari:CSWE-Safari:C[/C][C]0.75[/C][C]-0.70553[/C][C]2.2055[/C][C]0.85104[/C][/ROW]
[ROW][C]Chrome:WWE-Safari:C[/C][C]-9.123e-16[/C][C]-2.3014[/C][C]2.3014[/C][C]1[/C][/ROW]
[ROW][C]Firefox:WWE-Safari:C[/C][C]0.3125[/C][C]-0.8382[/C][C]1.4632[/C][C]0.99887[/C][/ROW]
[ROW][C]MSIE:WWE-Safari:C[/C][C]0.75[/C][C]-0.37745[/C][C]1.8774[/C][C]0.53295[/C][/ROW]
[ROW][C]Safari:WWE-Safari:C[/C][C]2.3315e-15[/C][C]-2.3014[/C][C]2.3014[/C][C]1[/C][/ROW]
[ROW][C]Firefox:CSWE-Chrome:CSWE[/C][C]0.36364[/C][C]-1.7863[/C][C]2.5136[/C][C]0.99999[/C][/ROW]
[ROW][C]MSIE:CSWE-Chrome:CSWE[/C][C]0.625[/C][C]-1.4968[/C][C]2.7468[/C][C]0.99765[/C][/ROW]
[ROW][C]Safari:CSWE-Chrome:CSWE[/C][C]0.75[/C][C]-1.5514[/C][C]3.0514[/C][C]0.99435[/C][/ROW]
[ROW][C]Chrome:WWE-Chrome:CSWE[/C][C]-1.0148e-15[/C][C]-2.9111[/C][C]2.9111[/C][C]1[/C][/ROW]
[ROW][C]Firefox:WWE-Chrome:CSWE[/C][C]0.3125[/C][C]-1.8093[/C][C]2.4343[/C][C]1[/C][/ROW]
[ROW][C]MSIE:WWE-Chrome:CSWE[/C][C]0.75[/C][C]-1.3593[/C][C]2.8593[/C][C]0.98841[/C][/ROW]
[ROW][C]Safari:WWE-Chrome:CSWE[/C][C]2.229e-15[/C][C]-2.9111[/C][C]2.9111[/C][C]1[/C][/ROW]
[ROW][C]MSIE:CSWE-Firefox:CSWE[/C][C]0.26136[/C][C]-0.54487[/C][C]1.0676[/C][C]0.9946[/C][/ROW]
[ROW][C]Safari:CSWE-Firefox:CSWE[/C][C]0.38636[/C][C]-0.8155[/C][C]1.5882[/C][C]0.99497[/C][/ROW]
[ROW][C]Chrome:WWE-Firefox:CSWE[/C][C]-0.36364[/C][C]-2.5136[/C][C]1.7863[/C][C]0.99999[/C][/ROW]
[ROW][C]Firefox:WWE-Firefox:CSWE[/C][C]-0.051136[/C][C]-0.85737[/C][C]0.7551[/C][C]1[/C][/ROW]
[ROW][C]MSIE:WWE-Firefox:CSWE[/C][C]0.38636[/C][C]-0.38633[/C][C]1.1591[/C][C]0.87441[/C][/ROW]
[ROW][C]Safari:WWE-Firefox:CSWE[/C][C]-0.36364[/C][C]-2.5136[/C][C]1.7863[/C][C]0.99999[/C][/ROW]
[ROW][C]Safari:CSWE-MSIE:CSWE[/C][C]0.125[/C][C]-1.0257[/C][C]1.2757[/C][C]1[/C][/ROW]
[ROW][C]Chrome:WWE-MSIE:CSWE[/C][C]-0.625[/C][C]-2.7468[/C][C]1.4968[/C][C]0.99765[/C][/ROW]
[ROW][C]Firefox:WWE-MSIE:CSWE[/C][C]-0.3125[/C][C]-1.0403[/C][C]0.41526[/C][C]0.95238[/C][/ROW]
[ROW][C]MSIE:WWE-MSIE:CSWE[/C][C]0.125[/C][C]-0.56542[/C][C]0.81542[/C][C]0.99998[/C][/ROW]
[ROW][C]Safari:WWE-MSIE:CSWE[/C][C]-0.625[/C][C]-2.7468[/C][C]1.4968[/C][C]0.99765[/C][/ROW]
[ROW][C]Chrome:WWE-Safari:CSWE[/C][C]-0.75[/C][C]-3.0514[/C][C]1.5514[/C][C]0.99435[/C][/ROW]
[ROW][C]Firefox:WWE-Safari:CSWE[/C][C]-0.4375[/C][C]-1.5882[/C][C]0.7132[/C][C]0.9804[/C][/ROW]
[ROW][C]MSIE:WWE-Safari:CSWE[/C][C]-4.4409e-16[/C][C]-1.1274[/C][C]1.1274[/C][C]1[/C][/ROW]
[ROW][C]Safari:WWE-Safari:CSWE[/C][C]-0.75[/C][C]-3.0514[/C][C]1.5514[/C][C]0.99435[/C][/ROW]
[ROW][C]Firefox:WWE-Chrome:WWE[/C][C]0.3125[/C][C]-1.8093[/C][C]2.4343[/C][C]1[/C][/ROW]
[ROW][C]MSIE:WWE-Chrome:WWE[/C][C]0.75[/C][C]-1.3593[/C][C]2.8593[/C][C]0.98841[/C][/ROW]
[ROW][C]Safari:WWE-Chrome:WWE[/C][C]3.2438e-15[/C][C]-2.9111[/C][C]2.9111[/C][C]1[/C][/ROW]
[ROW][C]MSIE:WWE-Firefox:WWE[/C][C]0.4375[/C][C]-0.25292[/C][C]1.1279[/C][C]0.60727[/C][/ROW]
[ROW][C]Safari:WWE-Firefox:WWE[/C][C]-0.3125[/C][C]-2.4343[/C][C]1.8093[/C][C]1[/C][/ROW]
[ROW][C]Safari:WWE-MSIE:WWE[/C][C]-0.75[/C][C]-2.8593[/C][C]1.3593[/C][C]0.98841[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148143&T=3

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

As an alternative you can also use a QR Code:  

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

Tukey Honest Significant Difference Comparisons
difflwruprp adj
Firefox-Chrome0.25714-0.910661.42490.93905
MSIE-Chrome0.55932-0.595571.71420.58626
Safari-Chrome0.33333-0.922341.5890.89902
MSIE-Firefox0.30218-0.0405250.644880.10388
Safari-Firefox0.07619-0.524140.676520.98731
Safari-MSIE-0.22599-0.80080.348820.73331
CSWE-C0.35738-0.000307290.715070.050248
WWE-C0.350750.00812540.693370.043567
WWE-CSWE-0.0066363-0.357520.344250.99888
Firefox:C-Chrome:CNANANANA
MSIE:C-Chrome:CNANANANA
Safari:C-Chrome:CNANANANA
Chrome:CSWE-Chrome:CNANANANA
Firefox:CSWE-Chrome:CNANANANA
MSIE:CSWE-Chrome:CNANANANA
Safari:CSWE-Chrome:CNANANANA
Chrome:WWE-Chrome:CNANANANA
Firefox:WWE-Chrome:CNANANANA
MSIE:WWE-Chrome:CNANANANA
Safari:WWE-Chrome:CNANANANA
MSIE:C-Firefox:C0.34783-0.497081.19270.96462
Safari:C-Firefox:C-5.447e-16-1.26051.26051
Chrome:CSWE-Firefox:C-4.4219e-16-2.18332.18331
Firefox:CSWE-Firefox:C0.36364-0.592831.32010.9804
MSIE:CSWE-Firefox:C0.625-0.266331.51630.44959
Safari:CSWE-Firefox:C0.75-0.510522.01050.69596
Chrome:WWE-Firefox:C-1.457e-15-2.18332.18331
Firefox:WWE-Firefox:C0.3125-0.578831.20380.98965
MSIE:WWE-Firefox:C0.75-0.11111.61110.15116
Safari:WWE-Firefox:C1.7868e-15-2.18332.18331
Safari:C-MSIE:C-0.34783-1.4630.76730.99611
Chrome:CSWE-MSIE:C-0.34783-2.45051.75490.99999
Firefox:CSWE-MSIE:C0.01581-0.738790.770411
MSIE:CSWE-MSIE:C0.27717-0.392930.947280.9634
Safari:CSWE-MSIE:C0.40217-0.712951.51730.98702
Chrome:WWE-MSIE:C-0.34783-2.45051.75490.99999
Firefox:WWE-MSIE:C-0.035326-0.705430.634781
MSIE:WWE-MSIE:C0.40217-0.227171.03150.59468
Safari:WWE-MSIE:C-0.34783-2.45051.75490.99999
Chrome:CSWE-Safari:C1.0251e-16-2.30142.30141
Firefox:CSWE-Safari:C0.36364-0.838231.56550.99702
MSIE:CSWE-Safari:C0.625-0.52571.77570.8026
Safari:CSWE-Safari:C0.75-0.705532.20550.85104
Chrome:WWE-Safari:C-9.123e-16-2.30142.30141
Firefox:WWE-Safari:C0.3125-0.83821.46320.99887
MSIE:WWE-Safari:C0.75-0.377451.87740.53295
Safari:WWE-Safari:C2.3315e-15-2.30142.30141
Firefox:CSWE-Chrome:CSWE0.36364-1.78632.51360.99999
MSIE:CSWE-Chrome:CSWE0.625-1.49682.74680.99765
Safari:CSWE-Chrome:CSWE0.75-1.55143.05140.99435
Chrome:WWE-Chrome:CSWE-1.0148e-15-2.91112.91111
Firefox:WWE-Chrome:CSWE0.3125-1.80932.43431
MSIE:WWE-Chrome:CSWE0.75-1.35932.85930.98841
Safari:WWE-Chrome:CSWE2.229e-15-2.91112.91111
MSIE:CSWE-Firefox:CSWE0.26136-0.544871.06760.9946
Safari:CSWE-Firefox:CSWE0.38636-0.81551.58820.99497
Chrome:WWE-Firefox:CSWE-0.36364-2.51361.78630.99999
Firefox:WWE-Firefox:CSWE-0.051136-0.857370.75511
MSIE:WWE-Firefox:CSWE0.38636-0.386331.15910.87441
Safari:WWE-Firefox:CSWE-0.36364-2.51361.78630.99999
Safari:CSWE-MSIE:CSWE0.125-1.02571.27571
Chrome:WWE-MSIE:CSWE-0.625-2.74681.49680.99765
Firefox:WWE-MSIE:CSWE-0.3125-1.04030.415260.95238
MSIE:WWE-MSIE:CSWE0.125-0.565420.815420.99998
Safari:WWE-MSIE:CSWE-0.625-2.74681.49680.99765
Chrome:WWE-Safari:CSWE-0.75-3.05141.55140.99435
Firefox:WWE-Safari:CSWE-0.4375-1.58820.71320.9804
MSIE:WWE-Safari:CSWE-4.4409e-16-1.12741.12741
Safari:WWE-Safari:CSWE-0.75-3.05141.55140.99435
Firefox:WWE-Chrome:WWE0.3125-1.80932.43431
MSIE:WWE-Chrome:WWE0.75-1.35932.85930.98841
Safari:WWE-Chrome:WWE3.2438e-15-2.91112.91111
MSIE:WWE-Firefox:WWE0.4375-0.252921.12790.60727
Safari:WWE-Firefox:WWE-0.3125-2.43431.80931
Safari:WWE-MSIE:WWE-0.75-2.85931.35930.98841







Levenes Test for Homogeneity of Variance
DfF valuePr(>F)
Group101.10890.36386
94

\begin{tabular}{lllllllll}
\hline
Levenes Test for Homogeneity of Variance \tabularnewline
  & Df & F value & Pr(>F) \tabularnewline
Group & 10 & 1.1089 & 0.36386 \tabularnewline
  & 94 &   &   \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148143&T=4

[TABLE]
[ROW][C]Levenes Test for Homogeneity of Variance[/C][/ROW]
[ROW][C] [/C][C]Df[/C][C]F value[/C][C]Pr(>F)[/C][/ROW]
[ROW][C]Group[/C][C]10[/C][C]1.1089[/C][C]0.36386[/C][/ROW]
[ROW][C] [/C][C]94[/C][C] [/C][C] [/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148143&T=4

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

As an alternative you can also use a QR Code:  

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

Levenes Test for Homogeneity of Variance
DfF valuePr(>F)
Group101.10890.36386
94



Parameters (Session):
Parameters (R input):
par1 = 3 ; par2 = 1 ; par3 = 2 ; par4 = TRUE ;
R code (references can be found in the software module):
cat1 <- as.numeric(par1) #
cat2<- as.numeric(par2) #
cat3 <- as.numeric(par3)
intercept<-as.logical(par4)
x <- t(x)
x1<-as.numeric(x[,cat1])
f1<-as.character(x[,cat2])
f2 <- as.character(x[,cat3])
xdf<-data.frame(x1,f1, f2)
(V1<-dimnames(y)[[1]][cat1])
(V2<-dimnames(y)[[1]][cat2])
(V3 <-dimnames(y)[[1]][cat3])
mynames<- c(V1, V2, V3)
xdf2<-xdf
names(xdf2)<-mynames
names(xdf)<-c('R', 'A', 'B')
mynames <- c(V1, V2, V3)
if(intercept == FALSE)eval (substitute(lmout<-lm(xdf$R ~ xdf$A * xdf$B- 1, data = xdf), list(xdf=quote(xdf2),R=mynames[1],A=mynames[2],B=mynames[3]) ))else eval(substitute(lmout<-lm(xdf$R ~ xdf$A * xdf$B, data = xdf), list(xdf=quote(xdf2),R=mynames[1],A=mynames[2],B=mynames[3]) ))
oldnames<-names(lmout$coeff)
newnames<-gsub('xdf2$', '', oldnames)
(names(lmout$coeff)<-newnames)
(names(lmout$coefficients)<-newnames)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'ANOVA Model', length(lmout$coefficients)+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
callstr<-gsub('xdf2$', '',as.character(lmout$call$formula))
callstr<-paste(callstr[2], callstr[1], callstr[3])
a<-table.element(a,callstr ,length(lmout$coefficients)+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'names',,TRUE)
for(i in 1:length(lmout$coefficients)){
a<-table.element(a, names(lmout$coefficients[i]),,FALSE)
}
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'means',,TRUE)
for(i in 1:length(lmout$coefficients)){
a<-table.element(a, signif(lmout$coefficients[i], digits=5),,FALSE)
}
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
(aov.xdf<-aov(lmout) )
(anova.xdf<-anova(lmout) )
rownames(anova.xdf)<-gsub('xdf2$','',rownames(anova.xdf))
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'ANOVA Statistics', 5+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, ' ',,TRUE)
a<-table.element(a, 'Df',,FALSE)
a<-table.element(a, 'Sum Sq',,FALSE)
a<-table.element(a, 'Mean Sq',,FALSE)
a<-table.element(a, 'F value',,FALSE)
a<-table.element(a, 'Pr(>F)',,FALSE)
a<-table.row.end(a)
for(i in 1 : length(rownames(anova.xdf))-1){
a<-table.row.start(a)
a<-table.element(a,rownames(anova.xdf)[i] ,,TRUE)
a<-table.element(a, anova.xdf$Df[1],,FALSE)
a<-table.element(a, signif(anova.xdf$'Sum Sq'[i], digits=5),,FALSE)
a<-table.element(a, signif(anova.xdf$'Mean Sq'[i], digits=5),,FALSE)
a<-table.element(a, signif(anova.xdf$'F value'[i], digits=5),,FALSE)
a<-table.element(a, signif(anova.xdf$'Pr(>F)'[i], digits=5),,FALSE)
a<-table.row.end(a)
}
a<-table.row.start(a)
a<-table.element(a, 'Residuals',,TRUE)
a<-table.element(a, anova.xdf$'Df'[i+1],,FALSE)
a<-table.element(a, signif(anova.xdf$'Sum Sq'[i+1], digits=5),,FALSE)
a<-table.element(a, signif(anova.xdf$'Mean Sq'[i+1], digits=5),,FALSE)
a<-table.element(a, ' ',,FALSE)
a<-table.element(a, ' ',,FALSE)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
bitmap(file='anovaplot.png')
boxplot(R ~ A + B, data=xdf, xlab=V2, ylab=V1, main='Boxplots of ANOVA Groups')
dev.off()
bitmap(file='designplot.png')
xdf2 <- xdf # to preserve xdf make copy for function
names(xdf2) <- c(V1, V2, V3)
plot.design(xdf2, main='Design Plot of Group Means')
dev.off()
bitmap(file='interactionplot.png')
interaction.plot(xdf$A, xdf$B, xdf$R, xlab=V2, ylab=V1, trace.label=V3, main='Possible Interactions Between Anova Groups')
dev.off()
if(intercept==TRUE){
thsd<-TukeyHSD(aov.xdf)
names(thsd) <- c(V2, V3, paste(V2, ':', V3, sep=''))
bitmap(file='TukeyHSDPlot.png')
layout(matrix(c(0,0,1,2,1,2,0,0,3,3,3,3), 2,6))
plot(thsd, las=1)
dev.off()
}
if(intercept==TRUE){
ntables<-length(names(thsd))
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Tukey Honest Significant Difference Comparisons', 5,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, ' ', 1, TRUE)
for(i in 1:4){
a<-table.element(a,colnames(thsd[[1]])[i], 1, TRUE)
}
a<-table.row.end(a)
for(nt in 1:ntables){
for(i in 1:length(rownames(thsd[[nt]]))){
a<-table.row.start(a)
a<-table.element(a,rownames(thsd[[nt]])[i], 1, TRUE)
for(j in 1:4){
a<-table.element(a,signif(thsd[[nt]][i,j], digits=5), 1, FALSE)
}
a<-table.row.end(a)
}
} # end nt
a<-table.end(a)
table.save(a,file='hsdtable.tab')
}#end if hsd tables
if(intercept==FALSE){
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'TukeyHSD Message', 1,TRUE)
a<-table.row.end(a)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Must Include Intercept to use Tukey Test ', 1, FALSE)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable2.tab')
}
library(car)
lt.lmxdf<-levene.test(lmout)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Levenes Test for Homogeneity of Variance', 4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ', 1, TRUE)
for (i in 1:3){
a<-table.element(a,names(lt.lmxdf)[i], 1, FALSE)
}
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Group', 1, TRUE)
for (i in 1:3){
a<-table.element(a,signif(lt.lmxdf[[i]][1], digits=5), 1, FALSE)
}
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ', 1, TRUE)
a<-table.element(a,lt.lmxdf[[1]][2], 1, FALSE)
a<-table.element(a,' ', 1, FALSE)
a<-table.element(a,' ', 1, FALSE)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable3.tab')