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_regression_trees1.wasp

Title produced by software

Recursive Partitioning (Regression Trees)

Date of computation

Wed, 22 Dec 2010 16:40:24 +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/2010/Dec/22/t1293035980ak1xqkyvvpo0phz.htm/, Retrieved Sun, 05 May 2024 22:24:29 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=114389, Retrieved Sun, 05 May 2024 22:24:29 +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

126

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

-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
- RMPD  [Bivariate Explorative Data Analysis] [Ws4 part 1.1 s090...] [2009-10-27 21:56:53] [e0fc65a5811681d807296d590d5b45de]
-  M D    [Bivariate Explorative Data Analysis] [Paper; bivariate ...] [2009-12-19 19:10:37] [e0fc65a5811681d807296d590d5b45de]
- RMPD      [Cross Correlation Function] [cross correlation...] [2010-12-08 19:50:23] [74be16979710d4c4e7c6647856088456]
-   PD        [Cross Correlation Function] [] [2010-12-09 09:25:48] [b98453cac15ba1066b407e146608df68]
-   PD          [Cross Correlation Function] [Cross validation ...] [2010-12-10 08:46:08] [aeb27d5c05332f2e597ad139ee63fbe4]
- RMPD              [Recursive Partitioning (Regression Trees)] [WS10 Feedback Rec...] [2010-12-22 16:40:24] [33ba4313a043c7c916d0d88da7cd101b] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

211868	43880
229527	43110
229139	44496
198563	44164
195722	40399
202196	36763
205816	37903
212588	35532
214320	35533
220375	32110
204442	33374
206903	35462
214126	33508
226899	36080
223532	34560
195309	38737
186005	38144
188906	37594
191563	36424
189226	36843
186413	37246
178037	38661
166827	40454
169362	44928
174330	48441
187069	48140
186530	45998
158114	47369
151001	49554
159612	47510
161914	44873
164182	45344
169701	42413
171297	36912
166444	43452
173476	42142
182516	44382
202388	43636
202300	44167
168053	44423
167302	42868
172608	43908
178106	42013
185686	38846
194581	35087
194596	33026
197922	34646
208795	37135
230580	37985
240636	43121
240048	43722
211457	43630
211142	42234
214771	39351
212610	39327
219313	35704
219277	30466
231805	28155
229245	29257
241114	29998
248624	32529
265845	34787
256446	33855
219452	34556
217142	31348
221678	30805
227184	28353
230354	24514
235243	21106
237217	21346
233575	23335
244460	24379
243324	26290
260307	30084
241476	29429
203666	30632
200237	27349
204045	27264
209465	27474
213586	24482
216234	21453
213188	18788
208679	19282
217859	19713
227247	21917
243477	23812
232571	23785
191531	24696
186029	24562
189733	23580
190420	24939
194163	23899
198770	21454
195198	19761
193111	19815
195411	20780
202108	23462
215706	25005
206348	24725
166972	26198
166070	27543
169292	26471
175041	26558
177876	25317
181140	22896
179566	22248
175335	23406
184128	25073
189917	27691
194690	30599
179612	31948
150605	32946
150569	34012
153745	32936
155511	32974
159044	30951
163095	29812
159585	29010
158644	31068
166618	32447
176512	34844
200765	35676
182698	35387
153730	36488
156145	35652
161570	33488
165688	32914
173666	29781
180144	27951

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	4 seconds
R Server	'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 4 seconds \tabularnewline
R Server & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114389&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]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114389&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114389&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	4 seconds
R Server	'RServer@AstonUniversity' @ vre.aston.ac.uk

Goodness of Fit
Correlation	0.2955
R-squared	0.0873
RMSE	26037.693

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

