Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_One Factor ANOVA.wasp

Title produced by software

One-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)

Date of computation

Sun, 14 Dec 2014 10:20:11 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/14/t1418552482g5wam55clks9oel.htm/, Retrieved Sun, 19 May 2024 15:57:23 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267398, Retrieved Sun, 19 May 2024 15:57:23 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

107

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [One-Way-Between-Groups ANOVA- Free Statistics Software (Calculator)] [avova conf exam p...] [2014-12-14 10:20:11] [b3af8a5e2d9bda149808ec07c7827d03] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

NA NA
8 6
NA NA
13 1
11 1
10 5.5
NA NA
10 6.5
15 4.5
12 2
12 5
10 0.5
10 5
NA NA
NA NA
NA NA
14 5.5
NA NA
8 3
NA NA
15 0.5
13 6.5
NA NA
12 7.5
7 5.5
11 4
7 7.5
NA NA
12 4
NA NA
NA NA
NA NA
12 3.5
15 2.5
12 4.5
6 4.5
NA NA
13 6
11 2.5
NA NA
12 0
10 5
6 6.5
12 5
11 6
NA NA
12 5.5
12 1
NA NA
10 6
11 5
7 1
12 5
13 6.5
14 7
12 4.5
NA NA
14 8.5
NA NA
12 7.5
11 3.5
NA NA
NA NA
12 9
NA NA
12 3.5
NA NA
10 6.5
10 7.5
NA NA
NA NA
NA NA
NA NA
10 7.5
NA NA
NA NA
12 6.5
NA NA
NA NA
12 1.5
NA NA
NA NA
NA NA
10 0
NA NA
11 5.5
12 5
NA NA
NA NA
NA NA
6 7
9 0
15 4.5
NA NA
11 1.5
NA NA
12 2.5
12 5.5
11 8
9 1
11 5
NA NA
12 3
14 3
8 8
NA NA
NA NA
NA NA
NA NA
NA NA
NA NA
11 5.5
9 0.5
11 7.5
12 9
12 9.5
NA NA
12 7
12 8
NA NA
10 7
NA NA
NA NA
15 9.5
10 4
15 6
9 8
15 5.5
12 9.5
13 7.5
12 7
NA NA
8 8
9 7
15 7
12 6
12 10
15 2.5
NA NA
12 8
6 6
14 8.5
12 6
12 9
NA NA
NA NA
12 5.5
NA NA
NA NA
12 9
NA NA
8 8.5
12 9
NA NA
11 9
10 7.5
11 10
NA NA
NA NA
NA NA
NA NA
10 8.5
NA NA
11 10
NA NA
12 6.5
NA NA
12 8.5
NA NA
NA NA
15 8
NA NA
8 7
11 7.5
11 7.5
11 9.5
13 6
NA NA
12 7
NA NA
NA NA
NA NA
11 10
NA NA
7 3.5
NA NA
NA NA
NA NA
NA NA
8 6.5
8 6.5
11 8.5
12 4
NA NA
NA NA
12 8.5
NA NA
NA NA
NA NA
NA NA
14 10
9 8
NA NA
NA NA
13 5
NA NA
13 4.5
8 8.5
NA NA
8 8.5
12 7.5
11 7.5
NA NA
NA NA
NA NA
12 5.5
10 8.5
13 9.5
9 7
NA NA
NA NA
NA NA
11 6.5
9 6.5
NA NA
NA NA
NA NA
12 10
14 10
NA NA
NA NA
NA NA
13 7.5
13 4.5
15 4.5
11 0.5
NA NA
10 4.5
11 5.5
14 5
NA NA
NA NA
12 8
NA NA
13 6.5
9 8
NA NA
13 5.5
NA NA
11 5
13 3.5
NA NA
12 9
NA NA
9 5
NA NA
13 3
NA NA
NA NA
11 0.5
12 6.5
NA NA
12 4.5
12 8
NA NA
9 7.5
NA NA
NA NA
11 9.5
12 6.5
NA NA
7 6
NA NA
NA NA
10 8
NA NA
NA NA

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267398&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267398&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267398&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Gertrude Mary Cox' @ cox.wessa.net

ANOVA Model
examenscore_mannen ~ conf_software_mannen
means	5.765	0.235	0.439	-0.231	1.423	-0.765	0.235	-1.065	1.285	-0.447

