Home » date » 2009 » Dec » 12 »

week9 ex2

*The author of this computation has been verified*

R Software Module: Ian.Holliday/rwasp_One Factor ANOVA.wasp (opens new window with default values)

Title produced by software: Chi Square Measure of Association- Free Statistics Software (Calculator)

Date of computation: Sat, 12 Dec 2009 11:21:20 -0700

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Dec/12/t126064217017lxesr370omw5x.htm/, Retrieved Sat, 12 Dec 2009 19:22:53 +0100

BibTeX entries for LaTeX users:

@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2009/Dec/12/t126064217017lxesr370omw5x.htm/},
    year = {2009},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2009},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

86 36 88 86 56 94 103 48 90 74 32 73 63 44 68 82 39 80 93 34 86 77 41 86 111 50 91 71 39 79 103 62 96 89 52 92 75 37 72 88 50 96 84 41 70 85 55 86 70 41 87 104 56 88 88 39 79 77 52 90 77 46 95 72 44 85 83 41 90 110 50 115 91 50 84 80 44 79 91 52 94 86 54 97 85 44 86 107 52 111 93 37 87 87 52 98 84 50 87 73 36 68 84 50 88 86 52 82 99 55 111 75 31 75 87 36 94 79 49 95 82 42 80 95 37 95 84 41 68 85 30 94 95 52 88 63 30 84 85 44 101 86 66 98 75 48 78 98 43 109 71 57 102 63 46 81 71 54 97 84 48 75 81 48 97 79 62 101 63 58 101 93 58 95 92 62 95 83 46 95 80 34 90 111 66 107 92 52 92 79 55 86 69 55 70 83 57 95 80 56 96 91 55 91 97 56 87 85 54 92 85 55 97 99 46 102 67 52 91 87 32 68 68 44 88 81 46 97 80 59 90 93 46 101 93 46 94 102 54 101 104 66 109 90 56 100 85 59 103 92 57 94 82 52 97 85 48 85 89 44 75 77 41 77 79 50 87 76 48 78 101 48 108 81 59 97 92 34 105 89 46 106 81 54 107 77 55 95 95 54 107 85 59 115 81 44 101 76 etc...

Output produced by software:

Enter (or paste) a matrix (table) containing all data (time) series. Every column represents a different variable and must be delimited by a space or Tab. Every row represents a period in time (or category) and must be delimited by hard returns. The easiest way to enter data is to copy and paste a block of spreadsheet cells. Please, do not use commas or spaces to seperate groups of digits!

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	3 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

ANOVA Model
MVRBIQ0 ~ MC30VRB
means	79	-4	1.5	9	4.25	7.4	4.9	5.222	3	8.5	0	0	4.5	5.8	0	11.333	-4	8.417	6.75	3.889	9	2	10	5.857	2.75	12.333	22.25

ANOVA Statistics
	Df	Sum Sq	Mean Sq	F value	Pr(>F)
MC30VRB	26	2822.734	108.567	0.959	0.528
Residuals	126	14269.502	113.25

Tukey Honest Significant Difference Comparisons
	diff	lwr	upr	p adj
