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 computationThu, 22 Dec 2011 21:14:38 -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/22/t13246065106pywhxcwrkysmop.htm/, Retrieved Fri, 03 May 2024 04:34:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160159, Retrieved Fri, 03 May 2024 04:34:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact159
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Recursive Partitioning (Regression Trees)] [] [2010-12-05 18:59:57] [b98453cac15ba1066b407e146608df68]
-   PD  [Recursive Partitioning (Regression Trees)] [WS 10 - recursive...] [2010-12-11 16:07:41] [033eb2749a430605d9b2be7c4aac4a0c]
-         [Recursive Partitioning (Regression Trees)] [] [2010-12-13 18:24:09] [d7b28a0391ab3b2ddc9f9fba95a43f33]
-           [Recursive Partitioning (Regression Trees)] [] [2010-12-25 21:51:47] [2e1e44f0ae3cb9513dc28781dfdb387b]
-   PD        [Recursive Partitioning (Regression Trees)] [Recursive Partiti...] [2011-12-15 19:16:06] [9bc4436833541bde47df2e8d3b08804c]
- R PD            [Recursive Partitioning (Regression Trees)] [paper_deel3: Recu...] [2011-12-23 02:14:38] [7f74ca30eb859074feaff93b78ba2497] [Current]
Feedback Forum

Post a new message
Dataseries X:
162687	48	82	20465
233285	75	96	33629
7215	0	0	1423
164587	74	90	25629
283430	92	132	54002
546996	137	140	151036
192501	65	100	33287
213538	97	132	31172
182282	62	121	28113
336547	72	108	57803
122275	50	63	49830
203938	88	118	52143
119300	68	71	21055
220796	79	112	47007
174005	56	63	28735
156326	54	86	59147
164063	101	148	78950
90025	13	54	13497
179987	80	134	46154
47066	19	57	53249
109572	33	59	10726
241285	99	113	83700
208339	38	96	40400
164166	68	96	33797
159763	54	78	36205
207078	63	80	30165
217028	66	93	58534
201536	90	109	44663
408960	75	115	92556
250260	68	94	40078
216527	69	118	34711
212949	80	71	31076
164248	59	75	74608
276436	135	108	58092
238654	75	100	42009
0	0	0	0
233971	54	121	36022
149649	62	51	23333
161703	46	119	53349
254893	83	136	92596
269492	106	84	49598
169526	51	136	44093
107893	27	84	84205
229714	78	92	63369
139667	71	103	60132
175983	44	88	37403
81407	23	106	24460
251259	78	96	46456
239807	60	124	66616
172743	73	106	41554
48188	12	82	22346
169355	104	87	30874
335398	95	97	68701
244729	57	107	35728
208286	68	130	29010
159913	44	43	23110
232137	62	96	38844
101694	26	100	27084
157258	67	91	35139
211586	36	136	57476
181076	56	128	33277
158024	55	87	31141
141491	54	74	61281
130108	61	96	25820
166420	27	102	23284
135509	64	122	35378
195043	76	144	74990
138708	93	90	29653
116552	59	97	64622
31970	5	78	4157
277661	58	72	29245
167825	47	53	50008
135926	88	120	52338
136647	57	66	13310
171518	81	150	92901
108980	35	117	10956
183471	102	123	34241
167426	73	122	75043
112510	32	75	21152
92421	34	122	42249
117169	80	106	42005
304603	49	116	41152
75101	30	86	14399
145043	57	90	28263
95827	54	87	17215
173931	38	99	48140
250424	63	132	62897
115367	58	96	22883
125839	49	91	41622
164078	46	77	40715
158931	51	104	65897
190382	90	100	76542
155226	45	94	37477
146159	28	60	53216
62641	26	46	40911
258585	54	135	57021
199841	96	99	73116
19349	13	2	3895
247280	43	96	46609
164984	42	109	29351
72128	30	15	2325
104253	59	68	31747
151090	73	102	32665
147990	40	93	19249
87448	36	46	15292
27676	2	59	5842
170326	103	116	33994
132148	30	29	13018
0	0	0	0
133868	78	91	98177
109001	25	76	37941
158833	59	86	31032
150013	60	84	32683
89887	36	65	34545
3616	0	0	0
0	0	0	0
216479	51	89	27525
177323	79	114	66856
177948	30	132	28549
140106	43	100	38610
43410	7	3	2781
206059	92	109	41211
109873	32	81	22698
157084	84	125	41194
60493	3	48	32689
19764	10	8	5752
177559	47	80	26757
154169	44	107	22527
164249	54	140	44810
11796	1	8	0
10674	0	0	0
151322	46	56	100674
6836	0	4	0
174712	51	70	57786
5118	5	0	0
40248	8	14	5444
0	0	0	0
127628	38	104	28470
88837	21	89	61849
7131	0	0	0
9056	0	12	2179
97191	26	60	8019
157478	53	95	39644
125583	31	88	23494




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

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







Goodness of Fit
Correlation0.7942
R-squared0.6308
RMSE50965.5512

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

