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_One Factor ANOVA.wasp
Title produced by softwareOne-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)
Date of computationMon, 22 Oct 2012 17:16:02 -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/Oct/22/t1350940609x7nquktgmscelfs.htm/, Retrieved Sat, 04 May 2024 01:49:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=182391, Retrieved Sat, 04 May 2024 01:49:57 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [Arabica Price in ...] [2008-01-19 12:03:37] [74be16979710d4c4e7c6647856088456]
- RM D    [One-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)] [Assignment 2 vraag 2] [2012-10-22 21:16:02] [a641906195a0eb35087b0121beaccdc9] [Current]
- R PD      [One-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)] [ù] [2013-10-27 19:11:31] [42f9d18eb1413c440d5f3a91fdb5fb5e]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1	255
2	280,2
3	299,9
4	339,2
5	374,2
6	393,5
7	389,2
8	381,7
9	375,2
10	369
11	357,4
12	352,1
1	346,5
2	342,9
3	340,3
4	328,3
5	322,9
6	314,3
7	308,9
8	294
9	285,6
10	281,2
11	280,3
12	278,8
1	274,5
2	270,4
3	263,4
4	259,9
5	258
6	262,7
7	284,7
8	311,3
9	322,1
10	327
11	331,3
12	333,3
1	321,4
2	327
3	320
4	314,7
5	316,7
6	314,4
7	321,3
8	318,2
9	307,2
10	301,3
11	287,5
12	277,7
1	274,4
2	258,8
3	253,3
4	251
5	248,4
6	249,5
7	246,1
8	244,5
9	243,6
10	244
11	240,8
12	249,8
1	248
2	259,4
3	260,5
4	260,8
5	261,3
6	259,5
7	256,6
8	257,9
9	256,5
10	254,2
11	253,3
12	253,8
1	255,5
2	257,1
3	257,3
4	253,2
5	252,8
6	252
7	250,7
8	252,2
9	250
10	251
11	253,4
12	251,2
1	255,6
2	261,1
3	258,9
4	259,9
5	261,2
6	264,7
7	267,1
8	266,4
9	267,7
10	268,6
11	267,5
12	268,5
1	268,5
2	270,5
3	270,9
4	270,1
5	269,3
6	269,8
7	270,1
8	264,9
9	263,7
10	264,8
11	263,7
12	255,9
1	276,2
2	360,1
3	380,5
4	373,7
5	369,8
6	366,6
7	359,3
8	345,8
9	326,2
10	324,5
11	328,1
12	327,5
1	324,4
2	316,5
3	310,9
4	301,5
5	291,7
6	290,4
7	287,4
8	277,7
9	281,6
10	288
11	276
12	272,9
1	283
2	283,3
3	276,8
4	284,5
5	282,7
6	281,2
7	287,4
8	283,1
9	284
10	285,5
11	289,2
12	292,5
1	296,4
2	305,2
3	303,9
4	311,5
5	316,3
6	316,7
7	322,5
8	317,1
9	309,8
10	303,8
11	290,3
12	293,7
1	291,7
2	296,5
3	289,1
4	288,5
5	293,8
6	297,7
7	305,4
8	302,7
9	302,5
10	303
11	294,5
12	294,1
1	294,5
2	297,1
3	289,4
4	292,4
5	287,9
6	286,6
7	280,5
8	272,4
9	269,2
10	270,6
11	267,3
12	262,5
1	266,8
2	268,8
3	263,1
4	261,2
5	266
6	262,5
7	265,2
8	261,3
9	253,7
10	249,2
11	239,1
12	236,4
1	235,2
2	245,2
3	246,2
4	247,7
5	251,4
6	253,3
7	254,8
8	250
9	249,3
10	241,5
11	243,3
12	248
1	253
2	252,9
3	251,5
4	251,6
5	253,5
6	259,8
7	334,1
8	448
9	445,8
10	445
11	448,2
12	438,2
1	439,8
2	423,4
3	410,8
4	408,4
5	406,7
6	405,9
7	402,7
8	405,1
9	399,6
10	386,5
11	381,4
12	375,2
1	357,7
2	359
3	355
4	352,7
5	344,4
6	343,8
7	338
8	339
9	333,3
10	334,4
11	328,3
12	330,7
1	330
2	331,6
3	351,2
4	389,4
5	410,9
6	442,8
7	462,8
8	466,9
9	461,7
10	439,2
11	430,3
12	416,1
1	402,5
2	397,3
3	403,3
4	395,9
5	387,8
6	378,6
7	377,1
8	370,4
9	362
10	350,3
11	348,2
12	344,6
1	343,5
2	342,8
3	347,6
4	346,6
5	349,5
6	342,1
7	342
8	342,8
9	339,3
10	348,2
11	333,7
12	334,7
1	354
2	367,7
3	363,3
4	358,4
5	353,1
6	343,1
7	344,6
8	344,4
9	333,9
10	331,7
11	324,3
12	321,2
1	322,4
2	321,7
3	320,5
4	312,8
5	309,7
6	315,6
7	309,7
8	304,6
9	302,5
10	301,5
11	298,8
12	291,3
1	293,6
2	294,6
3	285,9
4	297,6
5	301,1
6	293,8
7	297,7
8	292,9
9	292,1
10	287,2
11	288,2
12	283,8
1	299,9
2	292,4
3	293,3
4	300,8
5	293,7
6	293,1
7	294,4
8	292,1
9	291,9
10	282,5
11	277,9
12	287,5
1	289,2
2	285,6
3	293,2
4	290,8
5	283,1
6	275
7	287,8
8	287,8
9	287,4
10	284
11	277,8
12	277,6
1	304,9
2	294
3	300,9
4	324
5	332,9
6	341,6
7	333,4
8	348,2
9	344,7
10	344,7
11	329,3
12	323,5
1	323,2
2	317,4
3	330,1
4	329,2
5	334,9
6	315,8
7	315,4
8	319,6
9	317,3
10	313,8
11	315,8
12	311,3

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=182391&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 time3 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net