31-30	-4	-49.002	41.002	1
32-30	1.5	-33.358	36.358	1
34-30	9	-19.462	37.462	1
36-30	4.25	-24.212	32.712	1
37-30	7.4	-19.601	34.401	1
39-30	4.9	-18.913	28.713	1
41-30	5.222	-18.965	29.41	1
42-30	3	-42.002	48.002	1
43-30	8.5	-17.482	34.482	1
44-30	0	-23.813	23.813	1
45-30	0	-45.002	45.002	1
46-30	4.5	-19.313	28.313	1
48-30	5.8	-18.013	29.613	1
49-30	0	-45.002	45.002	1
50-30	11.333	-11.905	34.572	0.985
51-30	-4	-49.002	41.002	1
52-30	8.417	-14.822	31.655	1
54-30	6.75	-17.898	31.398	1
55-30	3.889	-20.299	28.077	1
56-30	9	-16.229	34.229	1
57-30	2	-25.001	29.001	1
58-30	10	-20.742	40.742	1
59-30	5.857	-19.371	31.086	1
60-30	2.75	-25.712	31.212	1
62-30	12.333	-18.409	43.075	0.999
66-30	22.25	-6.212	50.712	0.386
32-31	5.5	-43.797	54.797	1
34-31	13	-32.002	58.002	1
36-31	8.25	-36.752	53.252	1
37-31	11.4	-32.693	55.493	1
39-31	8.9	-33.315	51.115	1
41-31	9.222	-33.206	51.65	1
42-31	7	-49.923	63.923	1
43-31	12.5	-30.976	55.976	1
44-31	4	-38.215	46.215	1
45-31	4	-52.923	60.923	1
46-31	8.5	-33.715	50.715	1
48-31	9.8	-32.415	52.015	1
49-31	4	-52.923	60.923	1
50-31	15.333	-26.561	57.228	1
51-31	0	-56.923	56.923	1
52-31	12.417	-29.478	54.311	1
54-31	10.75	-31.942	53.442	1
55-31	7.889	-34.539	50.317	1
56-31	13	-30.03	56.03	1
57-31	6	-38.093	50.093	1
58-31	14	-32.478	60.478	1
59-31	9.857	-33.173	52.887	1
60-31	6.75	-38.252	51.752	1
62-31	16.333	-30.144	62.811	1
66-31	26.25	-18.752	71.252	0.896
34-32	7.5	-27.358	42.358	1
36-32	2.75	-32.108	37.608	1
37-32	5.9	-27.776	39.576	1
39-32	3.4	-27.778	34.578	1
41-32	3.722	-27.743	35.188	1
42-32	1.5	-47.797	50.797	1
43-32	7	-25.865	39.865	1
44-32	-1.5	-32.678	29.678	1
45-32	-1.5	-50.797	47.797	1
46-32	3	-28.178	34.178	1
48-32	4.3	-26.878	35.478	1
49-32	-1.5	-50.797	47.797	1
50-32	9.833	-20.909	40.575	1
51-32	-5.5	-54.797	43.797	1
52-32	6.917	-23.825	37.659	1
54-32	5.25	-26.571	37.071	1
55-32	2.389	-29.077	33.854	1
56-32	7.5	-24.772	39.772	1
57-32	0.5	-33.176	34.176	1
58-32	8.5	-28.244	45.244	1
59-32	4.357	-27.915	36.63	1
60-32	1.25	-33.608	36.108	1
62-32	10.833	-25.91	47.577	1
66-32	20.75	-14.108	55.608	0.875
36-34	-4.75	-33.212	23.712	1
37-34	-1.6	-28.601	25.401	1
39-34	-4.1	-27.913	19.713	1
41-34	-3.778	-27.965	20.41	1
42-34	-6	-51.002	39.002	1
43-34	-0.5	-26.482	25.482	1
44-34	-9	-32.813	14.813	1
45-34	-9	-54.002	36.002	1
46-34	-4.5	-28.313	19.313	1
48-34	-3.2	-27.013	20.613	1
49-34	-9	-54.002	36.002	1
50-34	2.333	-20.905	25.572	1
51-34	-13	-58.002	32.002	1
52-34	-0.583	-23.822	22.655	1
54-34	-2.25	-26.898	22.398	1
55-34	-5.111	-29.299	19.077	1
56-34	0	-25.229	25.229	1
57-34	-7	-34.001	20.001	1
58-34	1	-29.742	31.742	1
59-34	-3.143	-28.371	22.086	1
60-34	-6.25	-34.712	22.212	1
62-34	3.333	-27.409	34.075	1
66-34	13.25	-15.212	41.712	0.992
37-36	3.15	-23.851	30.151	1
39-36	0.65	-23.163	24.463	1
41-36	0.972	-23.215	25.16	1
42-36	-1.25	-46.252	43.752	1
43-36	4.25	-21.732	30.232	1
44-36	-4.25	-28.063	19.563	1
45-36	-4.25	-49.252	40.752	1
46-36	0.25	-23.563	24.063	1
48-36	1.55	-22.263	25.363	1
49-36	-4.25	-49.252	40.752	1
50-36	7.083	-16.155	30.322	1
51-36	-8.25	-53.252	36.752	1
52-36	4.167	-19.072	27.405	1
54-36	2.5	-22.148	27.148	1
55-36	-0.361	-24.549	23.827	1
56-36	4.75	-20.479	29.979	1
57-36	-2.25	-29.251	24.751	1
58-36	5.75	-24.992	36.492	1
59-36	1.607	-23.621	26.836	1
60-36	-1.5	-29.962	26.962	1
62-36	8.083	-22.659	38.825	1
66-36	18	-10.462	46.462	0.799
39-37	-2.5	-24.546	19.546	1
41-37	-2.178	-24.629	20.273	1
42-37	-4.4	-48.493	39.693	1
43-37	1.1	-23.273	25.473	1
44-37	-7.4	-29.446	14.646	1
45-37	-7.4	-51.493	36.693	1
46-37	-2.9	-24.946	19.146	1
48-37	-1.6	-23.646	20.446	1
49-37	-7.4	-51.493	36.693	1
50-37	3.933	-17.492	25.358	1
51-37	-11.4	-55.493	32.693	1
52-37	1.017	-20.408	22.442	1
54-37	-0.65	-23.596	22.296	1
55-37	-3.511	-25.962	18.94	1
56-37	1.6	-21.968	25.168	1
57-37	-5.4	-30.857	20.057	1
58-37	2.6	-26.795	31.995	1
59-37	-1.543	-25.111	22.026	1
60-37	-4.65	-31.651	22.351	1
62-37	4.933	-24.462	34.328	1
66-37	14.85	-12.151	41.851	0.94
41-39	0.322	-18.172	18.816	1
42-39	-1.9	-44.115	40.315	1
43-39	3.6	-17.185	24.385	1
44-39	-4.9	-22.901	13.101	1
45-39	-4.9	-47.115	37.315	1
46-39	-0.4	-18.401	17.601	1
48-39	0.9	-17.101	18.901	1
49-39	-4.9	-47.115	37.315	1
50-39	6.433	-10.801	23.668	1
51-39	-8.9	-51.115	33.315	1
52-39	3.517	-13.718	20.751	1
54-39	1.85	-17.243	20.943	1
55-39	-1.011	-19.505	17.483	1
56-39	4.1	-15.736	23.936	1
57-39	-2.9	-24.946	19.146	1
58-39	5.1	-21.396	31.596	1
59-39	0.957	-18.879	20.793	1
60-39	-2.15	-25.963	21.663	1
62-39	7.433	-19.063	33.93	1
66-39	17.35	-6.463	41.163	0.535
42-41	-2.222	-44.65	40.206	1
43-41	3.278	-17.936	24.492	1
44-41	-5.222	-23.716	13.272	1
45-41	-5.222	-47.65	37.206	1
46-41	-0.722	-19.216	17.772	1
48-41	0.578	-17.916	19.072	1
49-41	-5.222	-47.65	37.206	1
50-41	6.111	-11.638	23.86	1
51-41	-9.222	-51.65	33.206	1
52-41	3.194	-14.554	20.943	1
54-41	1.528	-18.031	21.086	1
55-41	-1.333	-20.308	17.641	1
56-41	3.778	-16.507	24.062	1
57-41	-3.222	-25.673	19.229	1
58-41	4.778	-22.056	31.612	1
59-41	0.635	-19.65	20.919	1
60-41	-2.472	-26.66	21.715	1
62-41	7.111	-19.723	33.945	1
66-41	17.028	-7.16	41.215	0.607
43-42	5.5	-37.976	48.976	1
44-42	-3	-45.215	39.215	1
45-42	-3	-59.923	53.923	1
46-42	1.5	-40.715	43.715	1
48-42	2.8	-39.415	45.015	1
49-42	-3	-59.923	53.923	1
50-42	8.333	-33.561	50.228	1
51-42	-7	-63.923	49.923	1
52-42	5.417	-36.478	47.311	1
54-42	3.75	-38.942	46.442	1
55-42	0.889	-41.539	43.317	1
56-42	6	-37.03	49.03	1
57-42	-1	-45.093	43.093	1
58-42	7	-39.478	53.478	1
59-42	2.857	-40.173	45.887	1
60-42	-0.25	-45.252	44.752	1
62-42	9.333	-37.144	55.811	1
66-42	19.25	-25.752	64.252	0.997
44-43	-8.5	-29.285	12.285	0.999
45-43	-8.5	-51.976	34.976	1
46-43	-4	-24.785	16.785	1
48-43	-2.7	-23.485	18.085	1
49-43	-8.5	-51.976	34.976	1
50-43	2.833	-17.292	22.959	1
51-43	-12.5	-55.976	30.976	1
52-43	-0.083	-20.209	20.042	1
54-43	-1.75	-23.488	19.988	1
55-43	-4.611	-25.825	16.603	1
56-43	0.5	-21.893	22.893	1
57-43	-6.5	-30.873	17.873	1
58-43	1.5	-26.962	29.962	1
59-43	-2.643	-25.036	19.751	1
60-43	-5.75	-31.732	20.232	1
62-43	3.833	-24.628	32.295	1
66-43	13.75	-12.232	39.732	0.96
45-44	0	-42.215	42.215	1
46-44	4.5	-13.501	22.501	1
48-44	5.8	-12.201	23.801	1
49-44	0	-42.215	42.215	1
50-44	11.333	-5.901	28.568	0.736
51-44	-4	-46.215	38.215	1
52-44	8.417	-8.818	25.651	0.984
54-44	6.75	-12.343	25.843	1
55-44	3.889	-14.605	22.383	1
56-44	9	-10.836	28.836	0.994
57-44	2	-20.046	24.046	1
58-44	10	-16.496	36.496	1
59-44	5.857	-13.979	25.693	1
60-44	2.75	-21.063	26.563	1
62-44	12.333	-14.163	38.83	0.992
66-44	22.25	-1.563	46.063	0.103
46-45	4.5	-37.715	46.715	1
48-45	5.8	-36.415	48.015	1
49-45	0	-56.923	56.923	1
50-45	11.333	-30.561	53.228	1
51-45	-4	-60.923	52.923	1
52-45	8.417	-33.478	50.311	1
54-45	6.75	-35.942	49.442	1
55-45	3.889	-38.539	46.317	1
56-45	9	-34.03	52.03	1
57-45	2	-42.093	46.093	1
58-45	10	-36.478	56.478	1
59-45	5.857	-37.173	48.887	1
60-45	2.75	-42.252	47.752	1
62-45	12.333	-34.144	58.811	1
66-45	22.25	-22.752	67.252	0.982
48-46	1.3	-16.701	19.301	1
49-46	-4.5	-46.715	37.715	1
50-46	6.833	-10.401	24.068	0.999
51-46	-8.5	-50.715	33.715	1
52-46	3.917	-13.318	21.151	1
54-46	2.25	-16.843	21.343	1
55-46	-0.611	-19.105	17.883	1
56-46	4.5	-15.336	24.336	1
57-46	-2.5	-24.546	19.546	1
58-46	5.5	-20.996	31.996	1
59-46	1.357	-18.479	21.193	1
60-46	-1.75	-25.563	22.063	1
62-46	7.833	-18.663	34.33	1
66-46	17.75	-6.063	41.563	0.486
49-48	-5.8	-48.015	36.415	1
50-48	5.533	-11.701	22.768	1
51-48	-9.8	-52.015	32.415	1
52-48	2.617	-14.618	19.851	1
54-48	0.95	-18.143	20.043	1
55-48	-1.911	-20.405	16.583	1
56-48	3.2	-16.636	23.036	1
57-48	-3.8	-25.846	18.246	1
58-48	4.2	-22.296	30.696	1
59-48	0.057	-19.779	19.893	1
60-48	-3.05	-26.863	20.763	1
62-48	6.533	-19.963	33.03	1
66-48	16.45	-7.363	40.263	0.645
50-49	11.333	-30.561	53.228	1
51-49	-4	-60.923	52.923	1
52-49	8.417	-33.478	50.311	1
54-49	6.75	-35.942	49.442	1
55-49	3.889	-38.539	46.317	1
56-49	9	-34.03	52.03	1
57-49	2	-42.093	46.093	1
58-49	10	-36.478	56.478	1
59-49	5.857	-37.173	48.887	1
60-49	2.75	-42.252	47.752	1
62-49	12.333	-34.144	58.811	1
66-49	22.25	-22.752	67.252	0.982
51-50	-15.333	-57.228	26.561	1
52-50	-2.917	-19.349	13.516	1
54-50	-4.583	-22.955	13.789	1
55-50	-7.444	-25.193	10.304	0.998
56-50	-2.333	-21.476	16.81	1
57-50	-9.333	-30.758	12.092	0.997
58-50	-1.333	-27.315	24.648	1
59-50	-5.476	-24.619	13.667	1
60-50	-8.583	-31.822	14.655	1
62-50	1	-24.982	26.982	1
66-50	10.917	-12.322	34.155	0.991
52-51	12.417	-29.478	54.311	1
54-51	10.75	-31.942	53.442	1
55-51	7.889	-34.539	50.317	1
56-51	13	-30.03	56.03	1
57-51	6	-38.093	50.093	1
58-51	14	-32.478	60.478	1
59-51	9.857	-33.173	52.887	1
60-51	6.75	-38.252	51.752	1
62-51	16.333	-30.144	62.811	1
66-51	26.25	-18.752	71.252	0.896
54-52	-1.667	-20.039	16.705	1
55-52	-4.528	-22.277	13.221	1
56-52	0.583	-18.56	19.726	1
57-52	-6.417	-27.842	15.008	1
58-52	1.583	-24.398	27.565	1
59-52	-2.56	-21.703	16.584	1
60-52	-5.667	-28.905	17.572	1
62-52	3.917	-22.065	29.898	1
66-52	13.833	-9.405	37.072	0.875
55-54	-2.861	-22.419	16.697	1
56-54	2.25	-18.582	23.082	1
57-54	-4.75	-27.696	18.196	1
58-54	3.25	-24	30.5	1
59-54	-0.893	-21.725	19.939	1
60-54	-4	-28.648	20.648	1
62-54	5.583	-21.667	32.833	1
66-54	15.5	-9.148	40.148	0.807
56-55	5.111	-15.173	25.396	1
57-55	-1.889	-24.34	20.562	1
58-55	6.111	-20.723	32.945	1
59-55	1.968	-18.316	22.253	1
60-55	-1.139	-25.327	23.049	1
62-55	8.444	-18.389	35.278	1
66-55	18.361	-5.827	42.549	0.448
57-56	-7	-30.568	16.568	1
58-56	1	-26.776	28.776	1
59-56	-3.143	-24.658	18.372	1
60-56	-6.25	-31.479	18.979	1
62-56	3.333	-24.442	31.109	1
66-56	13.25	-11.979	38.479	0.963
58-57	8	-21.395	37.395	1
59-57	3.857	-19.711	27.426	1
60-57	0.75	-26.251	27.751	1
62-57	10.333	-19.062	39.728	1
66-57	20.25	-6.751	47.251	0.473
59-58	-4.143	-31.919	23.633	1
60-58	-7.25	-37.992	23.492	1
62-58	2.333	-30.531	35.198	1
66-58	12.25	-18.492	42.992	0.999
60-59	-3.107	-28.336	22.121	1
62-59	6.476	-21.299	34.252	1
66-59	16.393	-8.836	41.621	0.757
62-60	9.583	-21.159	40.325	1
66-60	19.5	-8.962	47.962	0.661
66-62	9.917	-20.825	40.659	1

Levenes Test for Homogeneity of Variance
	Df	F value	Pr(>F)
Group	26	0.608	0.929
	126

Charts produced by software:

http://www.freestatistics.org/blog/date/2009/Dec/12/t126064217017lxesr370omw5x/3bxgr1260642076.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Dec/12/t126064217017lxesr370omw5x/3bxgr1260642076.ps (open in new window)

http://www.freestatistics.org/blog/date/2009/Dec/12/t126064217017lxesr370omw5x/4wxxc1260642076.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Dec/12/t126064217017lxesr370omw5x/4wxxc1260642076.ps (open in new window)

Parameters (Session):

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

Parameters (R input):

par1 = 1 ; par2 = 2 ; 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){

thsd<-TukeyHSD(aov.xdf)

bitmap(file='TukeyHSDPlot.png')

plot(thsd)

dev.off()

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<-levene.test(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')

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa

Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.

We may request personal information to be submitted to our servers in order to be able to:

personalize online software applications according to your needs
enforce strict security rules with respect to the data that you upload (e.g. statistical data)
manage user sessions of online applications
alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.

FreeStatistics.org is powered by