Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_regression_trees1.wasp
Title produced by softwareRecursive Partitioning (Regression Trees)
Date of computationTue, 20 Dec 2011 05:36:15 -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/Dec/20/t13243774426k22ngyped9fg6q.htm/, Retrieved Sun, 05 May 2024 23:45:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=157905, Retrieved Sun, 05 May 2024 23:45:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact119
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [] [2011-12-20 09:15:17] [97a82ed57455ec27012f2e899dc4f1a4]
- RMP     [Recursive Partitioning (Regression Trees)] [] [2011-12-20 10:36:15] [bed8b29df92274246a1a4d59b25859b7] [Current]
- R P       [Recursive Partitioning (Regression Trees)] [] [2011-12-21 22:02:04] [74be16979710d4c4e7c6647856088456]
- RMPD      [Histogram] [] [2011-12-21 22:51:18] [97a82ed57455ec27012f2e899dc4f1a4]
- R PD        [Histogram] [] [2011-12-21 23:16:39] [97a82ed57455ec27012f2e899dc4f1a4]
-   PD      [Recursive Partitioning (Regression Trees)] [Regression trees RCF] [2011-12-22 15:05:47] [f033824ca1b38a5ddbb2c3414ea3bb75]
-   PD      [Recursive Partitioning (Regression Trees)] [Regression trees ...] [2011-12-22 15:35:50] [f033824ca1b38a5ddbb2c3414ea3bb75]
Feedback Forum

Post a new message
Dataseries X:
4746	517243	123	2302	109	0	149	33	128	122	187326	43068	250931	185	177
381	33186	19	111	46	0	1	18	67	22	22807	1271	6853	5	5
1758	213274	44	595	72	0	82	33	120	82	66485	20318	110896	93	92
2133	307153	110	800	82	0	92	46	169	147	79089	24409	169351	154	149
4919	384524	179	1696	129	0	175	59	223	199	114948	33433	165354	150	142
2522	278265	70	837	103	0	123	49	187	160	112431	40085	140303	148	147
2914	238006	126	1032	74	0	113	38	146	139	104581	32580	116136	116	115
1973	270787	87	618	73	0	117	43	154	148	83243	27652	153990	132	125
1495	155915	51	559	53	0	57	32	117	99	37110	9845	64057	70	66
2910	359764	71	1100	140	0	138	41	158	135	113344	20190	230054	144	137
2764	273950	56	1186	87	0	83	42	159	127	69867	4958	100826	78	78
3697	425253	121	1329	77	0	112	44	161	151	101629	32344	188355	121	117
2254	208277	77	658	80	0	101	52	201	180	96125	19499	106314	155	155
1886	224649	75	593	48	0	95	40	158	137	95676	28527	160792	128	125
496	24188	24	218	20	0	8	4	12	7	5950	2694	15049	7	7
2712	367112	144	1076	63	0	161	42	153	150	120192	41455	197680	207	190
1720	225460	67	447	58	0	107	30	116	87	72128	25696	145707	126	121
1925	195793	66	684	67	0	95	37	134	110	71571	17696	75881	103	101
4147	470376	127	1253	114	0	161	45	175	138	160141	39361	175721	166	157
870	80953	25	437	31	0	49	8	28	27	56622	7905	55792	59	58
1966	150216	54	822	175	0	52	27	101	77	15986	4527	25157	27	27
2836	342522	118	954	91	0	146	57	206	122	93879	36099	170492	92	88
2196	297452	82	800	61	0	164	39	141	104	183500	43840	211381	213	210
2356	296670	67	860	85	0	150	41	155	130	149959	32616	195894	208	204
2007	186856	187	640	116	0	73	36	138	59	57224	11338	80684	73	70
2412	250254	148	830	80	0	105	44	167	98	104978	45873	139292	206	205
2626	268391	50	1174	110	0	129	40	155	125	100046	39844	128602	112	111
2753	314131	91	1067	59	0	169	44	162	135	101047	28317	135848	139	135
1239	153059	77	408	44	0	28	30	112	83	197426	24797	178377	60	59
3174	157578	93	929	79	0	118	41	161	127	160902	7471	106330	70	70
2310	300526	89	690	70	0	147	45	164	115	109432	23201	116938	142	141
398	23623	11	156	9	0	12	1	0	0	1168	238	5841	11	11
2205	195817	73	779	54	0	146	40	155	103	83248	28830	106020	130	130
1604	163871	50	458	107	0	83	45	169	119	45724	9935	74151	132	101
387	21054	16	146	2	0	4	0	0	0	855	338	6622	4	4
492	31961	22	200	22	0	18	8	25	9	14116	3988	13155	39	39
568	38214	34	276	52	0	16	8	27	21	8773	1888	13983	16	16
2792	357602	82	1021	115	0	137	52	198	187	117440	36809	157384	162	160
1395	198104	61	481	78	0	50	53	205	171	104128	24959	122975	173	158
2517	338606	99	873	120	0	157	48	187	145	134047	21849	231257	172	165
1250	187992	35	473	49	0	71	40	151	137	79756	21654	122531	90	89
1121	102424	42	401	55	0	42	36	131	100	66089	8728	61394	50	49
1817	217665	114	613	69	0	38	32	125	45	128692	20954	100187	141	126
207	14688	10	85	0	0	4	0	0	0	6023	2065	7953	5	5
5	98	1	0	0	0	0	0	0	0	0	0	0	0	0
8	455	2	0	0	0	0	0	0	0	0	0	0	0	0
0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
4	203	4	0	0	0	0	0	0	0	0	0	0	0	0
151	7199	5	74	0	0	7	0	0	0	1644	556	4245	6	6
474	46660	20	259	7	0	12	5	15	13	6179	2089	21509	13	13
141	17547	5	69	3	0	0	1	4	4	3926	2658	7670	3	3
1059	116969	45	290	89	0	37	43	152	76	52789	1813	15673	35	35
29	969	2	0	0	0	0	0	0	0	0	0	0	0	0
1247	171533	52	380	48	1	67	27	88	64	43929	10621	100792	73	71
2889	442703	103	1270	101	1	87	39	144	144	103037	18507	150773	140	137
3462	238434	122	1265	159	1	144	45	165	154	83515	31452	96785	140	134
2227	336277	91	812	53	1	140	48	185	178	112302	34811	198299	161	159
947	115658	33	284	36	1	33	17	55	46	31081	12558	58391	41	41
2496	153778	82	1022	82	1	50	45	73	45	93473	9105	121850	52	51
3034	279128	59	1112	125	1	97	37	134	120	100087	32982	129711	137	133
1678	153613	46	622	41	1	62	28	109	89	55918	17326	83963	63	61
3872	384720	209	1513	279	1	81	37	143	137	108535	21261	118845	88	83
3088	179811	105	1045	72	1	165	45	171	159	144551	39039	81716	170	164
2467	273486	97	821	62	1	83	40	150	97	56750	13841	115750	98	96
3093	276134	75	1101	89	1	149	36	140	135	59938	15049	82390	107	107
3153	428191	120	1213	63	1	163	38	140	102	110529	27738	232241	219	216
2537	282410	95	897	192	1	110	46	158	124	67150	16786	114651	145	142
2339	246963	92	811	67	1	128	39	145	126	125386	31852	134218	241	239
2689	305217	108	829	70	1	185	47	168	156	156349	36171	169216	198	194
0	0	0	0	0	1	0	0	0	0	0	0	0	0	0
2683	218443	104	1137	135	2	134	38	148	133	112098	35926	106194	148	145
1918	227636	83	640	67	2	79	36	139	89	70168	19433	104470	112	109
3547	366277	199	1250	50	2	135	42	163	153	103925	36524	164808	158	149
5517	455401	152	2072	849	2	101	41	147	131	114360	11941	79367	71	70
918	78800	42	330	57	2	20	26	82	66	33032	7935	56968	21	21
1450	229585	67	562	58	2	52	37	139	125	114799	37062	153242	131	132
2328	238482	83	853	78	2	137	36	135	116	131072	25270	114268	200	199
1802	194855	53	747	94	2	83	38	133	90	92059	24648	91313	127	126
2327	208804	64	706	58	2	133	38	148	134	71154	18050	80906	112	109
2383	287359	106	688	57	2	118	44	122	92	102812	26759	136323	163	159
2190	224597	43	752	113	2	81	43	163	151	102153	18700	80716	70	69
1922	278077	49	632	83	2	117	41	151	135	92280	34245	147341	140	140
2648	253330	86	1023	52	2	119	36	132	118	154451	34672	134969	154	151
2150	251752	86	747	58	2	72	37	133	88	84601	19354	105406	125	122
1823	206501	69	591	53	2	52	34	125	71	100350	17372	75882	80	72
1748	272545	70	483	90	3	96	38	144	116	140824	32033	186099	165	165
631	70849	28	179	46	3	8	35	129	89	76173	10024	47552	49	47
1438	176082	55	507	41	3	103	29	111	85	125818	31219	111669	169	162
2332	283441	78	921	54	3	123	50	195	179	139165	46201	184531	155	152
2119	176357	57	885	68	3	99	45	164	146	89256	25314	104864	136	133
1161	101097	64	454	70	3	30	14	52	41	31701	5296	45824	35	35
2846	350641	94	1130	48	3	142	36	140	133	126372	30927	165278	183	178
2213	262811	78	680	73	3	161	40	148	138	127654	23841	105590	205	192
3540	329583	117	1260	153	3	114	39	146	137	89506	24347	160501	125	119
1686	152043	54	670	47	3	44	29	107	84	144244	17416	88229	111	107
3388	410575	127	1169	111	3	141	50	186	175	279488	49809	258287	254	246
2035	173260	63	716	37	3	41	21	79	78	37238	2805	10901	16	15
3444	409163	161	1128	123	3	157	52	204	129	68946	22124	174586	174	173
1209	179444	64	429	63	4	71	34	133	127	110459	20654	113854	135	132
2976	364569	80	1176	117	4	139	55	191	171	103297	21857	101345	148	148
3067	343085	162	1196	90	4	100	39	144	92	125081	22355	135213	114	113
1017	101014	39	343	40	4	43	37	141	137	69652	3029	33750	31	31
3371	396684	98	1259	87	4	138	44	168	163	119442	38941	189723	199	185
2062	209049	64	732	61	4	131	38	148	133	81897	21588	89770	140	137
2349	363250	88	995	96	4	140	46	169	144	108146	25217	100125	121	121
2559	328875	82	966	138	4	75	40	156	147	146975	39038	135599	150	144
1662	189654	39	565	64	4	83	36	140	139	161100	34974	119595	132	132
602	43287	14	214	43	4	13	19	71	64	43750	7409	19630	49	49
2147	185468	81	716	85	4	89	23	84	36	48029	18213	88634	82	82
1913	316505	71	627	60	4	76	42	157	149	147172	27259	178303	112	108
530	61857	25	192	25	4	23	11	32	30	25162	3913	24610	31	28
3641	417399	81	1600	134	4	142	48	187	167	134238	37343	191469	171	161
2956	301282	343	972	153	4	94	43	167	159	102070	20920	86480	113	107
4191	425430	179	1482	155	4	115	46	172	163	146760	27195	195791	187	182
1867	162422	77	707	76	4	55	39	143	112	64593	17672	72558	90	90
1447	180393	41	462	62	5	66	25	89	84	82317	16278	111848	74	71
2828	267268	127	1062	91	5	99	41	158	127	103129	22883	158376	147	138
1848	206196	75	668	82	5	78	36	115	108	93487	28395	133252	94	87
744	65029	17	255	21	5	21	18	67	61	32551	3597	25109	21	21
2592	328024	85	678	86	5	130	61	230	228	169707	38975	210012	174	169
3748	344696	192	1128	222	5	132	39	145	137	150491	42721	194679	257	256
1685	175816	70	625	62	5	143	28	102	89	126817	24634	94333	104	98
1369	145943	69	653	45	5	30	26	99	99	38692	9648	68580	38	38
1901	259191	57	652	72	5	110	35	127	127	168553	39932	162519	176	170
2137	252805	52	866	67	5	81	30	111	77	101382	13326	127097	102	97
4213	395382	133	1755	146	5	127	46	172	161	165933	42570	147581	175	173
1915	168994	57	720	122	5	147	50	192	179	150047	21166	75767	132	123
1911	216853	78	643	84	6	44	50	186	149	86652	10971	114198	165	159
1813	182286	64	486	97	6	68	49	181	148	64520	16747	54518	73	71
1995	203663	133	605	54	6	93	35	137	128	143592	24634	113963	158	156
893	73566	32	385	39	6	22	23	88	67	22618	3007	23824	26	25
1926	217036	108	575	50	6	80	41	154	125	249771	18487	181712	68	63
1569	179317	60	458	70	6	76	38	139	137	123534	41517	100922	108	108
2065	217320	59	740	75	7	83	34	132	117	144408	34416	115466	125	124
2155	239766	118	672	61	7	117	55	210	184	81625	20648	94853	98	93
2197	242622	86	718	58	7	78	45	175	171	88977	20065	111563	115	113
2107	243164	67	702	79	7	76	48	183	163	135356	27111	91502	121	118
2243	325587	69	811	58	8	114	36	140	139	167949	35902	164263	197	194
2347	266736	87	689	64	8	135	51	199	193	136588	21983	134163	200	186
2590	380576	322	840	81	8	88	44	163	157	149695	20867	191179	165	158
2611	264889	89	931	59	8	92	42	163	142	104767	26584	124527	130	126
2751	291970	137	868	83	8	121	51	198	176	140358	40312	117495	125	125
1717	189897	54	601	65	9	103	52	208	208	118906	24662	102509	128	123
2752	239986	146	838	89	9	85	44	167	148	89626	27269	134904	138	133
4081	384177	122	1606	131	9	95	45	169	144	124089	16378	130332	125	123
2	1	0	0	0	9	0	0	0	0	0	0	0	0	0
1877	185384	73	718	60	10	53	37	122	113	68788	12347	72591	70	70
2156	251622	85	691	50	10	80	44	162	87	69446	11034	113713	100	100
3281	329639	81	1499	44	10	123	41	151	128	92622	26041	134097	123	123
1781	186409	69	699	75	10	76	41	148	111	79011	16637	80238	104	103
4092	358127	120	1380	120	10	149	50	193	177	151911	22938	191889	174	172
4032	385286	143	1324	70	10	159	51	198	181	151715	26719	197765	171	171
1840	190312	65	600	86	10	48	31	114	90	65594	8589	92795	96	94
2981	272297	117	1197	72	11	102	43	169	97	59900	12526	96252	83	80
3000	325961	102	960	60	11	145	49	190	149	140015	38086	145758	175	170
2265	261528	84	864	86	12	89	40	155	141	95893	23923	81180	103	100
3165	304468	117	1145	146	12	139	28	101	73	176225	53405	214738	279	267
4037	393266	154	1326	130	12	152	65	251	248	165986	43146	189944	208	193
2539	239337	70	865	64	13	99	45	173	154	81351	17828	102204	111	109
3726	399801	109	1421	74	13	165	31	118	110	184923	50099	226168	307	297
1695	175582	91	503	112	13	55	48	181	146	116066	3938	24469	42	41
1759	143860	54	546	106	15	63	42	160	149	154771	1037	18284	16	16
1845	222373	70	673	59	16	70	42	162	106	105079	16346	99776	121	121




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157905&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 time6 seconds
R Server'AstonUniversity' @ aston.wessa.net