ANOVA Model
USA ~ month
means302.716.4972.130.1033.3073.6575.8336.8136.83710.5212.7239.27

\begin{tabular}{lllllllll}
\hline
ANOVA Model \tabularnewline
USA  ~  month \tabularnewline
means & 302.71 & 6.497 & 2.13 & 0.103 & 3.307 & 3.657 & 5.833 & 6.813 & 6.837 & 10.52 & 12.723 & 9.27 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=182391&T=1

[TABLE]
[ROW][C]ANOVA Model[/C][/ROW]
[ROW][C]USA  ~  month[/C][/ROW]
[ROW][C]means[/C][C]302.71[/C][C]6.497[/C][C]2.13[/C][C]0.103[/C][C]3.307[/C][C]3.657[/C][C]5.833[/C][C]6.813[/C][C]6.837[/C][C]10.52[/C][C]12.723[/C][C]9.27[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=182391&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=182391&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:

ANOVA Model
USA ~ month
means302.716.4972.130.1033.3073.6575.8336.8136.83710.5212.7239.27






ANOVA Statistics
DfSum SqMean SqF valuePr(>F)
month115247.219477.020.1940.998
Residuals348857321.042463.566 

\begin{tabular}{lllllllll}
\hline
ANOVA Statistics \tabularnewline
  & Df & Sum Sq & Mean Sq & F value & Pr(>F) \tabularnewline
month & 11 & 5247.219 & 477.02 & 0.194 & 0.998 \tabularnewline
Residuals & 348 & 857321.04 & 2463.566 &   &   \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=182391&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]month[/C][C]11[/C][C]5247.219[/C][C]477.02[/C][C]0.194[/C][C]0.998[/C][/ROW]
[ROW][C]Residuals[/C][C]348[/C][C]857321.04[/C][C]2463.566[/C][C] [/C][C] [/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=182391&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=182391&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:

ANOVA Statistics
DfSum SqMean SqF valuePr(>F)
month115247.219477.020.1940.998
Residuals348857321.042463.566






Tukey Honest Significant Difference Comparisons
difflwruprp adj
10-16.497-35.67348.6661
11-12.13-40.0444.31
12-10.103-42.06642.2731
2-13.307-38.86345.4761
3-13.657-38.51345.8261
4-15.833-36.33648.0031
5-16.813-35.35648.9831
6-16.837-35.33349.0061
7-110.52-31.6552.691
8-112.723-29.44654.8930.998
9-19.27-32.951.441
11-10-4.367-46.53637.8031
12-10-6.393-48.56335.7761
2-10-3.19-45.3638.981
3-10-2.84-45.0139.331
4-10-0.663-42.83341.5061
5-100.317-41.85342.4861
6-100.34-41.8342.511
7-104.023-38.14646.1931
8-106.227-35.94348.3961
9-102.773-39.39644.9431
12-11-2.027-44.19640.1431
2-111.177-40.99343.3461
3-111.527-40.64343.6961
4-113.703-38.46645.8731
5-114.683-37.48646.8531
6-114.707-37.46346.8761
7-118.39-33.7850.561
8-1110.593-31.57652.7631
9-117.14-35.0349.311
2-123.203-38.96645.3731
3-123.553-38.61645.7231
4-125.73-36.4447.91
5-126.71-35.4648.881
6-126.733-35.43648.9031
7-1210.417-31.75352.5861
8-1212.62-29.5554.790.998
9-129.167-33.00351.3361
3-20.35-41.8242.521
4-22.527-39.64344.6961
5-23.507-38.66345.6761
6-23.53-38.6445.71
7-27.213-34.95649.3831
8-29.417-32.75351.5861
9-25.963-36.20648.1331
4-32.177-39.99344.3461
5-33.157-39.01345.3261
6-33.18-38.9945.351
7-36.863-35.30649.0331
8-39.067-33.10351.2361
9-35.613-36.55647.7831
5-40.98-41.1943.151
6-41.003-41.16643.1731
7-44.687-37.48346.8561
8-46.89-35.2849.061
9-43.437-38.73345.6061
6-50.023-42.14642.1931
7-53.707-38.46345.8761
8-55.91-36.2648.081
9-52.457-39.71344.6261
7-63.683-38.48645.8531
8-65.887-36.28348.0561
9-62.433-39.73644.6031
8-72.203-39.96644.3731
9-7-1.25-43.4240.921
9-8-3.453-45.62338.7161

\begin{tabular}{lllllllll}
\hline
Tukey Honest Significant Difference Comparisons \tabularnewline
  & diff & lwr & upr & p adj \tabularnewline
10-1 & 6.497 & -35.673 & 48.666 & 1 \tabularnewline
11-1 & 2.13 & -40.04 & 44.3 & 1 \tabularnewline
12-1 & 0.103 & -42.066 & 42.273 & 1 \tabularnewline
2-1 & 3.307 & -38.863 & 45.476 & 1 \tabularnewline
3-1 & 3.657 & -38.513 & 45.826 & 1 \tabularnewline
4-1 & 5.833 & -36.336 & 48.003 & 1 \tabularnewline
5-1 & 6.813 & -35.356 & 48.983 & 1 \tabularnewline
6-1 & 6.837 & -35.333 & 49.006 & 1 \tabularnewline
7-1 & 10.52 & -31.65 & 52.69 & 1 \tabularnewline
8-1 & 12.723 & -29.446 & 54.893 & 0.998 \tabularnewline
9-1 & 9.27 & -32.9 & 51.44 & 1 \tabularnewline
11-10 & -4.367 & -46.536 & 37.803 & 1 \tabularnewline
12-10 & -6.393 & -48.563 & 35.776 & 1 \tabularnewline
2-10 & -3.19 & -45.36 & 38.98 & 1 \tabularnewline
3-10 & -2.84 & -45.01 & 39.33 & 1 \tabularnewline
4-10 & -0.663 & -42.833 & 41.506 & 1 \tabularnewline
5-10 & 0.317 & -41.853 & 42.486 & 1 \tabularnewline
6-10 & 0.34 & -41.83 & 42.51 & 1 \tabularnewline
7-10 & 4.023 & -38.146 & 46.193 & 1 \tabularnewline
8-10 & 6.227 & -35.943 & 48.396 & 1 \tabularnewline
9-10 & 2.773 & -39.396 & 44.943 & 1 \tabularnewline
12-11 & -2.027 & -44.196 & 40.143 & 1 \tabularnewline
2-11 & 1.177 & -40.993 & 43.346 & 1 \tabularnewline
3-11 & 1.527 & -40.643 & 43.696 & 1 \tabularnewline
4-11 & 3.703 & -38.466 & 45.873 & 1 \tabularnewline
5-11 & 4.683 & -37.486 & 46.853 & 1 \tabularnewline
6-11 & 4.707 & -37.463 & 46.876 & 1 \tabularnewline
7-11 & 8.39 & -33.78 & 50.56 & 1 \tabularnewline
8-11 & 10.593 & -31.576 & 52.763 & 1 \tabularnewline
9-11 & 7.14 & -35.03 & 49.31 & 1 \tabularnewline
2-12 & 3.203 & -38.966 & 45.373 & 1 \tabularnewline
3-12 & 3.553 & -38.616 & 45.723 & 1 \tabularnewline
4-12 & 5.73 & -36.44 & 47.9 & 1 \tabularnewline
5-12 & 6.71 & -35.46 & 48.88 & 1 \tabularnewline
6-12 & 6.733 & -35.436 & 48.903 & 1 \tabularnewline
7-12 & 10.417 & -31.753 & 52.586 & 1 \tabularnewline
8-12 & 12.62 & -29.55 & 54.79 & 0.998 \tabularnewline
9-12 & 9.167 & -33.003 & 51.336 & 1 \tabularnewline
3-2 & 0.35 & -41.82 & 42.52 & 1 \tabularnewline
4-2 & 2.527 & -39.643 & 44.696 & 1 \tabularnewline
5-2 & 3.507 & -38.663 & 45.676 & 1 \tabularnewline
6-2 & 3.53 & -38.64 & 45.7 & 1 \tabularnewline
7-2 & 7.213 & -34.956 & 49.383 & 1 \tabularnewline
8-2 & 9.417 & -32.753 & 51.586 & 1 \tabularnewline
9-2 & 5.963 & -36.206 & 48.133 & 1 \tabularnewline
4-3 & 2.177 & -39.993 & 44.346 & 1 \tabularnewline
5-3 & 3.157 & -39.013 & 45.326 & 1 \tabularnewline
6-3 & 3.18 & -38.99 & 45.35 & 1 \tabularnewline
7-3 & 6.863 & -35.306 & 49.033 & 1 \tabularnewline
8-3 & 9.067 & -33.103 & 51.236 & 1 \tabularnewline
9-3 & 5.613 & -36.556 & 47.783 & 1 \tabularnewline
5-4 & 0.98 & -41.19 & 43.15 & 1 \tabularnewline
6-4 & 1.003 & -41.166 & 43.173 & 1 \tabularnewline
7-4 & 4.687 & -37.483 & 46.856 & 1 \tabularnewline
8-4 & 6.89 & -35.28 & 49.06 & 1 \tabularnewline
9-4 & 3.437 & -38.733 & 45.606 & 1 \tabularnewline
6-5 & 0.023 & -42.146 & 42.193 & 1 \tabularnewline
7-5 & 3.707 & -38.463 & 45.876 & 1 \tabularnewline
8-5 & 5.91 & -36.26 & 48.08 & 1 \tabularnewline
9-5 & 2.457 & -39.713 & 44.626 & 1 \tabularnewline
7-6 & 3.683 & -38.486 & 45.853 & 1 \tabularnewline
8-6 & 5.887 & -36.283 & 48.056 & 1 \tabularnewline
9-6 & 2.433 & -39.736 & 44.603 & 1 \tabularnewline
8-7 & 2.203 & -39.966 & 44.373 & 1 \tabularnewline
9-7 & -1.25 & -43.42 & 40.92 & 1 \tabularnewline
9-8 & -3.453 & -45.623 & 38.716 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=182391&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]10-1[/C][C]6.497[/C][C]-35.673[/C][C]48.666[/C][C]1[/C][/ROW]
[ROW][C]11-1[/C][C]2.13[/C][C]-40.04[/C][C]44.3[/C][C]1[/C][/ROW]
[ROW][C]12-1[/C][C]0.103[/C][C]-42.066[/C][C]42.273[/C][C]1[/C][/ROW]
[ROW][C]2-1[/C][C]3.307[/C][C]-38.863[/C][C]45.476[/C][C]1[/C][/ROW]
[ROW][C]3-1[/C][C]3.657[/C][C]-38.513[/C][C]45.826[/C][C]1[/C][/ROW]
[ROW][C]4-1[/C][C]5.833[/C][C]-36.336[/C][C]48.003[/C][C]1[/C][/ROW]
[ROW][C]5-1[/C][C]6.813[/C][C]-35.356[/C][C]48.983[/C][C]1[/C][/ROW]
[ROW][C]6-1[/C][C]6.837[/C][C]-35.333[/C][C]49.006[/C][C]1[/C][/ROW]
[ROW][C]7-1[/C][C]10.52[/C][C]-31.65[/C][C]52.69[/C][C]1[/C][/ROW]
[ROW][C]8-1[/C][C]12.723[/C][C]-29.446[/C][C]54.893[/C][C]0.998[/C][/ROW]
[ROW][C]9-1[/C][C]9.27[/C][C]-32.9[/C][C]51.44[/C][C]1[/C][/ROW]
[ROW][C]11-10[/C][C]-4.367[/C][C]-46.536[/C][C]37.803[/C][C]1[/C][/ROW]
[ROW][C]12-10[/C][C]-6.393[/C][C]-48.563[/C][C]35.776[/C][C]1[/C][/ROW]
[ROW][C]2-10[/C][C]-3.19[/C][C]-45.36[/C][C]38.98[/C][C]1[/C][/ROW]
[ROW][C]3-10[/C][C]-2.84[/C][C]-45.01[/C][C]39.33[/C][C]1[/C][/ROW]
[ROW][C]4-10[/C][C]-0.663[/C][C]-42.833[/C][C]41.506[/C][C]1[/C][/ROW]
[ROW][C]5-10[/C][C]0.317[/C][C]-41.853[/C][C]42.486[/C][C]1[/C][/ROW]
[ROW][C]6-10[/C][C]0.34[/C][C]-41.83[/C][C]42.51[/C][C]1[/C][/ROW]
[ROW][C]7-10[/C][C]4.023[/C][C]-38.146[/C][C]46.193[/C][C]1[/C][/ROW]
[ROW][C]8-10[/C][C]6.227[/C][C]-35.943[/C][C]48.396[/C][C]1[/C][/ROW]
[ROW][C]9-10[/C][C]2.773[/C][C]-39.396[/C][C]44.943[/C][C]1[/C][/ROW]
[ROW][C]12-11[/C][C]-2.027[/C][C]-44.196[/C][C]40.143[/C][C]1[/C][/ROW]
[ROW][C]2-11[/C][C]1.177[/C][C]-40.993[/C][C]43.346[/C][C]1[/C][/ROW]
[ROW][C]3-11[/C][C]1.527[/C][C]-40.643[/C][C]43.696[/C][C]1[/C][/ROW]
[ROW][C]4-11[/C][C]3.703[/C][C]-38.466[/C][C]45.873[/C][C]1[/C][/ROW]
[ROW][C]5-11[/C][C]4.683[/C][C]-37.486[/C][C]46.853[/C][C]1[/C][/ROW]
[ROW][C]6-11[/C][C]4.707[/C][C]-37.463[/C][C]46.876[/C][C]1[/C][/ROW]
[ROW][C]7-11[/C][C]8.39[/C][C]-33.78[/C][C]50.56[/C][C]1[/C][/ROW]
[ROW][C]8-11[/C][C]10.593[/C][C]-31.576[/C][C]52.763[/C][C]1[/C][/ROW]
[ROW][C]9-11[/C][C]7.14[/C][C]-35.03[/C][C]49.31[/C][C]1[/C][/ROW]
[ROW][C]2-12[/C][C]3.203[/C][C]-38.966[/C][C]45.373[/C][C]1[/C][/ROW]
[ROW][C]3-12[/C][C]3.553[/C][C]-38.616[/C][C]45.723[/C][C]1[/C][/ROW]
[ROW][C]4-12[/C][C]5.73[/C][C]-36.44[/C][C]47.9[/C][C]1[/C][/ROW]
[ROW][C]5-12[/C][C]6.71[/C][C]-35.46[/C][C]48.88[/C][C]1[/C][/ROW]
[ROW][C]6-12[/C][C]6.733[/C][C]-35.436[/C][C]48.903[/C][C]1[/C][/ROW]
[ROW][C]7-12[/C][C]10.417[/C][C]-31.753[/C][C]52.586[/C][C]1[/C][/ROW]
[ROW][C]8-12[/C][C]12.62[/C][C]-29.55[/C][C]54.79[/C][C]0.998[/C][/ROW]
[ROW][C]9-12[/C][C]9.167[/C][C]-33.003[/C][C]51.336[/C][C]1[/C][/ROW]
[ROW][C]3-2[/C][C]0.35[/C][C]-41.82[/C][C]42.52[/C][C]1[/C][/ROW]
[ROW][C]4-2[/C][C]2.527[/C][C]-39.643[/C][C]44.696[/C][C]1[/C][/ROW]
[ROW][C]5-2[/C][C]3.507[/C][C]-38.663[/C][C]45.676[/C][C]1[/C][/ROW]
[ROW][C]6-2[/C][C]3.53[/C][C]-38.64[/C][C]45.7[/C][C]1[/C][/ROW]
[ROW][C]7-2[/C][C]7.213[/C][C]-34.956[/C][C]49.383[/C][C]1[/C][/ROW]
[ROW][C]8-2[/C][C]9.417[/C][C]-32.753[/C][C]51.586[/C][C]1[/C][/ROW]
[ROW][C]9-2[/C][C]5.963[/C][C]-36.206[/C][C]48.133[/C][C]1[/C][/ROW]
[ROW][C]4-3[/C][C]2.177[/C][C]-39.993[/C][C]44.346[/C][C]1[/C][/ROW]
[ROW][C]5-3[/C][C]3.157[/C][C]-39.013[/C][C]45.326[/C][C]1[/C][/ROW]
[ROW][C]6-3[/C][C]3.18[/C][C]-38.99[/C][C]45.35[/C][C]1[/C][/ROW]
[ROW][C]7-3[/C][C]6.863[/C][C]-35.306[/C][C]49.033[/C][C]1[/C][/ROW]
[ROW][C]8-3[/C][C]9.067[/C][C]-33.103[/C][C]51.236[/C][C]1[/C][/ROW]
[ROW][C]9-3[/C][C]5.613[/C][C]-36.556[/C][C]47.783[/C][C]1[/C][/ROW]
[ROW][C]5-4[/C][C]0.98[/C][C]-41.19[/C][C]43.15[/C][C]1[/C][/ROW]
[ROW][C]6-4[/C][C]1.003[/C][C]-41.166[/C][C]43.173[/C][C]1[/C][/ROW]
[ROW][C]7-4[/C][C]4.687[/C][C]-37.483[/C][C]46.856[/C][C]1[/C][/ROW]
[ROW][C]8-4[/C][C]6.89[/C][C]-35.28[/C][C]49.06[/C][C]1[/C][/ROW]
[ROW][C]9-4[/C][C]3.437[/C][C]-38.733[/C][C]45.606[/C][C]1[/C][/ROW]
[ROW][C]6-5[/C][C]0.023[/C][C]-42.146[/C][C]42.193[/C][C]1[/C][/ROW]
[ROW][C]7-5[/C][C]3.707[/C][C]-38.463[/C][C]45.876[/C][C]1[/C][/ROW]
[ROW][C]8-5[/C][C]5.91[/C][C]-36.26[/C][C]48.08[/C][C]1[/C][/ROW]
[ROW][C]9-5[/C][C]2.457[/C][C]-39.713[/C][C]44.626[/C][C]1[/C][/ROW]
[ROW][C]7-6[/C][C]3.683[/C][C]-38.486[/C][C]45.853[/C][C]1[/C][/ROW]
[ROW][C]8-6[/C][C]5.887[/C][C]-36.283[/C][C]48.056[/C][C]1[/C][/ROW]
[ROW][C]9-6[/C][C]2.433[/C][C]-39.736[/C][C]44.603[/C][C]1[/C][/ROW]
[ROW][C]8-7[/C][C]2.203[/C][C]-39.966[/C][C]44.373[/C][C]1[/C][/ROW]
[ROW][C]9-7[/C][C]-1.25[/C][C]-43.42[/C][C]40.92[/C][C]1[/C][/ROW]
[ROW][C]9-8[/C][C]-3.453[/C][C]-45.623[/C][C]38.716[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=182391&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=182391&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:

Tukey Honest Significant Difference Comparisons
difflwruprp adj
10-16.497-35.67348.6661
11-12.13-40.0444.31
12-10.103-42.06642.2731
2-13.307-38.86345.4761
3-13.657-38.51345.8261
4-15.833-36.33648.0031
5-16.813-35.35648.9831
6-16.837-35.33349.0061
7-110.52-31.6552.691
8-112.723-29.44654.8930.998
9-19.27-32.951.441
11-10-4.367-46.53637.8031
12-10-6.393-48.56335.7761
2-10-3.19-45.3638.981
3-10-2.84-45.0139.331
4-10-0.663-42.83341.5061
5-100.317-41.85342.4861
6-100.34-41.8342.511
7-104.023-38.14646.1931
8-106.227-35.94348.3961
9-102.773-39.39644.9431
12-11-2.027-44.19640.1431
2-111.177-40.99343.3461
3-111.527-40.64343.6961
4-113.703-38.46645.8731
5-114.683-37.48646.8531
6-114.707-37.46346.8761
7-118.39-33.7850.561
8-1110.593-31.57652.7631
9-117.14-35.0349.311
2-123.203-38.96645.3731
3-123.553-38.61645.7231
4-125.73-36.4447.91
5-126.71-35.4648.881
6-126.733-35.43648.9031
7-1210.417-31.75352.5861
8-1212.62-29.5554.790.998
9-129.167-33.00351.3361
3-20.35-41.8242.521
4-22.527-39.64344.6961
5-23.507-38.66345.6761
6-23.53-38.6445.71
7-27.213-34.95649.3831
8-29.417-32.75351.5861
9-25.963-36.20648.1331
4-32.177-39.99344.3461
5-33.157-39.01345.3261
6-33.18-38.9945.351
7-36.863-35.30649.0331
8-39.067-33.10351.2361
9-35.613-36.55647.7831
5-40.98-41.1943.151
6-41.003-41.16643.1731
7-44.687-37.48346.8561
8-46.89-35.2849.061
9-43.437-38.73345.6061
6-50.023-42.14642.1931
7-53.707-38.46345.8761
8-55.91-36.2648.081
9-52.457-39.71344.6261
7-63.683-38.48645.8531
8-65.887-36.28348.0561
9-62.433-39.73644.6031
8-72.203-39.96644.3731
9-7-1.25-43.4240.921
9-8-3.453-45.62338.7161






Levenes Test for Homogeneity of Variance
DfF valuePr(>F)
Group110.1381
348 

\begin{tabular}{lllllllll}
\hline
Levenes Test for Homogeneity of Variance \tabularnewline
  & Df & F value & Pr(>F) \tabularnewline
Group & 11 & 0.138 & 1 \tabularnewline
  & 348 &   &   \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=182391&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]11[/C][C]0.138[/C][C]1[/C][/ROW]