[TABLE]
[ROW][C]Goodness of Fit[/C][/ROW]
[ROW][C]Correlation[/C][C]0.2955[/C][/ROW]
[ROW][C]R-squared[/C][C]0.0873[/C][/ROW]
[ROW][C]RMSE[/C][C]26037.693[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114389&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114389&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
Correlation	0.2955
R-squared	0.0873
RMSE	26037.693

Actuals, Predictions, and Residuals
#	Actuals	Forecasts	Residuals
1	211868	199626.275	12241.725
2	229527	199626.275	29900.725
3	229139	199626.275	29512.725
4	198563	199626.275	-1063.27499999999
5	195722	199626.275	-3904.27499999999
6	202196	199626.275	2569.72500000001
7	205816	199626.275	6189.725
8	212588	199626.275	12961.725
9	214320	199626.275	14693.725
10	220375	199626.275	20748.725
11	204442	199626.275	4815.72500000001
12	206903	199626.275	7276.725
13	214126	199626.275	14499.725
14	226899	199626.275	27272.725
15	223532	199626.275	23905.725
16	195309	199626.275	-4317.27499999999
17	186005	199626.275	-13621.275
18	188906	199626.275	-10720.275
19	191563	199626.275	-8063.275
20	189226	199626.275	-10400.275
21	186413	199626.275	-13213.275
22	178037	199626.275	-21589.275
23	166827	199626.275	-32799.275
24	169362	168012.666666667	1349.33333333334
25	174330	168012.666666667	6317.33333333334
26	187069	168012.666666667	19056.3333333333
27	186530	168012.666666667	18517.3333333333
28	158114	168012.666666667	-9898.66666666666
29	151001	168012.666666667	-17011.6666666667
30	159612	168012.666666667	-8400.66666666666
31	161914	168012.666666667	-6098.66666666666
32	164182	168012.666666667	-3830.66666666666
33	169701	199626.275	-29925.275
34	171297	199626.275	-28329.275
35	166444	199626.275	-33182.275
36	173476	199626.275	-26150.275
37	182516	199626.275	-17110.275
38	202388	199626.275	2761.72500000001
39	202300	199626.275	2673.72500000001
40	168053	199626.275	-31573.275
41	167302	199626.275	-32324.275
42	172608	199626.275	-27018.275
43	178106	199626.275	-21520.275
44	185686	199626.275	-13940.275
45	194581	199626.275	-5045.27499999999
46	194596	199626.275	-5030.27499999999
47	197922	199626.275	-1704.27499999999
48	208795	199626.275	9168.725
49	230580	199626.275	30953.725
50	240636	199626.275	41009.725
51	240048	199626.275	40421.725
52	211457	199626.275	11830.725
53	211142	199626.275	11515.725
54	214771	199626.275	15144.725
55	212610	199626.275	12983.725
56	219313	199626.275	19686.725
57	219277	199626.275	19650.725
58	231805	199626.275	32178.725
59	229245	199626.275	29618.725
60	241114	199626.275	41487.725
61	248624	199626.275	48997.725
62	265845	199626.275	66218.725
63	256446	199626.275	56819.725
64	219452	199626.275	19825.725
65	217142	199626.275	17515.725
66	221678	199626.275	22051.725
67	227184	199626.275	27557.725
68	230354	199626.275	30727.725
69	235243	199626.275	35616.725
70	237217	199626.275	37590.725
71	233575	199626.275	33948.725
72	244460	199626.275	44833.725
73	243324	199626.275	43697.725
74	260307	199626.275	60680.725
75	241476	199626.275	41849.725
76	203666	199626.275	4039.72500000001
77	200237	199626.275	610.725000000006
78	204045	199626.275	4418.72500000001
79	209465	199626.275	9838.725
80	213586	199626.275	13959.725
81	216234	199626.275	16607.725
82	213188	199626.275	13561.725
83	208679	199626.275	9052.725
84	217859	199626.275	18232.725
85	227247	199626.275	27620.725
86	243477	199626.275	43850.725
87	232571	199626.275	32944.725
88	191531	199626.275	-8095.275
89	186029	199626.275	-13597.275
90	189733	199626.275	-9893.275
91	190420	199626.275	-9206.275
92	194163	199626.275	-5463.27499999999
93	198770	199626.275	-856.274999999994
94	195198	199626.275	-4428.27499999999
95	193111	199626.275	-6515.275
96	195411	199626.275	-4215.27499999999
97	202108	199626.275	2481.72500000001
98	215706	199626.275	16079.725
99	206348	199626.275	6721.725
100	166972	199626.275	-32654.275
101	166070	199626.275	-33556.275
102	169292	199626.275	-30334.275
103	175041	199626.275	-24585.275
104	177876	199626.275	-21750.275
105	181140	199626.275	-18486.275
106	179566	199626.275	-20060.275
107	175335	199626.275	-24291.275
108	184128	199626.275	-15498.275
109	189917	199626.275	-9709.275
110	194690	199626.275	-4936.27499999999
111	179612	199626.275	-20014.275
112	150605	199626.275	-49021.275
113	150569	199626.275	-49057.275
114	153745	199626.275	-45881.275
115	155511	199626.275	-44115.275
116	159044	199626.275	-40582.275
117	163095	199626.275	-36531.275
118	159585	199626.275	-40041.275
119	158644	199626.275	-40982.275
120	166618	199626.275	-33008.275
121	176512	199626.275	-23114.275
122	200765	199626.275	1138.72500000001
123	182698	199626.275	-16928.275
124	153730	199626.275	-45896.275
125	156145	199626.275	-43481.275
126	161570	199626.275	-38056.275
127	165688	199626.275	-33938.275
128	173666	199626.275	-25960.275
129	180144	199626.275	-19482.275

\begin{tabular}{lllllllll}
\hline
Actuals, Predictions, and Residuals \tabularnewline
# & Actuals & Forecasts & Residuals \tabularnewline
1 & 211868 & 199626.275 & 12241.725 \tabularnewline
2 & 229527 & 199626.275 & 29900.725 \tabularnewline
3 & 229139 & 199626.275 & 29512.725 \tabularnewline
4 & 198563 & 199626.275 & -1063.27499999999 \tabularnewline
5 & 195722 & 199626.275 & -3904.27499999999 \tabularnewline
6 & 202196 & 199626.275 & 2569.72500000001 \tabularnewline
7 & 205816 & 199626.275 & 6189.725 \tabularnewline
8 & 212588 & 199626.275 & 12961.725 \tabularnewline
9 & 214320 & 199626.275 & 14693.725 \tabularnewline
10 & 220375 & 199626.275 & 20748.725 \tabularnewline
11 & 204442 & 199626.275 & 4815.72500000001 \tabularnewline
12 & 206903 & 199626.275 & 7276.725 \tabularnewline
13 & 214126 & 199626.275 & 14499.725 \tabularnewline
14 & 226899 & 199626.275 & 27272.725 \tabularnewline
15 & 223532 & 199626.275 & 23905.725 \tabularnewline
16 & 195309 & 199626.275 & -4317.27499999999 \tabularnewline
17 & 186005 & 199626.275 & -13621.275 \tabularnewline
18 & 188906 & 199626.275 & -10720.275 \tabularnewline
19 & 191563 & 199626.275 & -8063.275 \tabularnewline
20 & 189226 & 199626.275 & -10400.275 \tabularnewline
21 & 186413 & 199626.275 & -13213.275 \tabularnewline
22 & 178037 & 199626.275 & -21589.275 \tabularnewline
23 & 166827 & 199626.275 & -32799.275 \tabularnewline
24 & 169362 & 168012.666666667 & 1349.33333333334 \tabularnewline
25 & 174330 & 168012.666666667 & 6317.33333333334 \tabularnewline
26 & 187069 & 168012.666666667 & 19056.3333333333 \tabularnewline
27 & 186530 & 168012.666666667 & 18517.3333333333 \tabularnewline
28 & 158114 & 168012.666666667 & -9898.66666666666 \tabularnewline
29 & 151001 & 168012.666666667 & -17011.6666666667 \tabularnewline
30 & 159612 & 168012.666666667 & -8400.66666666666 \tabularnewline
31 & 161914 & 168012.666666667 & -6098.66666666666 \tabularnewline
32 & 164182 & 168012.666666667 & -3830.66666666666 \tabularnewline
33 & 169701 & 199626.275 & -29925.275 \tabularnewline
34 & 171297 & 199626.275 & -28329.275 \tabularnewline
35 & 166444 & 199626.275 & -33182.275 \tabularnewline
36 & 173476 & 199626.275 & -26150.275 \tabularnewline
37 & 182516 & 199626.275 & -17110.275 \tabularnewline
38 & 202388 & 199626.275 & 2761.72500000001 \tabularnewline
39 & 202300 & 199626.275 & 2673.72500000001 \tabularnewline
40 & 168053 & 199626.275 & -31573.275 \tabularnewline
41 & 167302 & 199626.275 & -32324.275 \tabularnewline
42 & 172608 & 199626.275 & -27018.275 \tabularnewline
43 & 178106 & 199626.275 & -21520.275 \tabularnewline
44 & 185686 & 199626.275 & -13940.275 \tabularnewline
45 & 194581 & 199626.275 & -5045.27499999999 \tabularnewline
46 & 194596 & 199626.275 & -5030.27499999999 \tabularnewline
47 & 197922 & 199626.275 & -1704.27499999999 \tabularnewline
48 & 208795 & 199626.275 & 9168.725 \tabularnewline
49 & 230580 & 199626.275 & 30953.725 \tabularnewline
50 & 240636 & 199626.275 & 41009.725 \tabularnewline
51 & 240048 & 199626.275 & 40421.725 \tabularnewline
52 & 211457 & 199626.275 & 11830.725 \tabularnewline
53 & 211142 & 199626.275 & 11515.725 \tabularnewline
54 & 214771 & 199626.275 & 15144.725 \tabularnewline
55 & 212610 & 199626.275 & 12983.725 \tabularnewline
56 & 219313 & 199626.275 & 19686.725 \tabularnewline
57 & 219277 & 199626.275 & 19650.725 \tabularnewline
58 & 231805 & 199626.275 & 32178.725 \tabularnewline
59 & 229245 & 199626.275 & 29618.725 \tabularnewline
60 & 241114 & 199626.275 & 41487.725 \tabularnewline
61 & 248624 & 199626.275 & 48997.725 \tabularnewline
62 & 265845 & 199626.275 & 66218.725 \tabularnewline
63 & 256446 & 199626.275 & 56819.725 \tabularnewline
64 & 219452 & 199626.275 & 19825.725 \tabularnewline
65 & 217142 & 199626.275 & 17515.725 \tabularnewline
66 & 221678 & 199626.275 & 22051.725 \tabularnewline
67 & 227184 & 199626.275 & 27557.725 \tabularnewline
68 & 230354 & 199626.275 & 30727.725 \tabularnewline
69 & 235243 & 199626.275 & 35616.725 \tabularnewline
70 & 237217 & 199626.275 & 37590.725 \tabularnewline
71 & 233575 & 199626.275 & 33948.725 \tabularnewline
72 & 244460 & 199626.275 & 44833.725 \tabularnewline
73 & 243324 & 199626.275 & 43697.725 \tabularnewline
74 & 260307 & 199626.275 & 60680.725 \tabularnewline
75 & 241476 & 199626.275 & 41849.725 \tabularnewline
76 & 203666 & 199626.275 & 4039.72500000001 \tabularnewline
77 & 200237 & 199626.275 & 610.725000000006 \tabularnewline
78 & 204045 & 199626.275 & 4418.72500000001 \tabularnewline
79 & 209465 & 199626.275 & 9838.725 \tabularnewline
80 & 213586 & 199626.275 & 13959.725 \tabularnewline
81 & 216234 & 199626.275 & 16607.725 \tabularnewline
82 & 213188 & 199626.275 & 13561.725 \tabularnewline
83 & 208679 & 199626.275 & 9052.725 \tabularnewline
84 & 217859 & 199626.275 & 18232.725 \tabularnewline
85 & 227247 & 199626.275 & 27620.725 \tabularnewline
86 & 243477 & 199626.275 & 43850.725 \tabularnewline
87 & 232571 & 199626.275 & 32944.725 \tabularnewline
88 & 191531 & 199626.275 & -8095.275 \tabularnewline
89 & 186029 & 199626.275 & -13597.275 \tabularnewline
90 & 189733 & 199626.275 & -9893.275 \tabularnewline
91 & 190420 & 199626.275 & -9206.275 \tabularnewline
92 & 194163 & 199626.275 & -5463.27499999999 \tabularnewline
93 & 198770 & 199626.275 & -856.274999999994 \tabularnewline
94 & 195198 & 199626.275 & -4428.27499999999 \tabularnewline
95 & 193111 & 199626.275 & -6515.275 \tabularnewline
96 & 195411 & 199626.275 & -4215.27499999999 \tabularnewline
97 & 202108 & 199626.275 & 2481.72500000001 \tabularnewline
98 & 215706 & 199626.275 & 16079.725 \tabularnewline
99 & 206348 & 199626.275 & 6721.725 \tabularnewline
100 & 166972 & 199626.275 & -32654.275 \tabularnewline
101 & 166070 & 199626.275 & -33556.275 \tabularnewline
102 & 169292 & 199626.275 & -30334.275 \tabularnewline
103 & 175041 & 199626.275 & -24585.275 \tabularnewline
104 & 177876 & 199626.275 & -21750.275 \tabularnewline
105 & 181140 & 199626.275 & -18486.275 \tabularnewline
106 & 179566 & 199626.275 & -20060.275 \tabularnewline
107 & 175335 & 199626.275 & -24291.275 \tabularnewline
108 & 184128 & 199626.275 & -15498.275 \tabularnewline
109 & 189917 & 199626.275 & -9709.275 \tabularnewline
110 & 194690 & 199626.275 & -4936.27499999999 \tabularnewline
111 & 179612 & 199626.275 & -20014.275 \tabularnewline
112 & 150605 & 199626.275 & -49021.275 \tabularnewline
113 & 150569 & 199626.275 & -49057.275 \tabularnewline
114 & 153745 & 199626.275 & -45881.275 \tabularnewline
115 & 155511 & 199626.275 & -44115.275 \tabularnewline
116 & 159044 & 199626.275 & -40582.275 \tabularnewline
117 & 163095 & 199626.275 & -36531.275 \tabularnewline
118 & 159585 & 199626.275 & -40041.275 \tabularnewline
119 & 158644 & 199626.275 & -40982.275 \tabularnewline
120 & 166618 & 199626.275 & -33008.275 \tabularnewline
121 & 176512 & 199626.275 & -23114.275 \tabularnewline
122 & 200765 & 199626.275 & 1138.72500000001 \tabularnewline
123 & 182698 & 199626.275 & -16928.275 \tabularnewline
124 & 153730 & 199626.275 & -45896.275 \tabularnewline
125 & 156145 & 199626.275 & -43481.275 \tabularnewline
126 & 161570 & 199626.275 & -38056.275 \tabularnewline
127 & 165688 & 199626.275 & -33938.275 \tabularnewline
128 & 173666 & 199626.275 & -25960.275 \tabularnewline
129 & 180144 & 199626.275 & -19482.275 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114389&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]211868[/C][C]199626.275[/C][C]12241.725[/C][/ROW]
[ROW][C]2[/C][C]229527[/C][C]199626.275[/C][C]29900.725[/C][/ROW]
[ROW][C]3[/C][C]229139[/C][C]199626.275[/C][C]29512.725[/C][/ROW]
[ROW][C]4[/C][C]198563[/C][C]199626.275[/C][C]-1063.27499999999[/C][/ROW]
[ROW][C]5[/C][C]195722[/C][C]199626.275[/C][C]-3904.27499999999[/C][/ROW]
[ROW][C]6[/C][C]202196[/C][C]199626.275[/C][C]2569.72500000001[/C][/ROW]
[ROW][C]7[/C][C]205816[/C][C]199626.275[/C][C]6189.725[/C][/ROW]
[ROW][C]8[/C][C]212588[/C][C]199626.275[/C][C]12961.725[/C][/ROW]
[ROW][C]9[/C][C]214320[/C][C]199626.275[/C][C]14693.725[/C][/ROW]
[ROW][C]10[/C][C]220375[/C][C]199626.275[/C][C]20748.725[/C][/ROW]
[ROW][C]11[/C][C]204442[/C][C]199626.275[/C][C]4815.72500000001[/C][/ROW]
[ROW][C]12[/C][C]206903[/C][C]199626.275[/C][C]7276.725[/C][/ROW]
[ROW][C]13[/C][C]214126[/C][C]199626.275[/C][C]14499.725[/C][/ROW]
[ROW][C]14[/C][C]226899[/C][C]199626.275[/C][C]27272.725[/C][/ROW]
[ROW][C]15[/C][C]223532[/C][C]199626.275[/C][C]23905.725[/C][/ROW]
[ROW][C]16[/C][C]195309[/C][C]199626.275[/C][C]-4317.27499999999[/C][/ROW]
[ROW][C]17[/C][C]186005[/C][C]199626.275[/C][C]-13621.275[/C][/ROW]
[ROW][C]18[/C][C]188906[/C][C]199626.275[/C][C]-10720.275[/C][/ROW]
[ROW][C]19[/C][C]191563[/C][C]199626.275[/C][C]-8063.275[/C][/ROW]
[ROW][C]20[/C][C]189226[/C][C]199626.275[/C][C]-10400.275[/C][/ROW]
[ROW][C]21[/C][C]186413[/C][C]199626.275[/C][C]-13213.275[/C][/ROW]
[ROW][C]22[/C][C]178037[/C][C]199626.275[/C][C]-21589.275[/C][/ROW]
[ROW][C]23[/C][C]166827[/C][C]199626.275[/C][C]-32799.275[/C][/ROW]
[ROW][C]24[/C][C]169362[/C][C]168012.666666667[/C][C]1349.33333333334[/C][/ROW]
[ROW][C]25[/C][C]174330[/C][C]168012.666666667[/C][C]6317.33333333334[/C][/ROW]
[ROW][C]26[/C][C]187069[/C][C]168012.666666667[/C][C]19056.3333333333[/C][/ROW]
[ROW][C]27[/C][C]186530[/C][C]168012.666666667[/C][C]18517.3333333333[/C][/ROW]
[ROW][C]28[/C][C]158114[/C][C]168012.666666667[/C][C]-9898.66666666666[/C][/ROW]
[ROW][C]29[/C][C]151001[/C][C]168012.666666667[/C][C]-17011.6666666667[/C][/ROW]
[ROW][C]30[/C][C]159612[/C][C]168012.666666667[/C][C]-8400.66666666666[/C][/ROW]
[ROW][C]31[/C][C]161914[/C][C]168012.666666667[/C][C]-6098.66666666666[/C][/ROW]
[ROW][C]32[/C][C]164182[/C][C]168012.666666667[/C][C]-3830.66666666666[/C][/ROW]
[ROW][C]33[/C][C]169701[/C][C]199626.275[/C][C]-29925.275[/C][/ROW]
[ROW][C]34[/C][C]171297[/C][C]199626.275[/C][C]-28329.275[/C][/ROW]
[ROW][C]35[/C][C]166444[/C][C]199626.275[/C][C]-33182.275[/C][/ROW]
[ROW][C]36[/C][C]173476[/C][C]199626.275[/C][C]-26150.275[/C][/ROW]
[ROW][C]37[/C][C]182516[/C][C]199626.275[/C][C]-17110.275[/C][/ROW]
[ROW][C]38[/C][C]202388[/C][C]199626.275[/C][C]2761.72500000001[/C][/ROW]
[ROW][C]39[/C][C]202300[/C][C]199626.275[/C][C]2673.72500000001[/C][/ROW]
[ROW][C]40[/C][C]168053[/C][C]199626.275[/C][C]-31573.275[/C][/ROW]
[ROW][C]41[/C][C]167302[/C][C]199626.275[/C][C]-32324.275[/C][/ROW]
[ROW][C]42[/C][C]172608[/C][C]199626.275[/C][C]-27018.275[/C][/ROW]
[ROW][C]43[/C][C]178106[/C][C]199626.275[/C][C]-21520.275[/C][/ROW]
[ROW][C]44[/C][C]185686[/C][C]199626.275[/C][C]-13940.275[/C][/ROW]
[ROW][C]45[/C][C]194581[/C][C]199626.275[/C][C]-5045.27499999999[/C][/ROW]
[ROW][C]46[/C][C]194596[/C][C]199626.275[/C][C]-5030.27499999999[/C][/ROW]
[ROW][C]47[/C][C]197922[/C][C]199626.275[/C][C]-1704.27499999999[/C][/ROW]
[ROW][C]48[/C][C]208795[/C][C]199626.275[/C][C]9168.725[/C][/ROW]
[ROW][C]49[/C][C]230580[/C][C]199626.275[/C][C]30953.725[/C][/ROW]
[ROW][C]50[/C][C]240636[/C][C]199626.275[/C][C]41009.725[/C][/ROW]
[ROW][C]51[/C][C]240048[/C][C]199626.275[/C][C]40421.725[/C][/ROW]
[ROW][C]52[/C][C]211457[/C][C]199626.275[/C][C]11830.725[/C][/ROW]
[ROW][C]53[/C][C]211142[/C][C]199626.275[/C][C]11515.725[/C][/ROW]
[ROW][C]54[/C][C]214771[/C][C]199626.275[/C][C]15144.725[/C][/ROW]
[ROW][C]55[/C][C]212610[/C][C]199626.275[/C][C]12983.725[/C][/ROW]
[ROW][C]56[/C][C]219313[/C][C]199626.275[/C][C]19686.725[/C][/ROW]
[ROW][C]57[/C][C]219277[/C][C]199626.275[/C][C]19650.725[/C][/ROW]
[ROW][C]58[/C][C]231805[/C][C]199626.275[/C][C]32178.725[/C][/ROW]
[ROW][C]59[/C][C]229245[/C][C]199626.275[/C][C]29618.725[/C][/ROW]
[ROW][C]60[/C][C]241114[/C][C]199626.275[/C][C]41487.725[/C][/ROW]
[ROW][C]61[/C][C]248624[/C][C]199626.275[/C][C]48997.725[/C][/ROW]
[ROW][C]62[/C][C]265845[/C][C]199626.275[/C][C]66218.725[/C][/ROW]
[ROW][C]63[/C][C]256446[/C][C]199626.275[/C][C]56819.725[/C][/ROW]
[ROW][C]64[/C][C]219452[/C][C]199626.275[/C][C]19825.725[/C][/ROW]
[ROW][C]65[/C][C]217142[/C][C]199626.275[/C][C]17515.725[/C][/ROW]
[ROW][C]66[/C][C]221678[/C][C]199626.275[/C][C]22051.725[/C][/ROW]
[ROW][C]67[/C][C]227184[/C][C]199626.275[/C][C]27557.725[/C][/ROW]
[ROW][C]68[/C][C]230354[/C][C]199626.275[/C][C]30727.725[/C][/ROW]
[ROW][C]69[/C][C]235243[/C][C]199626.275[/C][C]35616.725[/C][/ROW]
[ROW][C]70[/C][C]237217[/C][C]199626.275[/C][C]37590.725[/C][/ROW]
[ROW][C]71[/C][C]233575[/C][C]199626.275[/C][C]33948.725[/C][/ROW]
[ROW][C]72[/C][C]244460[/C][C]199626.275[/C][C]44833.725[/C][/ROW]
[ROW][C]73[/C][C]243324[/C][C]199626.275[/C][C]43697.725[/C][/ROW]
[ROW][C]74[/C][C]260307[/C][C]199626.275[/C][C]60680.725[/C][/ROW]
[ROW][C]75[/C][C]241476[/C][C]199626.275[/C][C]41849.725[/C][/ROW]
[ROW][C]76[/C][C]203666[/C][C]199626.275[/C][C]4039.72500000001[/C][/ROW]
[ROW][C]77[/C][C]200237[/C][C]199626.275[/C][C]610.725000000006[/C][/ROW]
[ROW][C]78[/C][C]204045[/C][C]199626.275[/C][C]4418.72500000001[/C][/ROW]
[ROW][C]79[/C][C]209465[/C][C]199626.275[/C][C]9838.725[/C][/ROW]
[ROW][C]80[/C][C]213586[/C][C]199626.275[/C][C]13959.725[/C][/ROW]
[ROW][C]81[/C][C]216234[/C][C]199626.275[/C][C]16607.725[/C][/ROW]
[ROW][C]82[/C][C]213188[/C][C]199626.275[/C][C]13561.725[/C][/ROW]
[ROW][C]83[/C][C]208679[/C][C]199626.275[/C][C]9052.725[/C][/ROW]
[ROW][C]84[/C][C]217859[/C][C]199626.275[/C][C]18232.725[/C][/ROW]
[ROW][C]85[/C][C]227247[/C][C]199626.275[/C][C]27620.725[/C][/ROW]
[ROW][C]86[/C][C]243477[/C][C]199626.275[/C][C]43850.725[/C][/ROW]
[ROW][C]87[/C][C]232571[/C][C]199626.275[/C][C]32944.725[/C][/ROW]
[ROW][C]88[/C][C]191531[/C][C]199626.275[/C][C]-8095.275[/C][/ROW]
[ROW][C]89[/C][C]186029[/C][C]199626.275[/C][C]-13597.275[/C][/ROW]
[ROW][C]90[/C][C]189733[/C][C]199626.275[/C][C]-9893.275[/C][/ROW]
[ROW][C]91[/C][C]190420[/C][C]199626.275[/C][C]-9206.275[/C][/ROW]
[ROW][C]92[/C][C]194163[/C][C]199626.275[/C][C]-5463.27499999999[/C][/ROW]
[ROW][C]93[/C][C]198770[/C][C]199626.275[/C][C]-856.274999999994[/C][/ROW]
[ROW][C]94[/C][C]195198[/C][C]199626.275[/C][C]-4428.27499999999[/C][/ROW]
[ROW][C]95[/C][C]193111[/C][C]199626.275[/C][C]-6515.275[/C][/ROW]
[ROW][C]96[/C][C]195411[/C][C]199626.275[/C][C]-4215.27499999999[/C][/ROW]
[ROW][C]97[/C][C]202108[/C][C]199626.275[/C][C]2481.72500000001[/C][/ROW]
[ROW][C]98[/C][C]215706[/C][C]199626.275[/C][C]16079.725[/C][/ROW]
[ROW][C]99[/C][C]206348[/C][C]199626.275[/C][C]6721.725[/C][/ROW]
[ROW][C]100[/C][C]166972[/C][C]199626.275[/C][C]-32654.275[/C][/ROW]
[ROW][C]101[/C][C]166070[/C][C]199626.275[/C][C]-33556.275[/C][/ROW]
[ROW][C]102[/C][C]169292[/C][C]199626.275[/C][C]-30334.275[/C][/ROW]
[ROW][C]103[/C][C]175041[/C][C]199626.275[/C][C]-24585.275[/C][/ROW]
[ROW][C]104[/C][C]177876[/C][C]199626.275[/C][C]-21750.275[/C][/ROW]
[ROW][C]105[/C][C]181140[/C][C]199626.275[/C][C]-18486.275[/C][/ROW]
[ROW][C]106[/C][C]179566[/C][C]199626.275[/C][C]-20060.275[/C][/ROW]
[ROW][C]107[/C][C]175335[/C][C]199626.275[/C][C]-24291.275[/C][/ROW]
[ROW][C]108[/C][C]184128[/C][C]199626.275[/C][C]-15498.275[/C][/ROW]
[ROW][C]109[/C][C]189917[/C][C]199626.275[/C][C]-9709.275[/C][/ROW]
[ROW][C]110[/C][C]194690[/C][C]199626.275[/C][C]-4936.27499999999[/C][/ROW]
[ROW][C]111[/C][C]179612[/C][C]199626.275[/C][C]-20014.275[/C][/ROW]
[ROW][C]112[/C][C]150605[/C][C]199626.275[/C][C]-49021.275[/C][/ROW]
[ROW][C]113[/C][C]150569[/C][C]199626.275[/C][C]-49057.275[/C][/ROW]
[ROW][C]114[/C][C]153745[/C][C]199626.275[/C][C]-45881.275[/C][/ROW]
[ROW][C]115[/C][C]155511[/C][C]199626.275[/C][C]-44115.275[/C][/ROW]
[ROW][C]116[/C][C]159044[/C][C]199626.275[/C][C]-40582.275[/C][/ROW]
[ROW][C]117[/C][C]163095[/C][C]199626.275[/C][C]-36531.275[/C][/ROW]
[ROW][C]118[/C][C]159585[/C][C]199626.275[/C][C]-40041.275[/C][/ROW]
[ROW][C]119[/C][C]158644[/C][C]199626.275[/C][C]-40982.275[/C][/ROW]
[ROW][C]120[/C][C]166618[/C][C]199626.275[/C][C]-33008.275[/C][/ROW]
[ROW][C]121[/C][C]176512[/C][C]199626.275[/C][C]-23114.275[/C][/ROW]
[ROW][C]122[/C][C]200765[/C][C]199626.275[/C][C]1138.72500000001[/C][/ROW]
[ROW][C]123[/C][C]182698[/C][C]199626.275[/C][C]-16928.275[/C][/ROW]
[ROW][C]124[/C][C]153730[/C][C]199626.275[/C][C]-45896.275[/C][/ROW]
[ROW][C]125[/C][C]156145[/C][C]199626.275[/C][C]-43481.275[/C][/ROW]
[ROW][C]126[/C][C]161570[/C][C]199626.275[/C][C]-38056.275[/C][/ROW]
[ROW][C]127[/C][C]165688[/C][C]199626.275[/C][C]-33938.275[/C][/ROW]
[ROW][C]128[/C][C]173666[/C][C]199626.275[/C][C]-25960.275[/C][/ROW]
[ROW][C]129[/C][C]180144[/C][C]199626.275[/C][C]-19482.275[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114389&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114389&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
#	Actuals	Forecasts	Residuals
1	211868	199626.275	12241.725
2	229527	199626.275	29900.725
3	229139	199626.275	29512.725
4	198563	199626.275	-1063.27499999999
5	195722	199626.275	-3904.27499999999
6	202196	199626.275	2569.72500000001
7	205816	199626.275	6189.725
8	212588	199626.275	12961.725
9	214320	199626.275	14693.725
10	220375	199626.275	20748.725
11	204442	199626.275	4815.72500000001
12	206903	199626.275	7276.725
13	214126	199626.275	14499.725
14	226899	199626.275	27272.725
15	223532	199626.275	23905.725
16	195309	199626.275	-4317.27499999999
17	186005	199626.275	-13621.275
18	188906	199626.275	-10720.275
19	191563	199626.275	-8063.275
20	189226	199626.275	-10400.275
21	186413	199626.275	-13213.275
22	178037	199626.275	-21589.275
23	166827	199626.275	-32799.275
24	169362	168012.666666667	1349.33333333334
25	174330	168012.666666667	6317.33333333334
26	187069	168012.666666667	19056.3333333333
27	186530	168012.666666667	18517.3333333333
28	158114	168012.666666667	-9898.66666666666
29	151001	168012.666666667	-17011.6666666667
30	159612	168012.666666667	-8400.66666666666
31	161914	168012.666666667	-6098.66666666666
32	164182	168012.666666667	-3830.66666666666
33	169701	199626.275	-29925.275
34	171297	199626.275	-28329.275
35	166444	199626.275	-33182.275
36	173476	199626.275	-26150.275
37	182516	199626.275	-17110.275
38	202388	199626.275	2761.72500000001
39	202300	199626.275	2673.72500000001
40	168053	199626.275	-31573.275
41	167302	199626.275	-32324.275
42	172608	199626.275	-27018.275
43	178106	199626.275	-21520.275
44	185686	199626.275	-13940.275
45	194581	199626.275	-5045.27499999999
46	194596	199626.275	-5030.27499999999
47	197922	199626.275	-1704.27499999999
48	208795	199626.275	9168.725
49	230580	199626.275	30953.725
50	240636	199626.275	41009.725
51	240048	199626.275	40421.725
52	211457	199626.275	11830.725
53	211142	199626.275	11515.725
54	214771	199626.275	15144.725
55	212610	199626.275	12983.725
56	219313	199626.275	19686.725
57	219277	199626.275	19650.725
58	231805	199626.275	32178.725
59	229245	199626.275	29618.725
60	241114	199626.275	41487.725
61	248624	199626.275	48997.725
62	265845	199626.275	66218.725
63	256446	199626.275	56819.725
64	219452	199626.275	19825.725
65	217142	199626.275	17515.725
66	221678	199626.275	22051.725
67	227184	199626.275	27557.725
68	230354	199626.275	30727.725
69	235243	199626.275	35616.725
70	237217	199626.275	37590.725
71	233575	199626.275	33948.725
72	244460	199626.275	44833.725
73	243324	199626.275	43697.725
74	260307	199626.275	60680.725
75	241476	199626.275	41849.725
76	203666	199626.275	4039.72500000001
77	200237	199626.275	610.725000000006
78	204045	199626.275	4418.72500000001
79	209465	199626.275	9838.725
80	213586	199626.275	13959.725
81	216234	199626.275	16607.725
82	213188	199626.275	13561.725
83	208679	199626.275	9052.725
84	217859	199626.275	18232.725
85	227247	199626.275	27620.725
86	243477	199626.275	43850.725
87	232571	199626.275	32944.725
88	191531	199626.275	-8095.275
89	186029	199626.275	-13597.275
90	189733	199626.275	-9893.275
91	190420	199626.275	-9206.275
92	194163	199626.275	-5463.27499999999
93	198770	199626.275	-856.274999999994
94	195198	199626.275	-4428.27499999999
95	193111	199626.275	-6515.275
96	195411	199626.275	-4215.27499999999
97	202108	199626.275	2481.72500000001
98	215706	199626.275	16079.725
99	206348	199626.275	6721.725
100	166972	199626.275	-32654.275
101	166070	199626.275	-33556.275
102	169292	199626.275	-30334.275
103	175041	199626.275	-24585.275
104	177876	199626.275	-21750.275
105	181140	199626.275	-18486.275
106	179566	199626.275	-20060.275
107	175335	199626.275	-24291.275
108	184128	199626.275	-15498.275
109	189917	199626.275	-9709.275
110	194690	199626.275	-4936.27499999999
111	179612	199626.275	-20014.275
112	150605	199626.275	-49021.275
113	150569	199626.275	-49057.275
114	153745	199626.275	-45881.275
115	155511	199626.275	-44115.275
116	159044	199626.275	-40582.275
117	163095	199626.275	-36531.275
118	159585	199626.275	-40041.275
119	158644	199626.275	-40982.275
120	166618	199626.275	-33008.275
121	176512	199626.275	-23114.275
122	200765	199626.275	1138.72500000001
123	182698	199626.275	-16928.275
124	153730	199626.275	-45896.275
125	156145	199626.275	-43481.275
126	161570	199626.275	-38056.275
127	165688	199626.275	-33938.275
128	173666	199626.275	-25960.275
129	180144	199626.275	-19482.275

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Figure 3

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 1 ; par2 = none ; par4 = no ;

Parameters (R input):

par1 = 1 ; par2 = none ; par3 = ; 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')
}

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code