Goodness of Fit
Correlation0.8679
R-squared0.7533
RMSE25816.4301

\begin{tabular}{lllllllll}
\hline
Goodness of Fit \tabularnewline
Correlation & 0.8679 \tabularnewline
R-squared & 0.7533 \tabularnewline
RMSE & 25816.4301 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157905&T=1

[TABLE]
[ROW][C]Goodness of Fit[/C][/ROW]
[ROW][C]Correlation[/C][C]0.8679[/C][/ROW]
[ROW][C]R-squared[/C][C]0.7533[/C][/ROW]
[ROW][C]RMSE[/C][C]25816.4301[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=157905&T=1

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

As an alternative you can also use a QR Code:  

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

Goodness of Fit
Correlation0.8679
R-squared0.7533
RMSE25816.4301







Actuals, Predictions, and Residuals
#ActualsForecastsResiduals
1187326156589.18518518530736.8148148148
2228073034.519772.5
36648583720.9666666667-17235.9666666667
479089104090.808510638-25001.8085106383
5114948104090.80851063810857.1914893617
6112431133688.6-21257.6
7104581104090.808510638490.191489361707
883243104090.808510638-20847.8085106383
93711072925.2727272727-35815.2727272727
10113344156589.185185185-43245.1851851852
116986783720.9666666667-13853.9666666667
12101629156589.185185185-54960.1851851852
1396125104090.808510638-7965.8085106383
1495676104090.808510638-8414.8085106383
1559503034.52915.5
16120192156589.185185185-36397.1851851852
1772128104090.808510638-31962.8085106383
187157183720.9666666667-12149.9666666667
19160141156589.1851851853551.8148148148
205662231186.076923076925435.9230769231
211598631186.0769230769-15200.0769230769
2293879133688.6-39809.6
23183500156589.18518518526910.8148148148
24149959156589.185185185-6630.1851851852
255722483720.9666666667-26496.9666666667
26104978133688.6-28710.6
27100046133688.6-33642.6
28101047104090.808510638-3043.80851063829
29197426156589.18518518540836.8148148148
3016090283720.966666666777181.0333333333
31109432104090.8085106385341.19148936171
3211683034.5-1866.5
3383248104090.808510638-20842.8085106383
344572472925.2727272727-27201.2727272727
358553034.5-2179.5
361411631186.0769230769-17070.0769230769
37877331186.0769230769-22413.0769230769
38117440133688.6-16248.6
39104128104090.80851063837.1914893617068
40134047156589.185185185-22542.1851851852
417975683720.9666666667-3964.96666666666
426608972925.2727272727-6836.27272727272
43128692104090.80851063824601.1914893617
4460233034.52988.5
4503034.5-3034.5
4603034.5-3034.5
4703034.5-3034.5
4803034.5-3034.5
4903034.5-3034.5
5016443034.5-1390.5
5161793034.53144.5
5239263034.5891.5
535278931186.076923076921602.9230769231
5403034.5-3034.5
554392983720.9666666667-39791.9666666667
56103037104090.808510638-1053.80851063829
5783515104090.808510638-20575.8085106383
58112302156589.185185185-44287.1851851852
593108131186.0769230769-105.076923076922
609347383720.96666666679752.03333333334
61100087104090.808510638-4003.80851063829
625591883720.9666666667-27802.9666666667
6310853583720.966666666724814.0333333333
64144551133688.610862.4
655675083720.9666666667-26970.9666666667
665993883720.9666666667-23782.9666666667
67110529156589.185185185-46060.1851851852
6867150104090.808510638-36940.8085106383
69125386104090.80851063821295.1914893617
70156349133688.622660.4
7103034.5-3034.5
72112098133688.6-21590.6
737016883720.9666666667-13552.9666666667
74103925133688.6-29763.6
7511436083720.966666666730639.0333333333
763303231186.07692307691845.92307692308
77114799133688.6-18889.6
78131072104090.80851063826981.1914893617
7992059104090.808510638-12031.8085106383
807115483720.9666666667-12566.9666666667
81102812104090.808510638-1278.80851063829
8210215383720.966666666718432.0333333333
8392280104090.808510638-11810.8085106383
84154451133688.620762.4
8584601104090.808510638-19489.8085106383
8610035083720.966666666716629.0333333333
87140824156589.185185185-15765.1851851852
887617372925.27272727273247.72727272728
89125818104090.80851063821727.1914893617
90139165156589.185185185-17424.1851851852
9189256104090.808510638-14834.8085106383
923170131186.0769230769514.923076923078
93126372104090.80851063822281.1914893617
94127654104090.80851063823563.1914893617
9589506104090.808510638-14584.8085106383
9614424483720.966666666760523.0333333333
97279488156589.185185185122898.814814815
983723831186.07692307696051.92307692308
9968946104090.808510638-35144.8085106383
100110459104090.8085106386368.1914893617
101103297104090.808510638-793.808510638293
102125081104090.80851063820990.1914893617
1036965272925.2727272727-3273.27272727272
104119442156589.185185185-37147.1851851852
10581897104090.808510638-22193.8085106383
106108146104090.8085106384055.19148936171
107146975133688.613286.4
108161100133688.627411.4
1094375031186.076923076912563.9230769231
1104802983720.9666666667-35691.9666666667
111147172156589.185185185-9417.1851851852
1122516231186.0769230769-6024.07692307692
113134238156589.185185185-22351.1851851852
114102070104090.808510638-2020.80851063829
115146760156589.185185185-9829.1851851852
1166459372925.2727272727-8332.27272727272
1178231783720.9666666667-1403.96666666666
118103129104090.808510638-961.808510638293
1199348783720.96666666679766.03333333334
1203255131186.07692307691364.92307692308
121169707156589.18518518513117.8148148148
122150491156589.185185185-6098.1851851852
12312681783720.966666666743096.0333333333
1243869272925.2727272727-34233.2727272727
125168553133688.634864.4
12610138283720.966666666717661.0333333333
127165933133688.632244.4
128150047104090.80851063845956.1914893617
12986652104090.808510638-17438.8085106383
1306452072925.2727272727-8405.27272727272
131143592104090.80851063839501.1914893617
1322261831186.0769230769-8568.07692307692
133249771156589.18518518593181.8148148148
134123534133688.6-10154.6
135144408133688.610719.4
1368162583720.9666666667-2095.96666666666
13788977104090.808510638-15113.8085106383
138135356104090.80851063831265.1914893617
139167949133688.634260.4
140136588104090.80851063832497.1914893617
141149695156589.185185185-6894.1851851852
142104767104090.808510638676.191489361707
143140358133688.66669.4
144118906104090.80851063814815.1914893617
14589626104090.808510638-14464.8085106383
146124089104090.80851063819998.1914893617
14703034.5-3034.5
1486878872925.2727272727-4137.27272727272
1496944683720.9666666667-14274.9666666667
15092622104090.808510638-11468.8085106383
1517901183720.9666666667-4709.96666666666
152151911156589.185185185-4678.1851851852
153151715156589.185185185-4874.1851851852
1546559483720.9666666667-18126.9666666667
1555990083720.9666666667-23820.9666666667
156140015133688.66326.4
1579589383720.966666666712172.0333333333
158176225156589.18518518519635.8148148148
159165986156589.1851851859396.8148148148
1608135183720.9666666667-2369.96666666666
161184923156589.18518518528333.8148148148
16211606672925.272727272743140.7272727273
16315477172925.272727272781845.7272727273
164105079104090.808510638988.191489361707

\begin{tabular}{lllllllll}
\hline
Actuals, Predictions, and Residuals \tabularnewline
# & Actuals & Forecasts & Residuals \tabularnewline
1 & 187326 & 156589.185185185 & 30736.8148148148 \tabularnewline
2 & 22807 & 3034.5 & 19772.5 \tabularnewline
3 & 66485 & 83720.9666666667 & -17235.9666666667 \tabularnewline
4 & 79089 & 104090.808510638 & -25001.8085106383 \tabularnewline
5 & 114948 & 104090.808510638 & 10857.1914893617 \tabularnewline
6 & 112431 & 133688.6 & -21257.6 \tabularnewline
7 & 104581 & 104090.808510638 & 490.191489361707 \tabularnewline
8 & 83243 & 104090.808510638 & -20847.8085106383 \tabularnewline
9 & 37110 & 72925.2727272727 & -35815.2727272727 \tabularnewline
10 & 113344 & 156589.185185185 & -43245.1851851852 \tabularnewline
11 & 69867 & 83720.9666666667 & -13853.9666666667 \tabularnewline
12 & 101629 & 156589.185185185 & -54960.1851851852 \tabularnewline
13 & 96125 & 104090.808510638 & -7965.8085106383 \tabularnewline
14 & 95676 & 104090.808510638 & -8414.8085106383 \tabularnewline
15 & 5950 & 3034.5 & 2915.5 \tabularnewline
16 & 120192 & 156589.185185185 & -36397.1851851852 \tabularnewline
17 & 72128 & 104090.808510638 & -31962.8085106383 \tabularnewline
18 & 71571 & 83720.9666666667 & -12149.9666666667 \tabularnewline
19 & 160141 & 156589.185185185 & 3551.8148148148 \tabularnewline
20 & 56622 & 31186.0769230769 & 25435.9230769231 \tabularnewline
21 & 15986 & 31186.0769230769 & -15200.0769230769 \tabularnewline
22 & 93879 & 133688.6 & -39809.6 \tabularnewline
23 & 183500 & 156589.185185185 & 26910.8148148148 \tabularnewline
24 & 149959 & 156589.185185185 & -6630.1851851852 \tabularnewline
25 & 57224 & 83720.9666666667 & -26496.9666666667 \tabularnewline
26 & 104978 & 133688.6 & -28710.6 \tabularnewline
27 & 100046 & 133688.6 & -33642.6 \tabularnewline
28 & 101047 & 104090.808510638 & -3043.80851063829 \tabularnewline
29 & 197426 & 156589.185185185 & 40836.8148148148 \tabularnewline
30 & 160902 & 83720.9666666667 & 77181.0333333333 \tabularnewline
31 & 109432 & 104090.808510638 & 5341.19148936171 \tabularnewline
32 & 1168 & 3034.5 & -1866.5 \tabularnewline
33 & 83248 & 104090.808510638 & -20842.8085106383 \tabularnewline
34 & 45724 & 72925.2727272727 & -27201.2727272727 \tabularnewline
35 & 855 & 3034.5 & -2179.5 \tabularnewline
36 & 14116 & 31186.0769230769 & -17070.0769230769 \tabularnewline
37 & 8773 & 31186.0769230769 & -22413.0769230769 \tabularnewline
38 & 117440 & 133688.6 & -16248.6 \tabularnewline
39 & 104128 & 104090.808510638 & 37.1914893617068 \tabularnewline
40 & 134047 & 156589.185185185 & -22542.1851851852 \tabularnewline
41 & 79756 & 83720.9666666667 & -3964.96666666666 \tabularnewline
42 & 66089 & 72925.2727272727 & -6836.27272727272 \tabularnewline
43 & 128692 & 104090.808510638 & 24601.1914893617 \tabularnewline
44 & 6023 & 3034.5 & 2988.5 \tabularnewline
45 & 0 & 3034.5 & -3034.5 \tabularnewline
46 & 0 & 3034.5 & -3034.5 \tabularnewline
47 & 0 & 3034.5 & -3034.5 \tabularnewline
48 & 0 & 3034.5 & -3034.5 \tabularnewline
49 & 0 & 3034.5 & -3034.5 \tabularnewline
50 & 1644 & 3034.5 & -1390.5 \tabularnewline
51 & 6179 & 3034.5 & 3144.5 \tabularnewline
52 & 3926 & 3034.5 & 891.5 \tabularnewline
53 & 52789 & 31186.0769230769 & 21602.9230769231 \tabularnewline
54 & 0 & 3034.5 & -3034.5 \tabularnewline
55 & 43929 & 83720.9666666667 & -39791.9666666667 \tabularnewline
56 & 103037 & 104090.808510638 & -1053.80851063829 \tabularnewline
57 & 83515 & 104090.808510638 & -20575.8085106383 \tabularnewline
58 & 112302 & 156589.185185185 & -44287.1851851852 \tabularnewline
59 & 31081 & 31186.0769230769 & -105.076923076922 \tabularnewline
60 & 93473 & 83720.9666666667 & 9752.03333333334 \tabularnewline
61 & 100087 & 104090.808510638 & -4003.80851063829 \tabularnewline
62 & 55918 & 83720.9666666667 & -27802.9666666667 \tabularnewline
63 & 108535 & 83720.9666666667 & 24814.0333333333 \tabularnewline
64 & 144551 & 133688.6 & 10862.4 \tabularnewline
65 & 56750 & 83720.9666666667 & -26970.9666666667 \tabularnewline
66 & 59938 & 83720.9666666667 & -23782.9666666667 \tabularnewline
67 & 110529 & 156589.185185185 & -46060.1851851852 \tabularnewline
68 & 67150 & 104090.808510638 & -36940.8085106383 \tabularnewline
69 & 125386 & 104090.808510638 & 21295.1914893617 \tabularnewline
70 & 156349 & 133688.6 & 22660.4 \tabularnewline
71 & 0 & 3034.5 & -3034.5 \tabularnewline
72 & 112098 & 133688.6 & -21590.6 \tabularnewline
73 & 70168 & 83720.9666666667 & -13552.9666666667 \tabularnewline
74 & 103925 & 133688.6 & -29763.6 \tabularnewline
75 & 114360 & 83720.9666666667 & 30639.0333333333 \tabularnewline
76 & 33032 & 31186.0769230769 & 1845.92307692308 \tabularnewline
77 & 114799 & 133688.6 & -18889.6 \tabularnewline
78 & 131072 & 104090.808510638 & 26981.1914893617 \tabularnewline
79 & 92059 & 104090.808510638 & -12031.8085106383 \tabularnewline
80 & 71154 & 83720.9666666667 & -12566.9666666667 \tabularnewline
81 & 102812 & 104090.808510638 & -1278.80851063829 \tabularnewline
82 & 102153 & 83720.9666666667 & 18432.0333333333 \tabularnewline
83 & 92280 & 104090.808510638 & -11810.8085106383 \tabularnewline
84 & 154451 & 133688.6 & 20762.4 \tabularnewline
85 & 84601 & 104090.808510638 & -19489.8085106383 \tabularnewline
86 & 100350 & 83720.9666666667 & 16629.0333333333 \tabularnewline
87 & 140824 & 156589.185185185 & -15765.1851851852 \tabularnewline
88 & 76173 & 72925.2727272727 & 3247.72727272728 \tabularnewline
89 & 125818 & 104090.808510638 & 21727.1914893617 \tabularnewline
90 & 139165 & 156589.185185185 & -17424.1851851852 \tabularnewline
91 & 89256 & 104090.808510638 & -14834.8085106383 \tabularnewline
92 & 31701 & 31186.0769230769 & 514.923076923078 \tabularnewline
93 & 126372 & 104090.808510638 & 22281.1914893617 \tabularnewline
94 & 127654 & 104090.808510638 & 23563.1914893617 \tabularnewline
95 & 89506 & 104090.808510638 & -14584.8085106383 \tabularnewline
96 & 144244 & 83720.9666666667 & 60523.0333333333 \tabularnewline
97 & 279488 & 156589.185185185 & 122898.814814815 \tabularnewline
98 & 37238 & 31186.0769230769 & 6051.92307692308 \tabularnewline
99 & 68946 & 104090.808510638 & -35144.8085106383 \tabularnewline
100 & 110459 & 104090.808510638 & 6368.1914893617 \tabularnewline
101 & 103297 & 104090.808510638 & -793.808510638293 \tabularnewline
102 & 125081 & 104090.808510638 & 20990.1914893617 \tabularnewline
103 & 69652 & 72925.2727272727 & -3273.27272727272 \tabularnewline
104 & 119442 & 156589.185185185 & -37147.1851851852 \tabularnewline
105 & 81897 & 104090.808510638 & -22193.8085106383 \tabularnewline
106 & 108146 & 104090.808510638 & 4055.19148936171 \tabularnewline
107 & 146975 & 133688.6 & 13286.4 \tabularnewline
108 & 161100 & 133688.6 & 27411.4 \tabularnewline
109 & 43750 & 31186.0769230769 & 12563.9230769231 \tabularnewline
110 & 48029 & 83720.9666666667 & -35691.9666666667 \tabularnewline
111 & 147172 & 156589.185185185 & -9417.1851851852 \tabularnewline
112 & 25162 & 31186.0769230769 & -6024.07692307692 \tabularnewline
113 & 134238 & 156589.185185185 & -22351.1851851852 \tabularnewline
114 & 102070 & 104090.808510638 & -2020.80851063829 \tabularnewline
115 & 146760 & 156589.185185185 & -9829.1851851852 \tabularnewline
116 & 64593 & 72925.2727272727 & -8332.27272727272 \tabularnewline
117 & 82317 & 83720.9666666667 & -1403.96666666666 \tabularnewline
118 & 103129 & 104090.808510638 & -961.808510638293 \tabularnewline
119 & 93487 & 83720.9666666667 & 9766.03333333334 \tabularnewline
120 & 32551 & 31186.0769230769 & 1364.92307692308 \tabularnewline
121 & 169707 & 156589.185185185 & 13117.8148148148 \tabularnewline
122 & 150491 & 156589.185185185 & -6098.1851851852 \tabularnewline
123 & 126817 & 83720.9666666667 & 43096.0333333333 \tabularnewline
124 & 38692 & 72925.2727272727 & -34233.2727272727 \tabularnewline
125 & 168553 & 133688.6 & 34864.4 \tabularnewline
126 & 101382 & 83720.9666666667 & 17661.0333333333 \tabularnewline
127 & 165933 & 133688.6 & 32244.4 \tabularnewline
128 & 150047 & 104090.808510638 & 45956.1914893617 \tabularnewline
129 & 86652 & 104090.808510638 & -17438.8085106383 \tabularnewline
130 & 64520 & 72925.2727272727 & -8405.27272727272 \tabularnewline
131 & 143592 & 104090.808510638 & 39501.1914893617 \tabularnewline
132 & 22618 & 31186.0769230769 & -8568.07692307692 \tabularnewline
133 & 249771 & 156589.185185185 & 93181.8148148148 \tabularnewline
134 & 123534 & 133688.6 & -10154.6 \tabularnewline
135 & 144408 & 133688.6 & 10719.4 \tabularnewline
136 & 81625 & 83720.9666666667 & -2095.96666666666 \tabularnewline
137 & 88977 & 104090.808510638 & -15113.8085106383 \tabularnewline
138 & 135356 & 104090.808510638 & 31265.1914893617 \tabularnewline
139 & 167949 & 133688.6 & 34260.4 \tabularnewline
140 & 136588 & 104090.808510638 & 32497.1914893617 \tabularnewline
141 & 149695 & 156589.185185185 & -6894.1851851852 \tabularnewline
142 & 104767 & 104090.808510638 & 676.191489361707 \tabularnewline
143 & 140358 & 133688.6 & 6669.4 \tabularnewline
144 & 118906 & 104090.808510638 & 14815.1914893617 \tabularnewline
145 & 89626 & 104090.808510638 & -14464.8085106383 \tabularnewline
146 & 124089 & 104090.808510638 & 19998.1914893617 \tabularnewline
147 & 0 & 3034.5 & -3034.5 \tabularnewline
148 & 68788 & 72925.2727272727 & -4137.27272727272 \tabularnewline
149 & 69446 & 83720.9666666667 & -14274.9666666667 \tabularnewline
150 & 92622 & 104090.808510638 & -11468.8085106383 \tabularnewline
151 & 79011 & 83720.9666666667 & -4709.96666666666 \tabularnewline
152 & 151911 & 156589.185185185 & -4678.1851851852 \tabularnewline
153 & 151715 & 156589.185185185 & -4874.1851851852 \tabularnewline
154 & 65594 & 83720.9666666667 & -18126.9666666667 \tabularnewline
155 & 59900 & 83720.9666666667 & -23820.9666666667 \tabularnewline
156 & 140015 & 133688.6 & 6326.4 \tabularnewline
157 & 95893 & 83720.9666666667 & 12172.0333333333 \tabularnewline
158 & 176225 & 156589.185185185 & 19635.8148148148 \tabularnewline
159 & 165986 & 156589.185185185 & 9396.8148148148 \tabularnewline
160 & 81351 & 83720.9666666667 & -2369.96666666666 \tabularnewline
161 & 184923 & 156589.185185185 & 28333.8148148148 \tabularnewline
162 & 116066 & 72925.2727272727 & 43140.7272727273 \tabularnewline
163 & 154771 & 72925.2727272727 & 81845.7272727273 \tabularnewline
164 & 105079 & 104090.808510638 & 988.191489361707 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157905&T=2

[TABLE]
[ROW][C]Actuals, Predictions, and Residuals[/C][/ROW]
[ROW][C]#[/C][C]Actuals[/C][C]Forecasts[/C][C]Residuals[/C][/ROW]
[ROW][C]1[/C][C]187326[/C][C]156589.185185185[/C][C]30736.8148148148[/C][/ROW]
[ROW][C]2[/C][C]22807[/C][C]3034.5[/C][C]19772.5[/C][/ROW]
[ROW][C]3[/C][C]66485[/C][C]83720.9666666667[/C][C]-17235.9666666667[/C][/ROW]
[ROW][C]4[/C][C]79089[/C][C]104090.808510638[/C][C]-25001.8085106383[/C][/ROW]
[ROW][C]5[/C][C]114948[/C][C]104090.808510638[/C][C]10857.1914893617[/C][/ROW]
[ROW][C]6[/C][C]112431[/C][C]133688.6[/C][C]-21257.6[/C][/ROW]
[ROW][C]7[/C][C]104581[/C][C]104090.808510638[/C][C]490.191489361707[/C][/ROW]
[ROW][C]8[/C][C]83243[/C][C]104090.808510638[/C][C]-20847.8085106383[/C][/ROW]
[ROW][C]9[/C][C]37110[/C][C]72925.2727272727[/C][C]-35815.2727272727[/C][/ROW]
[ROW][C]10[/C][C]113344[/C][C]156589.185185185[/C][C]-43245.1851851852[/C][/ROW]
[ROW][C]11[/C][C]69867[/C][C]83720.9666666667[/C][C]-13853.9666666667[/C][/ROW]
[ROW][C]12[/C][C]101629[/C][C]156589.185185185[/C][C]-54960.1851851852[/C][/ROW]
[ROW][C]13[/C][C]96125[/C][C]104090.808510638[/C][C]-7965.8085106383[/C][/ROW]
[ROW][C]14[/C][C]95676[/C][C]104090.808510638[/C][C]-8414.8085106383[/C][/ROW]
[ROW][C]15[/C][C]5950[/C][C]3034.5[/C][C]2915.5[/C][/ROW]
[ROW][C]16[/C][C]120192[/C][C]156589.185185185[/C][C]-36397.1851851852[/C][/ROW]
[ROW][C]17[/C][C]72128[/C][C]104090.808510638[/C][C]-31962.8085106383[/C][/ROW]
[ROW][C]18[/C][C]71571[/C][C]83720.9666666667[/C][C]-12149.9666666667[/C][/ROW]
[ROW][C]19[/C][C]160141[/C][C]156589.185185185[/C][C]3551.8148148148[/C][/ROW]
[ROW][C]20[/C][C]56622[/C][C]31186.0769230769[/C][C]25435.9230769231[/C][/ROW]
[ROW][C]21[/C][C]15986[/C][C]31186.0769230769[/C][C]-15200.0769230769[/C][/ROW]
[ROW][C]22[/C][C]93879[/C][C]133688.6[/C][C]-39809.6[/C][/ROW]
[ROW][C]23[/C][C]183500[/C][C]156589.185185185[/C][C]26910.8148148148[/C][/ROW]
[ROW][C]24[/C][C]149959[/C][C]156589.185185185[/C][C]-6630.1851851852[/C][/ROW]
[ROW][C]25[/C][C]57224[/C][C]83720.9666666667[/C][C]-26496.9666666667[/C][/ROW]
[ROW][C]26[/C][C]104978[/C][C]133688.6[/C][C]-28710.6[/C][/ROW]
[ROW][C]27[/C][C]100046[/C][C]133688.6[/C][C]-33642.6[/C][/ROW]
[ROW][C]28[/C][C]101047[/C][C]104090.808510638[/C][C]-3043.80851063829[/C][/ROW]
[ROW][C]29[/C][C]197426[/C][C]156589.185185185[/C][C]40836.8148148148[/C][/ROW]
[ROW][C]30[/C][C]160902[/C][C]83720.9666666667[/C][C]77181.0333333333[/C][/ROW]
[ROW][C]31[/C][C]109432[/C][C]104090.808510638[/C][C]5341.19148936171[/C][/ROW]
[ROW][C]32[/C][C]1168[/C][C]3034.5[/C][C]-1866.5[/C][/ROW]
[ROW][C]33[/C][C]83248[/C][C]104090.808510638[/C][C]-20842.8085106383[/C][/ROW]
[ROW][C]34[/C][C]45724[/C][C]72925.2727272727[/C][C]-27201.2727272727[/C][/ROW]
[ROW][C]35[/C][C]855[/C][C]3034.5[/C][C]-2179.5[/C][/ROW]
[ROW][C]36[/C][C]14116[/C][C]31186.0769230769[/C][C]-17070.0769230769[/C][/ROW]
[ROW][C]37[/C][C]8773[/C][C]31186.0769230769[/C][C]-22413.0769230769[/C][/ROW]
[ROW][C]38[/C][C]117440[/C][C]133688.6[/C][C]-16248.6[/C][/ROW]
[ROW][C]39[/C][C]104128[/C][C]104090.808510638[/C][C]37.1914893617068[/C][/ROW]
[ROW][C]40[/C][C]134047[/C][C]156589.185185185[/C][C]-22542.1851851852[/C][/ROW]
[ROW][C]41[/C][C]79756[/C][C]83720.9666666667[/C][C]-3964.96666666666[/C][/ROW]
[ROW][C]42[/C][C]66089[/C][C]72925.2727272727[/C][C]-6836.27272727272[/C][/ROW]
[ROW][C]43[/C][C]128692[/C][C]104090.808510638[/C][C]24601.1914893617[/C][/ROW]
[ROW][C]44[/C][C]6023[/C][C]3034.5[/C][C]2988.5[/C][/ROW]
[ROW][C]45[/C][C]0[/C][C]3034.5[/C][C]-3034.5[/C][/ROW]
[ROW][C]46[/C][C]0[/C][C]3034.5[/C][C]-3034.5[/C][/ROW]
[ROW][C]47[/C][C]0[/C][C]3034.5[/C][C]-3034.5[/C][/ROW]
[ROW][C]48[/C][C]0[/C][C]3034.5[/C][C]-3034.5[/C][/ROW]
[ROW][C]49[/C][C]0[/C][C]3034.5[/C][C]-3034.5[/C][/ROW]
[ROW][C]50[/C][C]1644[/C][C]3034.5[/C][C]-1390.5[/C][/ROW]
[ROW][C]51[/C][C]6179[/C][C]3034.5[/C][C]3144.5[/C][/ROW]
[ROW][C]52[/C][C]3926[/C][C]3034.5[/C][C]891.5[/C][/ROW]
[ROW][C]53[/C][C]52789[/C][C]31186.0769230769[/C][C]21602.9230769231[/C][/ROW]
[ROW][C]54[/C][C]0[/C][C]3034.5[/C][C]-3034.5[/C][/ROW]
[ROW][C]55[/C][C]43929[/C][C]83720.9666666667[/C][C]-39791.9666666667[/C][/ROW]
[ROW][C]56[/C][C]103037[/C][C]104090.808510638[/C][C]-1053.80851063829[/C][/ROW]
[ROW][C]57[/C][C]83515[/C][C]104090.808510638[/C][C]-20575.8085106383[/C][/ROW]
[ROW][C]58[/C][C]112302[/C][C]156589.185185185[/C][C]-44287.1851851852[/C][/ROW]
[ROW][C]59[/C][C]31081[/C][C]31186.0769230769[/C][C]-105.076923076922[/C][/ROW]
[ROW][C]60[/C][C]93473[/C][C]83720.9666666667[/C][C]9752.03333333334[/C][/ROW]
[ROW][C]61[/C][C]100087[/C][C]104090.808510638[/C][C]-4003.80851063829[/C][/ROW]
[ROW][C]62[/C][C]55918[/C][C]83720.9666666667[/C][C]-27802.9666666667[/C][/ROW]
[ROW][C]63[/C][C]108535[/C][C]83720.9666666667[/C][C]24814.0333333333[/C][/ROW]
[ROW][C]64[/C][C]144551[/C][C]133688.6[/C][C]10862.4[/C][/ROW]
[ROW][C]65[/C][C]56750[/C][C]83720.9666666667[/C][C]-26970.9666666667[/C][/ROW]
[ROW][C]66[/C][C]59938[/C][C]83720.9666666667[/C][C]-23782.9666666667[/C][/ROW]
[ROW][C]67[/C][C]110529[/C][C]156589.185185185[/C][C]-46060.1851851852[/C][/ROW]
[ROW][C]68[/C][C]67150[/C][C]104090.808510638[/C][C]-36940.8085106383[/C][/ROW]
[ROW][C]69[/C][C]125386[/C][C]104090.808510638[/C][C]21295.1914893617[/C][/ROW]
[ROW][C]70[/C][C]156349[/C][C]133688.6[/C][C]22660.4[/C][/ROW]
[ROW][C]71[/C][C]0[/C][C]3034.5[/C][C]-3034.5[/C][/ROW]
[ROW][C]72[/C][C]112098[/C][C]133688.6[/C][C]-21590.6[/C][/ROW]
[ROW][C]73[/C][C]70168[/C][C]83720.9666666667[/C][C]-13552.9666666667[/C][/ROW]
[ROW][C]74[/C][C]103925[/C][C]133688.6[/C][C]-29763.6[/C][/ROW]
[ROW][C]75[/C][C]114360[/C][C]83720.9666666667[/C][C]30639.0333333333[/C][/ROW]
[ROW][C]76[/C][C]33032[/C][C]31186.0769230769[/C][C]1845.92307692308[/C][/ROW]
[ROW][C]77[/C][C]114799[/C][C]133688.6[/C][C]-18889.6[/C][/ROW]
[ROW][C]78[/C][C]131072[/C][C]104090.808510638[/C][C]26981.1914893617[/C][/ROW]
[ROW][C]79[/C][C]92059[/C][C]104090.808510638[/C][C]-12031.8085106383[/C][/ROW]
[ROW][C]80[/C][C]71154[/C][C]83720.9666666667[/C][C]-12566.9666666667[/C][/ROW]
[ROW][C]81[/C][C]102812[/C][C]104090.808510638[/C][C]-1278.80851063829[/C][/ROW]
[ROW][C]82[/C][C]102153[/C][C]83720.9666666667[/C][C]18432.0333333333[/C][/ROW]
[ROW][C]83[/C][C]92280[/C][C]104090.808510638[/C][C]-11810.8085106383[/C][/ROW]
[ROW][C]84[/C][C]154451[/C][C]133688.6[/C][C]20762.4[/C][/ROW]
[ROW][C]85[/C][C]84601[/C][C]104090.808510638[/C][C]-19489.8085106383[/C][/ROW]
[ROW][C]86[/C][C]100350[/C][C]83720.9666666667[/C][C]16629.0333333333[/C][/ROW]
[ROW][C]87[/C][C]140824[/C][C]156589.185185185[/C][C]-15765.1851851852[/C][/ROW]
[ROW][C]88[/C][C]76173[/C][C]72925.2727272727[/C][C]3247.72727272728[/C][/ROW]
[ROW][C]89[/C][C]125818[/C][C]104090.808510638[/C][C]21727.1914893617[/C][/ROW]
[ROW][C]90[/C][C]139165[/C][C]156589.185185185[/C][C]-17424.1851851852[/C][/ROW]
[ROW][C]91[/C][C]89256[/C][C]104090.808510638[/C][C]-14834.8085106383[/C][/ROW]
[ROW][C]92[/C][C]31701[/C][C]31186.0769230769[/C][C]514.923076923078[/C][/ROW]
[ROW][C]93[/C][C]126372[/C][C]104090.808510638[/C][C]22281.1914893617[/C][/ROW]
[ROW][C]94[/C][C]127654[/C][C]104090.808510638[/C][C]23563.1914893617[/C][/ROW]
[ROW][C]95[/C][C]89506[/C][C]104090.808510638[/C][C]-14584.8085106383[/C][/ROW]
[ROW][C]96[/C][C]144244[/C][C]83720.9666666667[/C][C]60523.0333333333[/C][/ROW]
[ROW][C]97[/C][C]279488[/C][C]156589.185185185[/C][C]122898.814814815[/C][/ROW]
[ROW][C]98[/C][C]37238[/C][C]31186.0769230769[/C][C]6051.92307692308[/C][/ROW]
[ROW][C]99[/C][C]68946[/C][C]104090.808510638[/C][C]-35144.8085106383[/C][/ROW]
[ROW][C]100[/C][C]110459[/C][C]104090.808510638[/C][C]6368.1914893617[/C][/ROW]
[ROW][C]101[/C][C]103297[/C][C]104090.808510638[/C][C]-793.808510638293[/C][/ROW]
[ROW][C]102[/C][C]125081[/C][C]104090.808510638[/C][C]20990.1914893617[/C][/ROW]
[ROW][C]103[/C][C]69652[/C][C]72925.2727272727[/C][C]-3273.27272727272[/C][/ROW]
[ROW][C]104[/C][C]119442[/C][C]156589.185185185[/C][C]-37147.1851851852[/C][/ROW]
[ROW][C]105[/C][C]81897[/C][C]104090.808510638[/C][C]-22193.8085106383[/C][/ROW]
[ROW][C]106[/C][C]108146[/C][C]104090.808510638[/C][C]4055.19148936171[/C][/ROW]
[ROW][C]107[/C][C]146975[/C][C]133688.6[/C][C]13286.4[/C][/ROW]
[ROW][C]108[/C][C]161100[/C][C]133688.6[/C][C]27411.4[/C][/ROW]
[ROW][C]109[/C][C]43750[/C][C]31186.0769230769[/C][C]12563.9230769231[/C][/ROW]
[ROW][C]110[/C][C]48029[/C][C]83720.9666666667[/C][C]-35691.9666666667[/C][/ROW]
[ROW][C]111[/C][C]147172[/C][C]156589.185185185[/C][C]-9417.1851851852[/C][/ROW]
[ROW][C]112[/C][C]25162[/C][C]31186.0769230769[/C][C]-6024.07692307692[/C][/ROW]
[ROW][C]113[/C][C]134238[/C][C]156589.185185185[/C][C]-22351.1851851852[/C][/ROW]
[ROW][C]114[/C][C]102070[/C][C]104090.808510638[/C][C]-2020.80851063829[/C][/ROW]
[ROW][C]115[/C][C]146760[/C][C]156589.185185185[/C][C]-9829.1851851852[/C][/ROW]
[ROW][C]116[/C][C]64593[/C][C]72925.2727272727[/C][C]-8332.27272727272[/C][/ROW]
[ROW][C]117[/C][C]82317[/C][C]83720.9666666667[/C][C]-1403.96666666666[/C][/ROW]
[ROW][C]118[/C][C]103129[/C][C]104090.808510638[/C][C]-961.808510638293[/C][/ROW]
[ROW][C]119[/C][C]93487[/C][C]83720.9666666667[/C][C]9766.03333333334[/C][/ROW]
[ROW][C]120[/C][C]32551[/C][C]31186.0769230769[/C][C]1364.92307692308[/C][/ROW]
[ROW][C]121[/C][C]169707[/C][C]156589.185185185[/C][C]13117.8148148148[/C][/ROW]
[ROW][C]122[/C][C]150491[/C][C]156589.185185185[/C][C]-6098.1851851852[/C][/ROW]
[ROW][C]123[/C][C]126817[/C][C]83720.9666666667[/C][C]43096.0333333333[/C][/ROW]
[ROW][C]124[/C][C]38692[/C][C]72925.2727272727[/C][C]-34233.2727272727[/C][/ROW]
[ROW][C]125[/C][C]168553[/C][C]133688.6[/C][C]34864.4[/C][/ROW]
[ROW][C]126[/C][C]101382[/C][C]83720.9666666667[/C][C]17661.0333333333[/C][/ROW]
[ROW][C]127[/C][C]165933[/C][C]133688.6[/C][C]32244.4[/C][/ROW]
[ROW][C]128[/C][C]150047[/C][C]104090.808510638[/C][C]45956.1914893617[/C][/ROW]
[ROW][C]129[/C][C]86652[/C][C]104090.808510638[/C][C]-17438.8085106383[/C][/ROW]
[ROW][C]130[/C][C]64520[/C][C]72925.2727272727[/C][C]-8405.27272727272[/C][/ROW]
[ROW][C]131[/C][C]143592[/C][C]104090.808510638[/C][C]39501.1914893617[/C][/ROW]
[ROW][C]132[/C][C]22618[/C][C]31186.0769230769[/C][C]-8568.07692307692[/C][/ROW]
[ROW][C]133[/C][C]249771[/C][C]156589.185185185[/C][C]93181.8148148148[/C][/ROW]
[ROW][C]134[/C][C]123534[/C][C]133688.6[/C][C]-10154.6[/C][/ROW]
[ROW][C]135[/C][C]144408[/C][C]133688.6[/C][C]10719.4[/C][/ROW]
[ROW][C]136[/C][C]81625[/C][C]83720.9666666667[/C][C]-2095.96666666666[/C][/ROW]
[ROW][C]137[/C][C]88977[/C][C]104090.808510638[/C][C]-15113.8085106383[/C][/ROW]
[ROW][C]138[/C][C]135356[/C][C]104090.808510638[/C][C]31265.1914893617[/C][/ROW]
[ROW][C]139[/C][C]167949[/C][C]133688.6[/C][C]34260.4[/C][/ROW]
[ROW][C]140[/C][C]136588[/C][C]104090.808510638[/C][C]32497.1914893617[/C][/ROW]
[ROW][C]141[/C][C]149695[/C][C]156589.185185185[/C][C]-6894.1851851852[/C][/ROW]
[ROW][C]142[/C][C]104767[/C][C]104090.808510638[/C][C]676.191489361707[/C][/ROW]
[ROW][C]143[/C][C]140358[/C][C]133688.6[/C][C]6669.4[/C][/ROW]
[ROW][C]144[/C][C]118906[/C][C]104090.808510638[/C][C]14815.1914893617[/C][/ROW]
[ROW][C]145[/C][C]89626[/C][C]104090.808510638[/C][C]-14464.8085106383[/C][/ROW]
[ROW][C]146[/C][C]124089[/C][C]104090.808510638[/C][C]19998.1914893617[/C][/ROW]
[ROW][C]147[/C][C]0[/C][C]3034.5[/C][C]-3034.5[/C][/ROW]
[ROW][C]148[/C][C]68788[/C][C]72925.2727272727[/C][C]-4137.27272727272[/C][/ROW]
[ROW][C]149[/C][C]69446[/C][C]83720.9666666667[/C][C]-14274.9666666667[/C][/ROW]
[ROW][C]150[/C][C]92622[/C][C]104090.808510638[/C][C]-11468.8085106383[/C][/ROW]
[ROW][C]151[/C][C]79011[/C][C]83720.9666666667[/C][C]-4709.96666666666[/C][/ROW]
[ROW][C]152[/C][C]151911[/C][C]156589.185185185[/C][C]-4678.1851851852[/C][/ROW]
[ROW][C]153[/C][C]151715[/C][C]156589.185185185[/C][C]-4874.1851851852[/C][/ROW]
[ROW][C]154[/C][C]65594[/C][C]83720.9666666667[/C][C]-18126.9666666667[/C][/ROW]
[ROW][C]155[/C][C]59900[/C][C]83720.9666666667[/C][C]-23820.9666666667[/C][/ROW]
[ROW][C]156[/C][C]140015[/C][C]133688.6[/C][C]6326.4[/C][/ROW]
[ROW][C]157[/C][C]95893[/C][C]83720.9666666667[/C][C]12172.0333333333[/C][/ROW]
[ROW][C]158[/C][C]176225[/C][C]156589.185185185[/C][C]19635.8148148148[/C][/ROW]
[ROW][C]159[/C][C]165986[/C][C]156589.185185185[/C][C]9396.8148148148[/C][/ROW]
[ROW][C]160[/C][C]81351[/C][C]83720.9666666667[/C][C]-2369.96666666666[/C][/ROW]
[ROW][C]161[/C][C]184923[/C][C]156589.185185185[/C][C]28333.8148148148[/C][/ROW]
[ROW][C]162[/C][C]116066[/C][C]72925.2727272727[/C][C]43140.7272727273[/C][/ROW]
[ROW][C]163[/C][C]154771[/C][C]72925.2727272727[/C][C]81845.7272727273[/C][/ROW]
[ROW][C]164[/C][C]105079[/C][C]104090.808510638[/C][C]988.191489361707[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=157905&T=2

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

As an alternative you can also use a QR Code:  

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

Actuals, Predictions, and Residuals
#ActualsForecastsResiduals
1187326156589.18518518530736.8148148148
2228073034.519772.5
36648583720.9666666667-17235.9666666667
479089104090.808510638-25001.8085106383
5114948104090.80851063810857.1914893617
6112431133688.6-21257.6
7104581104090.808510638490.191489361707
883243104090.808510638-20847.8085106383
93711072925.2727272727-35815.2727272727
10113344156589.185185185-43245.1851851852
116986783720.9666666667-13853.9666666667
12101629156589.185185185-54960.1851851852
1396125104090.808510638-7965.8085106383
1495676104090.808510638-8414.8085106383
1559503034.52915.5
16120192156589.185185185-36397.1851851852
1772128104090.808510638-31962.8085106383
187157183720.9666666667-12149.9666666667
19160141156589.1851851853551.8148148148
205662231186.076923076925435.9230769231
211598631186.0769230769-15200.0769230769
2293879133688.6-39809.6
23183500156589.18518518526910.8148148148
24149959156589.185185185-6630.1851851852
255722483720.9666666667-26496.9666666667
26104978133688.6-28710.6
27100046133688.6-33642.6
28101047104090.808510638-3043.80851063829
29197426156589.18518518540836.8148148148
3016090283720.966666666777181.0333333333
31109432104090.8085106385341.19148936171
3211683034.5-1866.5
3383248104090.808510638-20842.8085106383
344572472925.2727272727-27201.2727272727
358553034.5-2179.5
361411631186.0769230769-17070.0769230769
37877331186.0769230769-22413.0769230769
38117440133688.6-16248.6
39104128104090.80851063837.1914893617068
40134047156589.185185185-22542.1851851852
417975683720.9666666667-3964.96666666666
426608972925.2727272727-6836.27272727272
43128692104090.80851063824601.1914893617
4460233034.52988.5
4503034.5-3034.5
4603034.5-3034.5
4703034.5-3034.5
4803034.5-3034.5
4903034.5-3034.5
5016443034.5-1390.5
5161793034.53144.5
5239263034.5891.5
535278931186.076923076921602.9230769231
5403034.5-3034.5
554392983720.9666666667-39791.9666666667
56103037104090.808510638-1053.80851063829
5783515104090.808510638-20575.8085106383
58112302156589.185185185-44287.1851851852
593108131186.0769230769-105.076923076922
609347383720.96666666679752.03333333334
61100087104090.808510638-4003.80851063829
625591883720.9666666667-27802.9666666667
6310853583720.966666666724814.0333333333
64144551133688.610862.4
655675083720.9666666667-26970.9666666667
665993883720.9666666667-23782.9666666667
67110529156589.185185185-46060.1851851852
6867150104090.808510638-36940.8085106383
69125386104090.80851063821295.1914893617
70156349133688.622660.4
7103034.5-3034.5
72112098133688.6-21590.6
737016883720.9666666667-13552.9666666667
74103925133688.6-29763.6
7511436083720.966666666730639.0333333333
763303231186.07692307691845.92307692308
77114799133688.6-18889.6
78131072104090.80851063826981.1914893617
7992059104090.808510638-12031.8085106383
807115483720.9666666667-12566.9666666667
81102812104090.808510638-1278.80851063829
8210215383720.966666666718432.0333333333
8392280104090.808510638-11810.8085106383
84154451133688.620762.4
8584601104090.808510638-19489.8085106383
8610035083720.966666666716629.0333333333
87140824156589.185185185-15765.1851851852
887617372925.27272727273247.72727272728
89125818104090.80851063821727.1914893617
90139165156589.185185185-17424.1851851852
9189256104090.808510638-14834.8085106383
923170131186.0769230769514.923076923078
93126372104090.80851063822281.1914893617
94127654104090.80851063823563.1914893617
9589506104090.808510638-14584.8085106383
9614424483720.966666666760523.0333333333
97279488156589.185185185122898.814814815
983723831186.07692307696051.92307692308
9968946104090.808510638-35144.8085106383
100110459104090.8085106386368.1914893617
101103297104090.808510638-793.808510638293
102125081104090.80851063820990.1914893617
1036965272925.2727272727-3273.27272727272
104119442156589.185185185-37147.1851851852
10581897104090.808510638-22193.8085106383
106108146104090.8085106384055.19148936171
107146975133688.613286.4
108161100133688.627411.4
1094375031186.076923076912563.9230769231
1104802983720.9666666667-35691.9666666667
111147172156589.185185185-9417.1851851852
1122516231186.0769230769-6024.07692307692
113134238156589.185185185-22351.1851851852
114102070104090.808510638-2020.80851063829
115146760156589.185185185-9829.1851851852
1166459372925.2727272727-8332.27272727272
1178231783720.9666666667-1403.96666666666
118103129104090.808510638-961.808510638293
1199348783720.96666666679766.03333333334
1203255131186.07692307691364.92307692308
121169707156589.18518518513117.8148148148
122150491156589.185185185-6098.1851851852
12312681783720.966666666743096.0333333333
1243869272925.2727272727-34233.2727272727
125168553133688.634864.4
12610138283720.966666666717661.0333333333
127165933133688.632244.4
128150047104090.80851063845956.1914893617
12986652104090.808510638-17438.8085106383
1306452072925.2727272727-8405.27272727272
131143592104090.80851063839501.1914893617
1322261831186.0769230769-8568.07692307692
133249771156589.18518518593181.8148148148
134123534133688.6-10154.6
135144408133688.610719.4
1368162583720.9666666667-2095.96666666666
13788977104090.808510638-15113.8085106383
138135356104090.80851063831265.1914893617
139167949133688.634260.4
140136588104090.80851063832497.1914893617
141149695156589.185185185-6894.1851851852
142104767104090.808510638676.191489361707
143140358133688.66669.4
144118906104090.80851063814815.1914893617
14589626104090.808510638-14464.8085106383
146124089104090.80851063819998.1914893617
14703034.5-3034.5
1486878872925.2727272727-4137.27272727272
1496944683720.9666666667-14274.9666666667
15092622104090.808510638-11468.8085106383
1517901183720.9666666667-4709.96666666666
152151911156589.185185185-4678.1851851852
153151715156589.185185185-4874.1851851852
1546559483720.9666666667-18126.9666666667
1555990083720.9666666667-23820.9666666667
156140015133688.66326.4
1579589383720.966666666712172.0333333333
158176225156589.18518518519635.8148148148
159165986156589.1851851859396.8148148148
1608135183720.9666666667-2369.96666666666
161184923156589.18518518528333.8148148148
16211606672925.272727272743140.7272727273
16315477172925.272727272781845.7272727273
164105079104090.808510638988.191489361707



Parameters (Session):
par1 = 11 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
Parameters (R input):
par1 = 11 ; par2 = none ; par3 = 3 ; par4 = no ;
R code (references can be found in the software module):
library(party)
library(Hmisc)
par1 <- as.numeric(par1)
par3 <- as.numeric(par3)
x <- data.frame(t(y))
is.data.frame(x)
x <- x[!is.na(x[,par1]),]
k <- length(x[1,])
n <- length(x[,1])
colnames(x)[par1]
x[,par1]
if (par2 == 'kmeans') {
cl <- kmeans(x[,par1], par3)
print(cl)
clm <- matrix(cbind(cl$centers,1:par3),ncol=2)
clm <- clm[sort.list(clm[,1]),]
for (i in 1:par3) {
cl$cluster[cl$cluster==clm[i,2]] <- paste('C',i,sep='')
}
cl$cluster <- as.factor(cl$cluster)
print(cl$cluster)
x[,par1] <- cl$cluster
}
if (par2 == 'quantiles') {
x[,par1] <- cut2(x[,par1],g=par3)
}
if (par2 == 'hclust') {
hc <- hclust(dist(x[,par1])^2, 'cen')
print(hc)
memb <- cutree(hc, k = par3)
dum <- c(mean(x[memb==1,par1]))
for (i in 2:par3) {
dum <- c(dum, mean(x[memb==i,par1]))
}
hcm <- matrix(cbind(dum,1:par3),ncol=2)
hcm <- hcm[sort.list(hcm[,1]),]
for (i in 1:par3) {
memb[memb==hcm[i,2]] <- paste('C',i,sep='')
}
memb <- as.factor(memb)
print(memb)
x[,par1] <- memb
}
if (par2=='equal') {
ed <- cut(as.numeric(x[,par1]),par3,labels=paste('C',1:par3,sep=''))
x[,par1] <- as.factor(ed)
}
table(x[,par1])
colnames(x)
colnames(x)[par1]
x[,par1]
if (par2 == 'none') {
m <- ctree(as.formula(paste(colnames(x)[par1],' ~ .',sep='')),data = x)
}
load(file='createtable')
if (par2 != 'none') {
m <- ctree(as.formula(paste('as.factor(',colnames(x)[par1],') ~ .',sep='')),data = x)
if (par4=='yes') {
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'10-Fold Cross Validation',3+2*par3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'',1,TRUE)
a<-table.element(a,'Prediction (training)',par3+1,TRUE)
a<-table.element(a,'Prediction (testing)',par3+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Actual',1,TRUE)
for (jjj in 1:par3) a<-table.element(a,paste('C',jjj,sep=''),1,TRUE)
a<-table.element(a,'CV',1,TRUE)
for (jjj in 1:par3) a<-table.element(a,paste('C',jjj,sep=''),1,TRUE)
a<-table.element(a,'CV',1,TRUE)
a<-table.row.end(a)
for (i in 1:10) {
ind <- sample(2, nrow(x), replace=T, prob=c(0.9,0.1))
m.ct <- ctree(as.formula(paste('as.factor(',colnames(x)[par1],') ~ .',sep='')),data =x[ind==1,])
if (i==1) {
m.ct.i.pred <- predict(m.ct, newdata=x[ind==1,])
m.ct.i.actu <- x[ind==1,par1]
m.ct.x.pred <- predict(m.ct, newdata=x[ind==2,])
m.ct.x.actu <- x[ind==2,par1]
} else {
m.ct.i.pred <- c(m.ct.i.pred,predict(m.ct, newdata=x[ind==1,]))
m.ct.i.actu <- c(m.ct.i.actu,x[ind==1,par1])
m.ct.x.pred <- c(m.ct.x.pred,predict(m.ct, newdata=x[ind==2,]))
m.ct.x.actu <- c(m.ct.x.actu,x[ind==2,par1])
}
}
print(m.ct.i.tab <- table(m.ct.i.actu,m.ct.i.pred))
numer <- 0
for (i in 1:par3) {
print(m.ct.i.tab[i,i] / sum(m.ct.i.tab[i,]))
numer <- numer + m.ct.i.tab[i,i]
}
print(m.ct.i.cp <- numer / sum(m.ct.i.tab))
print(m.ct.x.tab <- table(m.ct.x.actu,m.ct.x.pred))
numer <- 0
for (i in 1:par3) {
print(m.ct.x.tab[i,i] / sum(m.ct.x.tab[i,]))
numer <- numer + m.ct.x.tab[i,i]
}
print(m.ct.x.cp <- numer / sum(m.ct.x.tab))
for (i in 1:par3) {
a<-table.row.start(a)
a<-table.element(a,paste('C',i,sep=''),1,TRUE)
for (jjj in 1:par3) a<-table.element(a,m.ct.i.tab[i,jjj])
a<-table.element(a,round(m.ct.i.tab[i,i]/sum(m.ct.i.tab[i,]),4))
for (jjj in 1:par3) a<-table.element(a,m.ct.x.tab[i,jjj])
a<-table.element(a,round(m.ct.x.tab[i,i]/sum(m.ct.x.tab[i,]),4))
a<-table.row.end(a)
}
a<-table.row.start(a)
a<-table.element(a,'Overall',1,TRUE)
for (jjj in 1:par3) a<-table.element(a,'-')
a<-table.element(a,round(m.ct.i.cp,4))
for (jjj in 1:par3) a<-table.element(a,'-')
a<-table.element(a,round(m.ct.x.cp,4))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable3.tab')
}
}
m
bitmap(file='test1.png')
plot(m)
dev.off()
bitmap(file='test1a.png')
plot(x[,par1] ~ as.factor(where(m)),main='Response by Terminal Node',xlab='Terminal Node',ylab='Response')
dev.off()
if (par2 == 'none') {
forec <- predict(m)
result <- as.data.frame(cbind(x[,par1],forec,x[,par1]-forec))
colnames(result) <- c('Actuals','Forecasts','Residuals')
print(result)
}
if (par2 != 'none') {
print(cbind(as.factor(x[,par1]),predict(m)))
myt <- table(as.factor(x[,par1]),predict(m))
print(myt)
}
bitmap(file='test2.png')
if(par2=='none') {
op <- par(mfrow=c(2,2))
plot(density(result$Actuals),main='Kernel Density Plot of Actuals')
plot(density(result$Residuals),main='Kernel Density Plot of Residuals')
plot(result$Forecasts,result$Actuals,main='Actuals versus Predictions',xlab='Predictions',ylab='Actuals')
plot(density(result$Forecasts),main='Kernel Density Plot of Predictions')
par(op)
}
if(par2!='none') {
plot(myt,main='Confusion Matrix',xlab='Actual',ylab='Predicted')
}
dev.off()
if (par2 == 'none') {
detcoef <- cor(result$Forecasts,result$Actuals)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Goodness of Fit',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Correlation',1,TRUE)
a<-table.element(a,round(detcoef,4))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'R-squared',1,TRUE)
a<-table.element(a,round(detcoef*detcoef,4))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'RMSE',1,TRUE)
a<-table.element(a,round(sqrt(mean((result$Residuals)^2)),4))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Actuals, Predictions, and Residuals',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'#',header=TRUE)
a<-table.element(a,'Actuals',header=TRUE)
a<-table.element(a,'Forecasts',header=TRUE)
a<-table.element(a,'Residuals',header=TRUE)
a<-table.row.end(a)
for (i in 1:length(result$Actuals)) {
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
a<-table.element(a,result$Actuals[i])
a<-table.element(a,result$Forecasts[i])
a<-table.element(a,result$Residuals[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
}
if (par2 != 'none') {
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Confusion Matrix (predicted in columns / actuals in rows)',par3+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'',1,TRUE)
for (i in 1:par3) {
a<-table.element(a,paste('C',i,sep=''),1,TRUE)
}
a<-table.row.end(a)
for (i in 1:par3) {
a<-table.row.start(a)
a<-table.element(a,paste('C',i,sep=''),1,TRUE)
for (j in 1:par3) {
a<-table.element(a,myt[i,j])
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')
}