[ROW][C] [/C][C]348[/C][C] [/C][C] [/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=182391&T=4

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

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


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

Levenes Test for Homogeneity of Variance
DfF valuePr(>F)
Group110.1381
348


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
par1 = 2 ; par2 = 1 ; par3 = TRUE ;
R code (references can be found in the software module):
cat1 <- as.numeric(par1) #
cat2<- as.numeric(par2) #
intercept<-as.logical(par3)
x <- t(x)
x1<-as.numeric(x[,cat1])
f1<-as.character(x[,cat2])
xdf<-data.frame(x1,f1)
(V1<-dimnames(y)[[1]][cat1])
(V2<-dimnames(y)[[1]][cat2])
names(xdf)<-c('Response', 'Treatment')
if(intercept == FALSE) (lmxdf<-lm(Response ~ Treatment - 1, data = xdf) ) else (lmxdf<-lm(Response ~ Treatment, data = xdf) )
(aov.xdf<-aov(lmxdf) )
(anova.xdf<-anova(lmxdf) )
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'ANOVA Model', length(lmxdf$coefficients)+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, paste(V1, ' ~ ', V2), length(lmxdf$coefficients)+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'means',,TRUE)
for(i in 1:length(lmxdf$coefficients)){
a<-table.element(a, round(lmxdf$coefficients[i], digits=3),,FALSE)
}
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,'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)
a<-table.row.start(a)
a<-table.element(a, V2,,TRUE)
a<-table.element(a, anova.xdf$Df[1],,FALSE)
a<-table.element(a, round(anova.xdf$'Sum Sq'[1], digits=3),,FALSE)
a<-table.element(a, round(anova.xdf$'Mean Sq'[1], digits=3),,FALSE)
a<-table.element(a, round(anova.xdf$'F value'[1], digits=3),,FALSE)
a<-table.element(a, round(anova.xdf$'Pr(>F)'[1], digits=3),,FALSE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Residuals',,TRUE)
a<-table.element(a, anova.xdf$Df[2],,FALSE)
a<-table.element(a, round(anova.xdf$'Sum Sq'[2], digits=3),,FALSE)
a<-table.element(a, round(anova.xdf$'Mean Sq'[2], digits=3),,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(Response ~ Treatment, data=xdf, xlab=V2, ylab=V1)
dev.off()
if(intercept==TRUE){
'Tukey Plot'
thsd<-TukeyHSD(aov.xdf)
bitmap(file='TukeyHSDPlot.png')
plot(thsd)
dev.off()
}
if(intercept==TRUE){
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(i in 1:length(rownames(thsd[[1]]))){
a<-table.row.start(a)
a<-table.element(a,rownames(thsd[[1]])[i], 1, TRUE)
for(j in 1:4){
a<-table.element(a,round(thsd[[1]][i,j], digits=3), 1, FALSE)
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')
}
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<-leveneTest(lmxdf)
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,round(lt.lmxdf[[i]][1], digits=3), 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')