\begin{tabular}{lllllllll}
\hline
ANOVA Model \tabularnewline
examenscore_mannen  ~  conf_software_mannen \tabularnewline
means & 5.765 & 0.235 & 0.439 & -0.231 & 1.423 & -0.765 & 0.235 & -1.065 & 1.285 & -0.447 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267398&T=1

[TABLE]
[ROW][C]ANOVA Model[/C][/ROW]
[ROW][C]examenscore_mannen  ~  conf_software_mannen[/C][/ROW]
[ROW][C]means[/C][C]5.765[/C][C]0.235[/C][C]0.439[/C][C]-0.231[/C][C]1.423[/C][C]-0.765[/C][C]0.235[/C][C]-1.065[/C][C]1.285[/C][C]-0.447[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267398&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267398&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
examenscore_mannen ~ conf_software_mannen
means	5.765	0.235	0.439	-0.231	1.423	-0.765	0.235	-1.065	1.285	-0.447

ANOVA Statistics
	Df	Sum Sq	Mean Sq	F value	Pr(>F)
conf_software_mannen	9	52.889	5.877	0.899	0.528
Residuals	147	961.381	6.54

\begin{tabular}{lllllllll}
\hline
ANOVA Statistics \tabularnewline
  & Df & Sum Sq & Mean Sq & F value & Pr(>F) \tabularnewline
conf_software_mannen & 9 & 52.889 & 5.877 & 0.899 & 0.528 \tabularnewline
Residuals & 147 & 961.381 & 6.54 &   &   \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267398&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]conf_software_mannen[/C][C]9[/C][C]52.889[/C][C]5.877[/C][C]0.899[/C][C]0.528[/C][/ROW]
[ROW][C]Residuals[/C][C]147[/C][C]961.381[/C][C]6.54[/C][C] [/C][C] [/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267398&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267398&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
	Df	Sum Sq	Mean Sq	F value	Pr(>F)
conf_software_mannen	9	52.889	5.877	0.899	0.528
Residuals	147	961.381	6.54

Tukey Honest Significant Difference Comparisons
	diff	lwr	upr	p adj
11-10	0.235	-2.309	2.779	1
12-10	0.439	-1.873	2.752	1
13-10	-0.231	-3.142	2.679	1
14-10	1.423	-2.1	4.946	0.953
15-10	-0.765	-3.944	2.415	0.999
6-10	0.235	-4.331	4.801	1
7-10	-1.065	-5.245	3.115	0.998
8-10	1.285	-1.989	4.56	0.961
9-10	-0.447	-3.626	2.733	1
12-11	0.204	-1.765	2.173	1
13-11	-0.467	-3.113	2.179	1
14-11	1.187	-2.12	4.495	0.978
15-11	-1	-3.939	1.939	0.985
6-11	0	-4.402	4.402	1
7-11	-1.3	-5.3	2.7	0.989
8-11	1.05	-1.992	4.092	0.983
9-11	-0.682	-3.621	2.257	0.999
13-12	-0.671	-3.095	1.754	0.997
14-12	0.983	-2.15	4.117	0.991
15-12	-1.204	-3.945	1.537	0.922
6-12	-0.204	-4.477	4.069	1
7-12	-1.504	-5.362	2.353	0.962
8-12	0.846	-2.005	3.697	0.994
9-12	-0.886	-3.627	1.855	0.989
14-13	1.654	-1.943	5.251	0.899
15-13	-0.533	-3.795	2.728	1
6-13	0.467	-4.157	5.09	1
7-13	-0.833	-5.076	3.41	1
8-13	1.517	-1.838	4.871	0.908
9-13	-0.215	-3.477	3.046	1
15-14	-2.187	-6.005	1.63	0.708
6-14	-1.187	-6.219	3.844	0.999
7-14	-2.488	-7.172	2.197	0.79
8-14	-0.137	-4.035	3.76	1
9-14	-1.869	-5.687	1.949	0.859
6-15	1	-3.797	5.797	1
7-15	-0.3	-4.732	4.132	1
8-15	2.05	-1.54	5.64	0.712
9-15	0.318	-3.185	3.822	1
7-6	-1.3	-6.812	4.212	0.999
8-6	1.05	-3.811	5.911	1
9-6	-0.682	-5.479	4.116	1
8-7	2.35	-2.15	6.85	0.806
9-7	0.618	-3.813	5.05	1
9-8	-1.732	-5.322	1.858	0.869

\begin{tabular}{lllllllll}
\hline
Tukey Honest Significant Difference Comparisons \tabularnewline
  & diff & lwr & upr & p adj \tabularnewline
11-10 & 0.235 & -2.309 & 2.779 & 1 \tabularnewline
12-10 & 0.439 & -1.873 & 2.752 & 1 \tabularnewline
13-10 & -0.231 & -3.142 & 2.679 & 1 \tabularnewline
14-10 & 1.423 & -2.1 & 4.946 & 0.953 \tabularnewline
15-10 & -0.765 & -3.944 & 2.415 & 0.999 \tabularnewline
6-10 & 0.235 & -4.331 & 4.801 & 1 \tabularnewline
7-10 & -1.065 & -5.245 & 3.115 & 0.998 \tabularnewline
8-10 & 1.285 & -1.989 & 4.56 & 0.961 \tabularnewline
9-10 & -0.447 & -3.626 & 2.733 & 1 \tabularnewline
12-11 & 0.204 & -1.765 & 2.173 & 1 \tabularnewline
13-11 & -0.467 & -3.113 & 2.179 & 1 \tabularnewline
14-11 & 1.187 & -2.12 & 4.495 & 0.978 \tabularnewline
15-11 & -1 & -3.939 & 1.939 & 0.985 \tabularnewline
6-11 & 0 & -4.402 & 4.402 & 1 \tabularnewline
7-11 & -1.3 & -5.3 & 2.7 & 0.989 \tabularnewline
8-11 & 1.05 & -1.992 & 4.092 & 0.983 \tabularnewline
9-11 & -0.682 & -3.621 & 2.257 & 0.999 \tabularnewline
13-12 & -0.671 & -3.095 & 1.754 & 0.997 \tabularnewline
14-12 & 0.983 & -2.15 & 4.117 & 0.991 \tabularnewline
15-12 & -1.204 & -3.945 & 1.537 & 0.922 \tabularnewline
6-12 & -0.204 & -4.477 & 4.069 & 1 \tabularnewline
7-12 & -1.504 & -5.362 & 2.353 & 0.962 \tabularnewline
8-12 & 0.846 & -2.005 & 3.697 & 0.994 \tabularnewline
9-12 & -0.886 & -3.627 & 1.855 & 0.989 \tabularnewline
14-13 & 1.654 & -1.943 & 5.251 & 0.899 \tabularnewline
15-13 & -0.533 & -3.795 & 2.728 & 1 \tabularnewline
6-13 & 0.467 & -4.157 & 5.09 & 1 \tabularnewline
7-13 & -0.833 & -5.076 & 3.41 & 1 \tabularnewline
8-13 & 1.517 & -1.838 & 4.871 & 0.908 \tabularnewline
9-13 & -0.215 & -3.477 & 3.046 & 1 \tabularnewline
15-14 & -2.187 & -6.005 & 1.63 & 0.708 \tabularnewline
6-14 & -1.187 & -6.219 & 3.844 & 0.999 \tabularnewline
7-14 & -2.488 & -7.172 & 2.197 & 0.79 \tabularnewline
8-14 & -0.137 & -4.035 & 3.76 & 1 \tabularnewline
9-14 & -1.869 & -5.687 & 1.949 & 0.859 \tabularnewline
6-15 & 1 & -3.797 & 5.797 & 1 \tabularnewline
7-15 & -0.3 & -4.732 & 4.132 & 1 \tabularnewline
8-15 & 2.05 & -1.54 & 5.64 & 0.712 \tabularnewline
9-15 & 0.318 & -3.185 & 3.822 & 1 \tabularnewline
7-6 & -1.3 & -6.812 & 4.212 & 0.999 \tabularnewline
8-6 & 1.05 & -3.811 & 5.911 & 1 \tabularnewline
9-6 & -0.682 & -5.479 & 4.116 & 1 \tabularnewline
8-7 & 2.35 & -2.15 & 6.85 & 0.806 \tabularnewline
9-7 & 0.618 & -3.813 & 5.05 & 1 \tabularnewline
9-8 & -1.732 & -5.322 & 1.858 & 0.869 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267398&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]11-10[/C][C]0.235[/C][C]-2.309[/C][C]2.779[/C][C]1[/C][/ROW]
[ROW][C]12-10[/C][C]0.439[/C][C]-1.873[/C][C]2.752[/C][C]1[/C][/ROW]
[ROW][C]13-10[/C][C]-0.231[/C][C]-3.142[/C][C]2.679[/C][C]1[/C][/ROW]
[ROW][C]14-10[/C][C]1.423[/C][C]-2.1[/C][C]4.946[/C][C]0.953[/C][/ROW]
[ROW][C]15-10[/C][C]-0.765[/C][C]-3.944[/C][C]2.415[/C][C]0.999[/C][/ROW]
[ROW][C]6-10[/C][C]0.235[/C][C]-4.331[/C][C]4.801[/C][C]1[/C][/ROW]
[ROW][C]7-10[/C][C]-1.065[/C][C]-5.245[/C][C]3.115[/C][C]0.998[/C][/ROW]
[ROW][C]8-10[/C][C]1.285[/C][C]-1.989[/C][C]4.56[/C][C]0.961[/C][/ROW]
[ROW][C]9-10[/C][C]-0.447[/C][C]-3.626[/C][C]2.733[/C][C]1[/C][/ROW]
[ROW][C]12-11[/C][C]0.204[/C][C]-1.765[/C][C]2.173[/C][C]1[/C][/ROW]
[ROW][C]13-11[/C][C]-0.467[/C][C]-3.113[/C][C]2.179[/C][C]1[/C][/ROW]
[ROW][C]14-11[/C][C]1.187[/C][C]-2.12[/C][C]4.495[/C][C]0.978[/C][/ROW]
[ROW][C]15-11[/C][C]-1[/C][C]-3.939[/C][C]1.939[/C][C]0.985[/C][/ROW]
[ROW][C]6-11[/C][C]0[/C][C]-4.402[/C][C]4.402[/C][C]1[/C][/ROW]
[ROW][C]7-11[/C][C]-1.3[/C][C]-5.3[/C][C]2.7[/C][C]0.989[/C][/ROW]
[ROW][C]8-11[/C][C]1.05[/C][C]-1.992[/C][C]4.092[/C][C]0.983[/C][/ROW]
[ROW][C]9-11[/C][C]-0.682[/C][C]-3.621[/C][C]2.257[/C][C]0.999[/C][/ROW]
[ROW][C]13-12[/C][C]-0.671[/C][C]-3.095[/C][C]1.754[/C][C]0.997[/C][/ROW]
[ROW][C]14-12[/C][C]0.983[/C][C]-2.15[/C][C]4.117[/C][C]0.991[/C][/ROW]
[ROW][C]15-12[/C][C]-1.204[/C][C]-3.945[/C][C]1.537[/C][C]0.922[/C][/ROW]
[ROW][C]6-12[/C][C]-0.204[/C][C]-4.477[/C][C]4.069[/C][C]1[/C][/ROW]
[ROW][C]7-12[/C][C]-1.504[/C][C]-5.362[/C][C]2.353[/C][C]0.962[/C][/ROW]
[ROW][C]8-12[/C][C]0.846[/C][C]-2.005[/C][C]3.697[/C][C]0.994[/C][/ROW]
[ROW][C]9-12[/C][C]-0.886[/C][C]-3.627[/C][C]1.855[/C][C]0.989[/C][/ROW]
[ROW][C]14-13[/C][C]1.654[/C][C]-1.943[/C][C]5.251[/C][C]0.899[/C][/ROW]
[ROW][C]15-13[/C][C]-0.533[/C][C]-3.795[/C][C]2.728[/C][C]1[/C][/ROW]
[ROW][C]6-13[/C][C]0.467[/C][C]-4.157[/C][C]5.09[/C][C]1[/C][/ROW]
[ROW][C]7-13[/C][C]-0.833[/C][C]-5.076[/C][C]3.41[/C][C]1[/C][/ROW]
[ROW][C]8-13[/C][C]1.517[/C][C]-1.838[/C][C]4.871[/C][C]0.908[/C][/ROW]
[ROW][C]9-13[/C][C]-0.215[/C][C]-3.477[/C][C]3.046[/C][C]1[/C][/ROW]
[ROW][C]15-14[/C][C]-2.187[/C][C]-6.005[/C][C]1.63[/C][C]0.708[/C][/ROW]
[ROW][C]6-14[/C][C]-1.187[/C][C]-6.219[/C][C]3.844[/C][C]0.999[/C][/ROW]
[ROW][C]7-14[/C][C]-2.488[/C][C]-7.172[/C][C]2.197[/C][C]0.79[/C][/ROW]
[ROW][C]8-14[/C][C]-0.137[/C][C]-4.035[/C][C]3.76[/C][C]1[/C][/ROW]
[ROW][C]9-14[/C][C]-1.869[/C][C]-5.687[/C][C]1.949[/C][C]0.859[/C][/ROW]
[ROW][C]6-15[/C][C]1[/C][C]-3.797[/C][C]5.797[/C][C]1[/C][/ROW]
[ROW][C]7-15[/C][C]-0.3[/C][C]-4.732[/C][C]4.132[/C][C]1[/C][/ROW]
[ROW][C]8-15[/C][C]2.05[/C][C]-1.54[/C][C]5.64[/C][C]0.712[/C][/ROW]
[ROW][C]9-15[/C][C]0.318[/C][C]-3.185[/C][C]3.822[/C][C]1[/C][/ROW]
[ROW][C]7-6[/C][C]-1.3[/C][C]-6.812[/C][C]4.212[/C][C]0.999[/C][/ROW]
[ROW][C]8-6[/C][C]1.05[/C][C]-3.811[/C][C]5.911[/C][C]1[/C][/ROW]
[ROW][C]9-6[/C][C]-0.682[/C][C]-5.479[/C][C]4.116[/C][C]1[/C][/ROW]
[ROW][C]8-7[/C][C]2.35[/C][C]-2.15[/C][C]6.85[/C][C]0.806[/C][/ROW]
[ROW][C]9-7[/C][C]0.618[/C][C]-3.813[/C][C]5.05[/C][C]1[/C][/ROW]
[ROW][C]9-8[/C][C]-1.732[/C][C]-5.322[/C][C]1.858[/C][C]0.869[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267398&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267398&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
	diff	lwr	upr	p adj
11-10	0.235	-2.309	2.779	1
12-10	0.439	-1.873	2.752	1
13-10	-0.231	-3.142	2.679	1
14-10	1.423	-2.1	4.946	0.953
15-10	-0.765	-3.944	2.415	0.999
6-10	0.235	-4.331	4.801	1
7-10	-1.065	-5.245	3.115	0.998
8-10	1.285	-1.989	4.56	0.961
9-10	-0.447	-3.626	2.733	1
12-11	0.204	-1.765	2.173	1
13-11	-0.467	-3.113	2.179	1
14-11	1.187	-2.12	4.495	0.978
15-11	-1	-3.939	1.939	0.985
6-11	0	-4.402	4.402	1
7-11	-1.3	-5.3	2.7	0.989
8-11	1.05	-1.992	4.092	0.983
9-11	-0.682	-3.621	2.257	0.999
13-12	-0.671	-3.095	1.754	0.997
14-12	0.983	-2.15	4.117	0.991
15-12	-1.204	-3.945	1.537	0.922
6-12	-0.204	-4.477	4.069	1
7-12	-1.504	-5.362	2.353	0.962
8-12	0.846	-2.005	3.697	0.994
9-12	-0.886	-3.627	1.855	0.989
14-13	1.654	-1.943	5.251	0.899
15-13	-0.533	-3.795	2.728	1
6-13	0.467	-4.157	5.09	1
7-13	-0.833	-5.076	3.41	1
8-13	1.517	-1.838	4.871	0.908
9-13	-0.215	-3.477	3.046	1
15-14	-2.187	-6.005	1.63	0.708
6-14	-1.187	-6.219	3.844	0.999
7-14	-2.488	-7.172	2.197	0.79
8-14	-0.137	-4.035	3.76	1
9-14	-1.869	-5.687	1.949	0.859
6-15	1	-3.797	5.797	1
7-15	-0.3	-4.732	4.132	1
8-15	2.05	-1.54	5.64	0.712
9-15	0.318	-3.185	3.822	1
7-6	-1.3	-6.812	4.212	0.999
8-6	1.05	-3.811	5.911	1
9-6	-0.682	-5.479	4.116	1
8-7	2.35	-2.15	6.85	0.806
9-7	0.618	-3.813	5.05	1
9-8	-1.732	-5.322	1.858	0.869

Levenes Test for Homogeneity of Variance
	Df	F value	Pr(>F)
Group	9	0.916	0.513
	147

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267398&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
	Df	F value	Pr(>F)
Group	9	0.916	0.513
	147

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 2 ; par2 = 1 ; par3 = TRUE ;

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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code