[TABLE]
[ROW][C]Goodness of Fit[/C][/ROW]
[ROW][C]Correlation[/C][C]0.7942[/C][/ROW]
[ROW][C]R-squared[/C][C]0.6308[/C][/ROW]
[ROW][C]RMSE[/C][C]50965.5512[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160159&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160159&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.7942
R-squared0.6308
RMSE50965.5512







Actuals, Predictions, and Residuals
#ActualsForecastsResiduals
1162687146551.33333333316135.6666666667
2233285183053.35714285750231.6428571429
3721515833.5-8618.5
4164587183053.357142857-18466.3571428571
5283430240066.1243363.88
6546996240066.12306929.88
7192501183053.3571428579447.64285714287
8213538183053.35714285730484.6428571429
9182282183053.357142857-771.35714285713
10336547240066.1296480.88
11122275146551.333333333-24276.3333333333
12203938240066.12-36128.12
13119300183053.357142857-63753.3571428571
14220796240066.12-19270.12
15174005146551.33333333327453.6666666667
16156326146551.3333333339774.66666666666
17164063240066.12-76003.12
189002574539.915485.1
19179987183053.357142857-3066.35714285713
204706674539.9-27473.9
21109572146551.333333333-36979.3333333333
22241285240066.121218.88
23208339146551.33333333361787.6666666667
24164166183053.357142857-18887.3571428571
25159763146551.33333333313211.6666666667
26207078183053.35714285724024.6428571429
27217028240066.12-23038.12
28201536183053.35714285718482.6428571429
29408960240066.12168893.88
30250260183053.35714285767206.6428571429
31216527183053.35714285733473.6428571429
32212949183053.35714285729895.6428571429
33164248146551.33333333317696.6666666667
34276436240066.1236369.88
35238654183053.35714285755600.6428571429
36015833.5-15833.5
37233971191222.46666666742748.5333333333
38149649183053.357142857-33404.3571428571
39161703191222.466666667-29519.4666666667
40254893240066.1214826.88
41269492240066.1229425.88
42169526191222.466666667-21696.4666666667
43107893146551.333333333-38658.3333333333
44229714240066.12-10352.12
45139667240066.12-100399.12
46175983146551.33333333329431.6666666667
478140774539.96867.1
48251259240066.1211192.88
49239807191222.46666666748584.5333333333
50172743183053.357142857-10310.3571428571
514818874539.9-26351.9
52169355183053.357142857-13698.3571428571
53335398240066.1295331.88
54244729191222.46666666753506.5333333333
55208286183053.35714285725232.6428571429
56159913146551.33333333313361.6666666667
57232137183053.35714285749083.6428571429
5810169474539.927154.1
59157258183053.357142857-25795.3571428571
60211586191222.46666666720363.5333333333
61181076191222.466666667-10146.4666666667
62158024146551.33333333311472.6666666667
63141491146551.333333333-5060.33333333334
64130108146551.333333333-16443.3333333333
65166420146551.33333333319868.6666666667
66135509183053.357142857-47544.3571428571
67195043240066.12-45023.12
68138708183053.357142857-44345.3571428571
69116552146551.333333333-29999.3333333333
703197015833.516136.5
71277661146551.333333333131109.666666667
72167825146551.33333333321273.6666666667
73135926240066.12-104140.12
74136647146551.333333333-9904.33333333334
75171518240066.12-68548.12
76108980191222.466666667-82242.4666666667
77183471183053.357142857417.64285714287
78167426240066.12-72640.12
79112510146551.333333333-34041.3333333333
8092421191222.466666667-98801.4666666667
81117169183053.357142857-65884.3571428571
82304603191222.466666667113380.533333333
8375101146551.333333333-71450.3333333333
84145043146551.333333333-1508.33333333334
8595827146551.333333333-50724.3333333333
86173931146551.33333333327379.6666666667
87250424240066.1210357.88
88115367146551.333333333-31184.3333333333
89125839146551.333333333-20712.3333333333
90164078146551.33333333317526.6666666667
91158931146551.33333333312379.6666666667
92190382240066.12-49684.12
93155226146551.3333333338674.66666666666
94146159146551.333333333-392.333333333343
956264174539.9-11898.9
96258585191222.46666666767362.5333333333
97199841240066.12-40225.12
981934974539.9-55190.9
99247280146551.333333333100728.666666667
100164984191222.466666667-26238.4666666667
10172128146551.333333333-74423.3333333333
102104253146551.333333333-42298.3333333333
103151090183053.357142857-31963.3571428571
104147990146551.3333333331438.66666666666
10587448146551.333333333-59103.3333333333
1062767615833.511842.5
107170326183053.357142857-12727.3571428571
108132148146551.333333333-14403.3333333333
109015833.5-15833.5
110133868240066.12-106198.12
11110900174539.934461.1
112158833146551.33333333312281.6666666667
113150013146551.3333333333461.66666666666
11489887146551.333333333-56664.3333333333
115361615833.5-12217.5
116015833.5-15833.5
117216479146551.33333333369927.6666666667
118177323240066.12-62743.12
119177948191222.466666667-13274.4666666667
120140106146551.333333333-6445.33333333334
1214341015833.527576.5
122206059183053.35714285723005.6428571429
123109873146551.333333333-36678.3333333333
124157084183053.357142857-25969.3571428571
1256049315833.544659.5
1261976415833.53930.5
127177559146551.33333333331007.6666666667
128154169191222.466666667-37053.4666666667
129164249191222.466666667-26973.4666666667
1301179615833.5-4037.5
1311067415833.5-5159.5
132151322146551.3333333334770.66666666666
133683615833.5-8997.5
134174712146551.33333333328160.6666666667
135511815833.5-10715.5
1364024815833.524414.5
137015833.5-15833.5
138127628146551.333333333-18923.3333333333
1398883774539.914297.1
140713115833.5-8702.5
141905615833.5-6777.5
1429719174539.922651.1
143157478146551.33333333310926.6666666667
144125583146551.333333333-20968.3333333333

\begin{tabular}{lllllllll}
\hline
Actuals, Predictions, and Residuals \tabularnewline
# & Actuals & Forecasts & Residuals \tabularnewline
1 & 162687 & 146551.333333333 & 16135.6666666667 \tabularnewline
2 & 233285 & 183053.357142857 & 50231.6428571429 \tabularnewline
3 & 7215 & 15833.5 & -8618.5 \tabularnewline
4 & 164587 & 183053.357142857 & -18466.3571428571 \tabularnewline
5 & 283430 & 240066.12 & 43363.88 \tabularnewline
6 & 546996 & 240066.12 & 306929.88 \tabularnewline
7 & 192501 & 183053.357142857 & 9447.64285714287 \tabularnewline
8 & 213538 & 183053.357142857 & 30484.6428571429 \tabularnewline
9 & 182282 & 183053.357142857 & -771.35714285713 \tabularnewline
10 & 336547 & 240066.12 & 96480.88 \tabularnewline
11 & 122275 & 146551.333333333 & -24276.3333333333 \tabularnewline
12 & 203938 & 240066.12 & -36128.12 \tabularnewline
13 & 119300 & 183053.357142857 & -63753.3571428571 \tabularnewline
14 & 220796 & 240066.12 & -19270.12 \tabularnewline
15 & 174005 & 146551.333333333 & 27453.6666666667 \tabularnewline
16 & 156326 & 146551.333333333 & 9774.66666666666 \tabularnewline
17 & 164063 & 240066.12 & -76003.12 \tabularnewline
18 & 90025 & 74539.9 & 15485.1 \tabularnewline
19 & 179987 & 183053.357142857 & -3066.35714285713 \tabularnewline
20 & 47066 & 74539.9 & -27473.9 \tabularnewline
21 & 109572 & 146551.333333333 & -36979.3333333333 \tabularnewline
22 & 241285 & 240066.12 & 1218.88 \tabularnewline
23 & 208339 & 146551.333333333 & 61787.6666666667 \tabularnewline
24 & 164166 & 183053.357142857 & -18887.3571428571 \tabularnewline
25 & 159763 & 146551.333333333 & 13211.6666666667 \tabularnewline
26 & 207078 & 183053.357142857 & 24024.6428571429 \tabularnewline
27 & 217028 & 240066.12 & -23038.12 \tabularnewline
28 & 201536 & 183053.357142857 & 18482.6428571429 \tabularnewline
29 & 408960 & 240066.12 & 168893.88 \tabularnewline
30 & 250260 & 183053.357142857 & 67206.6428571429 \tabularnewline
31 & 216527 & 183053.357142857 & 33473.6428571429 \tabularnewline
32 & 212949 & 183053.357142857 & 29895.6428571429 \tabularnewline
33 & 164248 & 146551.333333333 & 17696.6666666667 \tabularnewline
34 & 276436 & 240066.12 & 36369.88 \tabularnewline
35 & 238654 & 183053.357142857 & 55600.6428571429 \tabularnewline
36 & 0 & 15833.5 & -15833.5 \tabularnewline
37 & 233971 & 191222.466666667 & 42748.5333333333 \tabularnewline
38 & 149649 & 183053.357142857 & -33404.3571428571 \tabularnewline
39 & 161703 & 191222.466666667 & -29519.4666666667 \tabularnewline
40 & 254893 & 240066.12 & 14826.88 \tabularnewline
41 & 269492 & 240066.12 & 29425.88 \tabularnewline
42 & 169526 & 191222.466666667 & -21696.4666666667 \tabularnewline
43 & 107893 & 146551.333333333 & -38658.3333333333 \tabularnewline
44 & 229714 & 240066.12 & -10352.12 \tabularnewline
45 & 139667 & 240066.12 & -100399.12 \tabularnewline
46 & 175983 & 146551.333333333 & 29431.6666666667 \tabularnewline
47 & 81407 & 74539.9 & 6867.1 \tabularnewline
48 & 251259 & 240066.12 & 11192.88 \tabularnewline
49 & 239807 & 191222.466666667 & 48584.5333333333 \tabularnewline
50 & 172743 & 183053.357142857 & -10310.3571428571 \tabularnewline
51 & 48188 & 74539.9 & -26351.9 \tabularnewline
52 & 169355 & 183053.357142857 & -13698.3571428571 \tabularnewline
53 & 335398 & 240066.12 & 95331.88 \tabularnewline
54 & 244729 & 191222.466666667 & 53506.5333333333 \tabularnewline
55 & 208286 & 183053.357142857 & 25232.6428571429 \tabularnewline
56 & 159913 & 146551.333333333 & 13361.6666666667 \tabularnewline
57 & 232137 & 183053.357142857 & 49083.6428571429 \tabularnewline
58 & 101694 & 74539.9 & 27154.1 \tabularnewline
59 & 157258 & 183053.357142857 & -25795.3571428571 \tabularnewline
60 & 211586 & 191222.466666667 & 20363.5333333333 \tabularnewline
61 & 181076 & 191222.466666667 & -10146.4666666667 \tabularnewline
62 & 158024 & 146551.333333333 & 11472.6666666667 \tabularnewline
63 & 141491 & 146551.333333333 & -5060.33333333334 \tabularnewline
64 & 130108 & 146551.333333333 & -16443.3333333333 \tabularnewline
65 & 166420 & 146551.333333333 & 19868.6666666667 \tabularnewline
66 & 135509 & 183053.357142857 & -47544.3571428571 \tabularnewline
67 & 195043 & 240066.12 & -45023.12 \tabularnewline
68 & 138708 & 183053.357142857 & -44345.3571428571 \tabularnewline
69 & 116552 & 146551.333333333 & -29999.3333333333 \tabularnewline
70 & 31970 & 15833.5 & 16136.5 \tabularnewline
71 & 277661 & 146551.333333333 & 131109.666666667 \tabularnewline
72 & 167825 & 146551.333333333 & 21273.6666666667 \tabularnewline
73 & 135926 & 240066.12 & -104140.12 \tabularnewline
74 & 136647 & 146551.333333333 & -9904.33333333334 \tabularnewline
75 & 171518 & 240066.12 & -68548.12 \tabularnewline
76 & 108980 & 191222.466666667 & -82242.4666666667 \tabularnewline
77 & 183471 & 183053.357142857 & 417.64285714287 \tabularnewline
78 & 167426 & 240066.12 & -72640.12 \tabularnewline
79 & 112510 & 146551.333333333 & -34041.3333333333 \tabularnewline
80 & 92421 & 191222.466666667 & -98801.4666666667 \tabularnewline
81 & 117169 & 183053.357142857 & -65884.3571428571 \tabularnewline
82 & 304603 & 191222.466666667 & 113380.533333333 \tabularnewline
83 & 75101 & 146551.333333333 & -71450.3333333333 \tabularnewline
84 & 145043 & 146551.333333333 & -1508.33333333334 \tabularnewline
85 & 95827 & 146551.333333333 & -50724.3333333333 \tabularnewline
86 & 173931 & 146551.333333333 & 27379.6666666667 \tabularnewline
87 & 250424 & 240066.12 & 10357.88 \tabularnewline
88 & 115367 & 146551.333333333 & -31184.3333333333 \tabularnewline
89 & 125839 & 146551.333333333 & -20712.3333333333 \tabularnewline
90 & 164078 & 146551.333333333 & 17526.6666666667 \tabularnewline
91 & 158931 & 146551.333333333 & 12379.6666666667 \tabularnewline
92 & 190382 & 240066.12 & -49684.12 \tabularnewline
93 & 155226 & 146551.333333333 & 8674.66666666666 \tabularnewline
94 & 146159 & 146551.333333333 & -392.333333333343 \tabularnewline
95 & 62641 & 74539.9 & -11898.9 \tabularnewline
96 & 258585 & 191222.466666667 & 67362.5333333333 \tabularnewline
97 & 199841 & 240066.12 & -40225.12 \tabularnewline
98 & 19349 & 74539.9 & -55190.9 \tabularnewline
99 & 247280 & 146551.333333333 & 100728.666666667 \tabularnewline
100 & 164984 & 191222.466666667 & -26238.4666666667 \tabularnewline
101 & 72128 & 146551.333333333 & -74423.3333333333 \tabularnewline
102 & 104253 & 146551.333333333 & -42298.3333333333 \tabularnewline
103 & 151090 & 183053.357142857 & -31963.3571428571 \tabularnewline
104 & 147990 & 146551.333333333 & 1438.66666666666 \tabularnewline
105 & 87448 & 146551.333333333 & -59103.3333333333 \tabularnewline
106 & 27676 & 15833.5 & 11842.5 \tabularnewline
107 & 170326 & 183053.357142857 & -12727.3571428571 \tabularnewline
108 & 132148 & 146551.333333333 & -14403.3333333333 \tabularnewline
109 & 0 & 15833.5 & -15833.5 \tabularnewline
110 & 133868 & 240066.12 & -106198.12 \tabularnewline
111 & 109001 & 74539.9 & 34461.1 \tabularnewline
112 & 158833 & 146551.333333333 & 12281.6666666667 \tabularnewline
113 & 150013 & 146551.333333333 & 3461.66666666666 \tabularnewline
114 & 89887 & 146551.333333333 & -56664.3333333333 \tabularnewline
115 & 3616 & 15833.5 & -12217.5 \tabularnewline
116 & 0 & 15833.5 & -15833.5 \tabularnewline
117 & 216479 & 146551.333333333 & 69927.6666666667 \tabularnewline
118 & 177323 & 240066.12 & -62743.12 \tabularnewline
119 & 177948 & 191222.466666667 & -13274.4666666667 \tabularnewline
120 & 140106 & 146551.333333333 & -6445.33333333334 \tabularnewline
121 & 43410 & 15833.5 & 27576.5 \tabularnewline
122 & 206059 & 183053.357142857 & 23005.6428571429 \tabularnewline
123 & 109873 & 146551.333333333 & -36678.3333333333 \tabularnewline
124 & 157084 & 183053.357142857 & -25969.3571428571 \tabularnewline
125 & 60493 & 15833.5 & 44659.5 \tabularnewline
126 & 19764 & 15833.5 & 3930.5 \tabularnewline
127 & 177559 & 146551.333333333 & 31007.6666666667 \tabularnewline
128 & 154169 & 191222.466666667 & -37053.4666666667 \tabularnewline
129 & 164249 & 191222.466666667 & -26973.4666666667 \tabularnewline
130 & 11796 & 15833.5 & -4037.5 \tabularnewline
131 & 10674 & 15833.5 & -5159.5 \tabularnewline
132 & 151322 & 146551.333333333 & 4770.66666666666 \tabularnewline
133 & 6836 & 15833.5 & -8997.5 \tabularnewline
134 & 174712 & 146551.333333333 & 28160.6666666667 \tabularnewline
135 & 5118 & 15833.5 & -10715.5 \tabularnewline
136 & 40248 & 15833.5 & 24414.5 \tabularnewline
137 & 0 & 15833.5 & -15833.5 \tabularnewline
138 & 127628 & 146551.333333333 & -18923.3333333333 \tabularnewline
139 & 88837 & 74539.9 & 14297.1 \tabularnewline
140 & 7131 & 15833.5 & -8702.5 \tabularnewline
141 & 9056 & 15833.5 & -6777.5 \tabularnewline
142 & 97191 & 74539.9 & 22651.1 \tabularnewline
143 & 157478 & 146551.333333333 & 10926.6666666667 \tabularnewline
144 & 125583 & 146551.333333333 & -20968.3333333333 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160159&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]162687[/C][C]146551.333333333[/C][C]16135.6666666667[/C][/ROW]
[ROW][C]2[/C][C]233285[/C][C]183053.357142857[/C][C]50231.6428571429[/C][/ROW]
[ROW][C]3[/C][C]7215[/C][C]15833.5[/C][C]-8618.5[/C][/ROW]
[ROW][C]4[/C][C]164587[/C][C]183053.357142857[/C][C]-18466.3571428571[/C][/ROW]
[ROW][C]5[/C][C]283430[/C][C]240066.12[/C][C]43363.88[/C][/ROW]
[ROW][C]6[/C][C]546996[/C][C]240066.12[/C][C]306929.88[/C][/ROW]
[ROW][C]7[/C][C]192501[/C][C]183053.357142857[/C][C]9447.64285714287[/C][/ROW]
[ROW][C]8[/C][C]213538[/C][C]183053.357142857[/C][C]30484.6428571429[/C][/ROW]
[ROW][C]9[/C][C]182282[/C][C]183053.357142857[/C][C]-771.35714285713[/C][/ROW]
[ROW][C]10[/C][C]336547[/C][C]240066.12[/C][C]96480.88[/C][/ROW]
[ROW][C]11[/C][C]122275[/C][C]146551.333333333[/C][C]-24276.3333333333[/C][/ROW]
[ROW][C]12[/C][C]203938[/C][C]240066.12[/C][C]-36128.12[/C][/ROW]
[ROW][C]13[/C][C]119300[/C][C]183053.357142857[/C][C]-63753.3571428571[/C][/ROW]
[ROW][C]14[/C][C]220796[/C][C]240066.12[/C][C]-19270.12[/C][/ROW]
[ROW][C]15[/C][C]174005[/C][C]146551.333333333[/C][C]27453.6666666667[/C][/ROW]
[ROW][C]16[/C][C]156326[/C][C]146551.333333333[/C][C]9774.66666666666[/C][/ROW]
[ROW][C]17[/C][C]164063[/C][C]240066.12[/C][C]-76003.12[/C][/ROW]
[ROW][C]18[/C][C]90025[/C][C]74539.9[/C][C]15485.1[/C][/ROW]
[ROW][C]19[/C][C]179987[/C][C]183053.357142857[/C][C]-3066.35714285713[/C][/ROW]
[ROW][C]20[/C][C]47066[/C][C]74539.9[/C][C]-27473.9[/C][/ROW]
[ROW][C]21[/C][C]109572[/C][C]146551.333333333[/C][C]-36979.3333333333[/C][/ROW]
[ROW][C]22[/C][C]241285[/C][C]240066.12[/C][C]1218.88[/C][/ROW]
[ROW][C]23[/C][C]208339[/C][C]146551.333333333[/C][C]61787.6666666667[/C][/ROW]
[ROW][C]24[/C][C]164166[/C][C]183053.357142857[/C][C]-18887.3571428571[/C][/ROW]
[ROW][C]25[/C][C]159763[/C][C]146551.333333333[/C][C]13211.6666666667[/C][/ROW]
[ROW][C]26[/C][C]207078[/C][C]183053.357142857[/C][C]24024.6428571429[/C][/ROW]
[ROW][C]27[/C][C]217028[/C][C]240066.12[/C][C]-23038.12[/C][/ROW]
[ROW][C]28[/C][C]201536[/C][C]183053.357142857[/C][C]18482.6428571429[/C][/ROW]
[ROW][C]29[/C][C]408960[/C][C]240066.12[/C][C]168893.88[/C][/ROW]
[ROW][C]30[/C][C]250260[/C][C]183053.357142857[/C][C]67206.6428571429[/C][/ROW]
[ROW][C]31[/C][C]216527[/C][C]183053.357142857[/C][C]33473.6428571429[/C][/ROW]
[ROW][C]32[/C][C]212949[/C][C]183053.357142857[/C][C]29895.6428571429[/C][/ROW]
[ROW][C]33[/C][C]164248[/C][C]146551.333333333[/C][C]17696.6666666667[/C][/ROW]
[ROW][C]34[/C][C]276436[/C][C]240066.12[/C][C]36369.88[/C][/ROW]
[ROW][C]35[/C][C]238654[/C][C]183053.357142857[/C][C]55600.6428571429[/C][/ROW]
[ROW][C]36[/C][C]0[/C][C]15833.5[/C][C]-15833.5[/C][/ROW]
[ROW][C]37[/C][C]233971[/C][C]191222.466666667[/C][C]42748.5333333333[/C][/ROW]
[ROW][C]38[/C][C]149649[/C][C]183053.357142857[/C][C]-33404.3571428571[/C][/ROW]
[ROW][C]39[/C][C]161703[/C][C]191222.466666667[/C][C]-29519.4666666667[/C][/ROW]
[ROW][C]40[/C][C]254893[/C][C]240066.12[/C][C]14826.88[/C][/ROW]
[ROW][C]41[/C][C]269492[/C][C]240066.12[/C][C]29425.88[/C][/ROW]
[ROW][C]42[/C][C]169526[/C][C]191222.466666667[/C][C]-21696.4666666667[/C][/ROW]
[ROW][C]43[/C][C]107893[/C][C]146551.333333333[/C][C]-38658.3333333333[/C][/ROW]
[ROW][C]44[/C][C]229714[/C][C]240066.12[/C][C]-10352.12[/C][/ROW]
[ROW][C]45[/C][C]139667[/C][C]240066.12[/C][C]-100399.12[/C][/ROW]
[ROW][C]46[/C][C]175983[/C][C]146551.333333333[/C][C]29431.6666666667[/C][/ROW]
[ROW][C]47[/C][C]81407[/C][C]74539.9[/C][C]6867.1[/C][/ROW]
[ROW][C]48[/C][C]251259[/C][C]240066.12[/C][C]11192.88[/C][/ROW]
[ROW][C]49[/C][C]239807[/C][C]191222.466666667[/C][C]48584.5333333333[/C][/ROW]
[ROW][C]50[/C][C]172743[/C][C]183053.357142857[/C][C]-10310.3571428571[/C][/ROW]
[ROW][C]51[/C][C]48188[/C][C]74539.9[/C][C]-26351.9[/C][/ROW]
[ROW][C]52[/C][C]169355[/C][C]183053.357142857[/C][C]-13698.3571428571[/C][/ROW]
[ROW][C]53[/C][C]335398[/C][C]240066.12[/C][C]95331.88[/C][/ROW]
[ROW][C]54[/C][C]244729[/C][C]191222.466666667[/C][C]53506.5333333333[/C][/ROW]
[ROW][C]55[/C][C]208286[/C][C]183053.357142857[/C][C]25232.6428571429[/C][/ROW]
[ROW][C]56[/C][C]159913[/C][C]146551.333333333[/C][C]13361.6666666667[/C][/ROW]
[ROW][C]57[/C][C]232137[/C][C]183053.357142857[/C][C]49083.6428571429[/C][/ROW]
[ROW][C]58[/C][C]101694[/C][C]74539.9[/C][C]27154.1[/C][/ROW]
[ROW][C]59[/C][C]157258[/C][C]183053.357142857[/C][C]-25795.3571428571[/C][/ROW]
[ROW][C]60[/C][C]211586[/C][C]191222.466666667[/C][C]20363.5333333333[/C][/ROW]
[ROW][C]61[/C][C]181076[/C][C]191222.466666667[/C][C]-10146.4666666667[/C][/ROW]
[ROW][C]62[/C][C]158024[/C][C]146551.333333333[/C][C]11472.6666666667[/C][/ROW]
[ROW][C]63[/C][C]141491[/C][C]146551.333333333[/C][C]-5060.33333333334[/C][/ROW]
[ROW][C]64[/C][C]130108[/C][C]146551.333333333[/C][C]-16443.3333333333[/C][/ROW]
[ROW][C]65[/C][C]166420[/C][C]146551.333333333[/C][C]19868.6666666667[/C][/ROW]
[ROW][C]66[/C][C]135509[/C][C]183053.357142857[/C][C]-47544.3571428571[/C][/ROW]
[ROW][C]67[/C][C]195043[/C][C]240066.12[/C][C]-45023.12[/C][/ROW]
[ROW][C]68[/C][C]138708[/C][C]183053.357142857[/C][C]-44345.3571428571[/C][/ROW]
[ROW][C]69[/C][C]116552[/C][C]146551.333333333[/C][C]-29999.3333333333[/C][/ROW]
[ROW][C]70[/C][C]31970[/C][C]15833.5[/C][C]16136.5[/C][/ROW]
[ROW][C]71[/C][C]277661[/C][C]146551.333333333[/C][C]131109.666666667[/C][/ROW]
[ROW][C]72[/C][C]167825[/C][C]146551.333333333[/C][C]21273.6666666667[/C][/ROW]
[ROW][C]73[/C][C]135926[/C][C]240066.12[/C][C]-104140.12[/C][/ROW]
[ROW][C]74[/C][C]136647[/C][C]146551.333333333[/C][C]-9904.33333333334[/C][/ROW]
[ROW][C]75[/C][C]171518[/C][C]240066.12[/C][C]-68548.12[/C][/ROW]
[ROW][C]76[/C][C]108980[/C][C]191222.466666667[/C][C]-82242.4666666667[/C][/ROW]
[ROW][C]77[/C][C]183471[/C][C]183053.357142857[/C][C]417.64285714287[/C][/ROW]
[ROW][C]78[/C][C]167426[/C][C]240066.12[/C][C]-72640.12[/C][/ROW]
[ROW][C]79[/C][C]112510[/C][C]146551.333333333[/C][C]-34041.3333333333[/C][/ROW]
[ROW][C]80[/C][C]92421[/C][C]191222.466666667[/C][C]-98801.4666666667[/C][/ROW]
[ROW][C]81[/C][C]117169[/C][C]183053.357142857[/C][C]-65884.3571428571[/C][/ROW]
[ROW][C]82[/C][C]304603[/C][C]191222.466666667[/C][C]113380.533333333[/C][/ROW]
[ROW][C]83[/C][C]75101[/C][C]146551.333333333[/C][C]-71450.3333333333[/C][/ROW]
[ROW][C]84[/C][C]145043[/C][C]146551.333333333[/C][C]-1508.33333333334[/C][/ROW]
[ROW][C]85[/C][C]95827[/C][C]146551.333333333[/C][C]-50724.3333333333[/C][/ROW]
[ROW][C]86[/C][C]173931[/C][C]146551.333333333[/C][C]27379.6666666667[/C][/ROW]
[ROW][C]87[/C][C]250424[/C][C]240066.12[/C][C]10357.88[/C][/ROW]
[ROW][C]88[/C][C]115367[/C][C]146551.333333333[/C][C]-31184.3333333333[/C][/ROW]
[ROW][C]89[/C][C]125839[/C][C]146551.333333333[/C][C]-20712.3333333333[/C][/ROW]
[ROW][C]90[/C][C]164078[/C][C]146551.333333333[/C][C]17526.6666666667[/C][/ROW]
[ROW][C]91[/C][C]158931[/C][C]146551.333333333[/C][C]12379.6666666667[/C][/ROW]
[ROW][C]92[/C][C]190382[/C][C]240066.12[/C][C]-49684.12[/C][/ROW]
[ROW][C]93[/C][C]155226[/C][C]146551.333333333[/C][C]8674.66666666666[/C][/ROW]
[ROW][C]94[/C][C]146159[/C][C]146551.333333333[/C][C]-392.333333333343[/C][/ROW]
[ROW][C]95[/C][C]62641[/C][C]74539.9[/C][C]-11898.9[/C][/ROW]
[ROW][C]96[/C][C]258585[/C][C]191222.466666667[/C][C]67362.5333333333[/C][/ROW]
[ROW][C]97[/C][C]199841[/C][C]240066.12[/C][C]-40225.12[/C][/ROW]
[ROW][C]98[/C][C]19349[/C][C]74539.9[/C][C]-55190.9[/C][/ROW]
[ROW][C]99[/C][C]247280[/C][C]146551.333333333[/C][C]100728.666666667[/C][/ROW]
[ROW][C]100[/C][C]164984[/C][C]191222.466666667[/C][C]-26238.4666666667[/C][/ROW]
[ROW][C]101[/C][C]72128[/C][C]146551.333333333[/C][C]-74423.3333333333[/C][/ROW]
[ROW][C]102[/C][C]104253[/C][C]146551.333333333[/C][C]-42298.3333333333[/C][/ROW]
[ROW][C]103[/C][C]151090[/C][C]183053.357142857[/C][C]-31963.3571428571[/C][/ROW]
[ROW][C]104[/C][C]147990[/C][C]146551.333333333[/C][C]1438.66666666666[/C][/ROW]
[ROW][C]105[/C][C]87448[/C][C]146551.333333333[/C][C]-59103.3333333333[/C][/ROW]
[ROW][C]106[/C][C]27676[/C][C]15833.5[/C][C]11842.5[/C][/ROW]
[ROW][C]107[/C][C]170326[/C][C]183053.357142857[/C][C]-12727.3571428571[/C][/ROW]
[ROW][C]108[/C][C]132148[/C][C]146551.333333333[/C][C]-14403.3333333333[/C][/ROW]
[ROW][C]109[/C][C]0[/C][C]15833.5[/C][C]-15833.5[/C][/ROW]
[ROW][C]110[/C][C]133868[/C][C]240066.12[/C][C]-106198.12[/C][/ROW]
[ROW][C]111[/C][C]109001[/C][C]74539.9[/C][C]34461.1[/C][/ROW]
[ROW][C]112[/C][C]158833[/C][C]146551.333333333[/C][C]12281.6666666667[/C][/ROW]
[ROW][C]113[/C][C]150013[/C][C]146551.333333333[/C][C]3461.66666666666[/C][/ROW]
[ROW][C]114[/C][C]89887[/C][C]146551.333333333[/C][C]-56664.3333333333[/C][/ROW]
[ROW][C]115[/C][C]3616[/C][C]15833.5[/C][C]-12217.5[/C][/ROW]
[ROW][C]116[/C][C]0[/C][C]15833.5[/C][C]-15833.5[/C][/ROW]
[ROW][C]117[/C][C]216479[/C][C]146551.333333333[/C][C]69927.6666666667[/C][/ROW]
[ROW][C]118[/C][C]177323[/C][C]240066.12[/C][C]-62743.12[/C][/ROW]
[ROW][C]119[/C][C]177948[/C][C]191222.466666667[/C][C]-13274.4666666667[/C][/ROW]
[ROW][C]120[/C][C]140106[/C][C]146551.333333333[/C][C]-6445.33333333334[/C][/ROW]
[ROW][C]121[/C][C]43410[/C][C]15833.5[/C][C]27576.5[/C][/ROW]
[ROW][C]122[/C][C]206059[/C][C]183053.357142857[/C][C]23005.6428571429[/C][/ROW]
[ROW][C]123[/C][C]109873[/C][C]146551.333333333[/C][C]-36678.3333333333[/C][/ROW]
[ROW][C]124[/C][C]157084[/C][C]183053.357142857[/C][C]-25969.3571428571[/C][/ROW]
[ROW][C]125[/C][C]60493[/C][C]15833.5[/C][C]44659.5[/C][/ROW]
[ROW][C]126[/C][C]19764[/C][C]15833.5[/C][C]3930.5[/C][/ROW]
[ROW][C]127[/C][C]177559[/C][C]146551.333333333[/C][C]31007.6666666667[/C][/ROW]
[ROW][C]128[/C][C]154169[/C][C]191222.466666667[/C][C]-37053.4666666667[/C][/ROW]
[ROW][C]129[/C][C]164249[/C][C]191222.466666667[/C][C]-26973.4666666667[/C][/ROW]
[ROW][C]130[/C][C]11796[/C][C]15833.5[/C][C]-4037.5[/C][/ROW]
[ROW][C]131[/C][C]10674[/C][C]15833.5[/C][C]-5159.5[/C][/ROW]
[ROW][C]132[/C][C]151322[/C][C]146551.333333333[/C][C]4770.66666666666[/C][/ROW]
[ROW][C]133[/C][C]6836[/C][C]15833.5[/C][C]-8997.5[/C][/ROW]
[ROW][C]134[/C][C]174712[/C][C]146551.333333333[/C][C]28160.6666666667[/C][/ROW]
[ROW][C]135[/C][C]5118[/C][C]15833.5[/C][C]-10715.5[/C][/ROW]
[ROW][C]136[/C][C]40248[/C][C]15833.5[/C][C]24414.5[/C][/ROW]
[ROW][C]137[/C][C]0[/C][C]15833.5[/C][C]-15833.5[/C][/ROW]
[ROW][C]138[/C][C]127628[/C][C]146551.333333333[/C][C]-18923.3333333333[/C][/ROW]
[ROW][C]139[/C][C]88837[/C][C]74539.9[/C][C]14297.1[/C][/ROW]
[ROW][C]140[/C][C]7131[/C][C]15833.5[/C][C]-8702.5[/C][/ROW]
[ROW][C]141[/C][C]9056[/C][C]15833.5[/C][C]-6777.5[/C][/ROW]
[ROW][C]142[/C][C]97191[/C][C]74539.9[/C][C]22651.1[/C][/ROW]
[ROW][C]143[/C][C]157478[/C][C]146551.333333333[/C][C]10926.6666666667[/C][/ROW]
[ROW][C]144[/C][C]125583[/C][C]146551.333333333[/C][C]-20968.3333333333[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160159&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160159&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
1162687146551.33333333316135.6666666667
2233285183053.35714285750231.6428571429
3721515833.5-8618.5
4164587183053.357142857-18466.3571428571
5283430240066.1243363.88
6546996240066.12306929.88
7192501183053.3571428579447.64285714287
8213538183053.35714285730484.6428571429
9182282183053.357142857-771.35714285713
10336547240066.1296480.88
11122275146551.333333333-24276.3333333333
12203938240066.12-36128.12
13119300183053.357142857-63753.3571428571
14220796240066.12-19270.12
15174005146551.33333333327453.6666666667
16156326146551.3333333339774.66666666666
17164063240066.12-76003.12
189002574539.915485.1
19179987183053.357142857-3066.35714285713
204706674539.9-27473.9
21109572146551.333333333-36979.3333333333
22241285240066.121218.88
23208339146551.33333333361787.6666666667
24164166183053.357142857-18887.3571428571
25159763146551.33333333313211.6666666667
26207078183053.35714285724024.6428571429
27217028240066.12-23038.12
28201536183053.35714285718482.6428571429
29408960240066.12168893.88
30250260183053.35714285767206.6428571429
31216527183053.35714285733473.6428571429
32212949183053.35714285729895.6428571429
33164248146551.33333333317696.6666666667
34276436240066.1236369.88
35238654183053.35714285755600.6428571429
36015833.5-15833.5
37233971191222.46666666742748.5333333333
38149649183053.357142857-33404.3571428571
39161703191222.466666667-29519.4666666667
40254893240066.1214826.88
41269492240066.1229425.88
42169526191222.466666667-21696.4666666667
43107893146551.333333333-38658.3333333333
44229714240066.12-10352.12
45139667240066.12-100399.12
46175983146551.33333333329431.6666666667
478140774539.96867.1
48251259240066.1211192.88
49239807191222.46666666748584.5333333333
50172743183053.357142857-10310.3571428571
514818874539.9-26351.9
52169355183053.357142857-13698.3571428571
53335398240066.1295331.88
54244729191222.46666666753506.5333333333
55208286183053.35714285725232.6428571429
56159913146551.33333333313361.6666666667
57232137183053.35714285749083.6428571429
5810169474539.927154.1
59157258183053.357142857-25795.3571428571
60211586191222.46666666720363.5333333333
61181076191222.466666667-10146.4666666667
62158024146551.33333333311472.6666666667
63141491146551.333333333-5060.33333333334
64130108146551.333333333-16443.3333333333
65166420146551.33333333319868.6666666667
66135509183053.357142857-47544.3571428571
67195043240066.12-45023.12
68138708183053.357142857-44345.3571428571
69116552146551.333333333-29999.3333333333
703197015833.516136.5
71277661146551.333333333131109.666666667
72167825146551.33333333321273.6666666667
73135926240066.12-104140.12
74136647146551.333333333-9904.33333333334
75171518240066.12-68548.12
76108980191222.466666667-82242.4666666667
77183471183053.357142857417.64285714287
78167426240066.12-72640.12
79112510146551.333333333-34041.3333333333
8092421191222.466666667-98801.4666666667
81117169183053.357142857-65884.3571428571
82304603191222.466666667113380.533333333
8375101146551.333333333-71450.3333333333
84145043146551.333333333-1508.33333333334
8595827146551.333333333-50724.3333333333
86173931146551.33333333327379.6666666667
87250424240066.1210357.88
88115367146551.333333333-31184.3333333333
89125839146551.333333333-20712.3333333333
90164078146551.33333333317526.6666666667
91158931146551.33333333312379.6666666667
92190382240066.12-49684.12
93155226146551.3333333338674.66666666666
94146159146551.333333333-392.333333333343
956264174539.9-11898.9
96258585191222.46666666767362.5333333333
97199841240066.12-40225.12
981934974539.9-55190.9
99247280146551.333333333100728.666666667
100164984191222.466666667-26238.4666666667
10172128146551.333333333-74423.3333333333
102104253146551.333333333-42298.3333333333
103151090183053.357142857-31963.3571428571
104147990146551.3333333331438.66666666666
10587448146551.333333333-59103.3333333333
1062767615833.511842.5
107170326183053.357142857-12727.3571428571
108132148146551.333333333-14403.3333333333
109015833.5-15833.5
110133868240066.12-106198.12
11110900174539.934461.1
112158833146551.33333333312281.6666666667
113150013146551.3333333333461.66666666666
11489887146551.333333333-56664.3333333333
115361615833.5-12217.5
116015833.5-15833.5
117216479146551.33333333369927.6666666667
118177323240066.12-62743.12
119177948191222.466666667-13274.4666666667
120140106146551.333333333-6445.33333333334
1214341015833.527576.5
122206059183053.35714285723005.6428571429
123109873146551.333333333-36678.3333333333
124157084183053.357142857-25969.3571428571
1256049315833.544659.5
1261976415833.53930.5
127177559146551.33333333331007.6666666667
128154169191222.466666667-37053.4666666667
129164249191222.466666667-26973.4666666667
1301179615833.5-4037.5
1311067415833.5-5159.5
132151322146551.3333333334770.66666666666
133683615833.5-8997.5
134174712146551.33333333328160.6666666667
135511815833.5-10715.5
1364024815833.524414.5
137015833.5-15833.5
138127628146551.333333333-18923.3333333333
1398883774539.914297.1
140713115833.5-8702.5
141905615833.5-6777.5
1429719174539.922651.1
143157478146551.33333333310926.6666666667
144125583146551.333333333-20968.3333333333



Parameters (Session):
par1 = 1 ; par2 = 2 ; par3 = 0.95 ; par4 = two.sided ; par5 = unpaired ; par6 = 0.0 ;
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')
}