of Irreproducible Research!
Description of Statistical Computation  

Author's title  
Author  *The author of this computation has been verified*  
R Software Module  rwasp_multipleregression.wasp  
Title produced by software  Multiple Regression  
Date of computation  Thu, 25 Mar 2010 10:28:38 +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/Mar/25/t1269512956uzbyxi4wnlvttb2.htm/, Retrieved Tue, 18 Jan 2022 12:49:52 +0000  
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74576, Retrieved Tue, 18 Jan 2022 12:49:52 +0000  
QR Codes:  


Original text written by user:  
IsPrivate?  No (this computation is public)  
Userdefined keywords  
Estimated Impact  181  
Tree of Dependent Computations  
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)  
 [Kendall tau Correlation Matrix] [Sleep in Mammals ...] [20100320 10:44:59] [b98453cac15ba1066b407e146608df68]  RMPD [Multiple Regression] [] [20100325 10:28:38] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]  RMPD [Decomposition by Loess] [] [20100325 14:32:43] [b98453cac15ba1066b407e146608df68]  
Feedback Forum  
Post a new message  
Dataset  
Dataseries X:  
99.2 96.7 101.0 99.0 98.1 100.1 100.0 100.0 100.0 111.6 104.9 90.6 122.2 104.9 86.5 117.6 109.5 89.7 121.1 110.8 90.6 136.0 112.3 82.8 154.2 109.3 70.1 153.6 105.3 65.4 158.5 101.7 61.3 140.6 95.4 62.5 136.2 96.4 63.6 168.0 97.6 52.6 154.3 102.4 59.7 149.0 101.6 59.5 165.5 103.8 61.3  
Tables (Output of Computation)  
\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=74576&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=74576&T=0
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74576&T=0
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
\begin{tabular}{lllllllll} \hline Multiple Linear Regression  Estimated Regression Equation \tabularnewline Cons[t] = + 130.706587487140 + 1.06170962850255Inc[t] 1.38298545741215Price[t] + e[t] \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=74576&T=1 [TABLE] [ROW][C]Multiple Linear Regression  Estimated Regression Equation[/C][/ROW] [ROW][C]Cons[t] = + 130.706587487140 + 1.06170962850255Inc[t] 1.38298545741215Price[t] + e[t][/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=74576&T=1
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74576&T=1
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
\begin{tabular}{lllllllll} \hline Multiple Linear Regression  Ordinary Least Squares \tabularnewline Variable & Parameter & S.D. & TSTATH0: parameter = 0 & 2tail pvalue & 1tail pvalue \tabularnewline (Intercept) & 130.706587487140 & 27.094293 & 4.8241 & 0.00027 & 0.000135 \tabularnewline Inc & 1.06170962850255 & 0.266674 & 3.9813 & 0.001365 & 0.000683 \tabularnewline Price & 1.38298545741215 & 0.083814 & 16.5006 & 0 & 0 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=74576&T=2 [TABLE] [ROW][C]Multiple Linear Regression  Ordinary Least Squares[/C][/ROW] [ROW][C]Variable[/C][C]Parameter[/C][C]S.D.[/C][C]TSTATH0: parameter = 0[/C][C]2tail pvalue[/C][C]1tail pvalue[/C][/ROW] [ROW][C](Intercept)[/C][C]130.706587487140[/C][C]27.094293[/C][C]4.8241[/C][C]0.00027[/C][C]0.000135[/C][/ROW] [ROW][C]Inc[/C][C]1.06170962850255[/C][C]0.266674[/C][C]3.9813[/C][C]0.001365[/C][C]0.000683[/C][/ROW] [ROW][C]Price[/C][C]1.38298545741215[/C][C]0.083814[/C][C]16.5006[/C][C]0[/C][C]0[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=74576&T=2
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74576&T=2
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
\begin{tabular}{lllllllll} \hline Multiple Linear Regression  Regression Statistics \tabularnewline Multiple R & 0.97533669567652 \tabularnewline Rsquared & 0.951281669933193 \tabularnewline Adjusted Rsquared & 0.944321908495077 \tabularnewline FTEST (value) & 136.683085820079 \tabularnewline FTEST (DF numerator) & 2 \tabularnewline FTEST (DF denominator) & 14 \tabularnewline pvalue & 6.51398490703059e10 \tabularnewline Multiple Linear Regression  Residual Statistics \tabularnewline Residual Standard Deviation & 5.56335573538938 \tabularnewline Sum Squared Residuals & 433.312978538859 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=74576&T=3 [TABLE] [ROW][C]Multiple Linear Regression  Regression Statistics[/C][/ROW] [ROW][C]Multiple R[/C][C]0.97533669567652[/C][/ROW] [ROW][C]Rsquared[/C][C]0.951281669933193[/C][/ROW] [ROW][C]Adjusted Rsquared[/C][C]0.944321908495077[/C][/ROW] [ROW][C]FTEST (value)[/C][C]136.683085820079[/C][/ROW] [ROW][C]FTEST (DF numerator)[/C][C]2[/C][/ROW] [ROW][C]FTEST (DF denominator)[/C][C]14[/C][/ROW] [ROW][C]pvalue[/C][C]6.51398490703059e10[/C][/ROW] [ROW][C]Multiple Linear Regression  Residual Statistics[/C][/ROW] [ROW][C]Residual Standard Deviation[/C][C]5.56335573538938[/C][/ROW] [ROW][C]Sum Squared Residuals[/C][C]433.312978538859[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=74576&T=3
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74576&T=3
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
\begin{tabular}{lllllllll} \hline Multiple Linear Regression  Actuals, Interpolation, and Residuals \tabularnewline Time or Index & Actuals & InterpolationForecast & ResidualsPrediction Error \tabularnewline 1 & 99.2 & 93.6923773647087 & 5.5076226352913 \tabularnewline 2 & 99 & 96.4234577562831 & 2.57654224371687 \tabularnewline 3 & 100 & 98.5790045961792 & 1.42099540382082 \tabularnewline 4 & 111.6 & 116.781445075516 & 5.18144507551595 \tabularnewline 5 & 122.2 & 122.451685450906 & 0.251685450905763 \tabularnewline 6 & 117.6 & 122.909996278299 & 5.3099962782986 \tabularnewline 7 & 121.1 & 123.045531883681 & 1.94553188368099 \tabularnewline 8 & 136 & 135.425382894250 & 0.574617105750393 \tabularnewline 9 & 154.2 & 149.804169317876 & 4.39583068212367 \tabularnewline 10 & 153.6 & 152.057362453703 & 1.54263754629677 \tabularnewline 11 & 158.5 & 153.905448166484 & 4.59455183351612 \tabularnewline 12 & 140.6 & 145.557094958023 & 4.95709495802323 \tabularnewline 13 & 136.2 & 145.097520583372 & 8.89752058337242 \tabularnewline 14 & 168 & 161.584412169109 & 6.41558783089085 \tabularnewline 15 & 154.3 & 156.861421638295 & 2.56142163829510 \tabularnewline 16 & 149 & 156.288651026975 & 7.2886510269755 \tabularnewline 17 & 165.5 & 156.135038386339 & 9.36496161366076 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=74576&T=4 [TABLE] [ROW][C]Multiple Linear Regression  Actuals, Interpolation, and Residuals[/C][/ROW] [ROW][C]Time or Index[/C][C]Actuals[/C][C]InterpolationForecast[/C][C]ResidualsPrediction Error[/C][/ROW] [ROW][C]1[/C][C]99.2[/C][C]93.6923773647087[/C][C]5.5076226352913[/C][/ROW] [ROW][C]2[/C][C]99[/C][C]96.4234577562831[/C][C]2.57654224371687[/C][/ROW] [ROW][C]3[/C][C]100[/C][C]98.5790045961792[/C][C]1.42099540382082[/C][/ROW] [ROW][C]4[/C][C]111.6[/C][C]116.781445075516[/C][C]5.18144507551595[/C][/ROW] [ROW][C]5[/C][C]122.2[/C][C]122.451685450906[/C][C]0.251685450905763[/C][/ROW] [ROW][C]6[/C][C]117.6[/C][C]122.909996278299[/C][C]5.3099962782986[/C][/ROW] [ROW][C]7[/C][C]121.1[/C][C]123.045531883681[/C][C]1.94553188368099[/C][/ROW] [ROW][C]8[/C][C]136[/C][C]135.425382894250[/C][C]0.574617105750393[/C][/ROW] [ROW][C]9[/C][C]154.2[/C][C]149.804169317876[/C][C]4.39583068212367[/C][/ROW] [ROW][C]10[/C][C]153.6[/C][C]152.057362453703[/C][C]1.54263754629677[/C][/ROW] [ROW][C]11[/C][C]158.5[/C][C]153.905448166484[/C][C]4.59455183351612[/C][/ROW] [ROW][C]12[/C][C]140.6[/C][C]145.557094958023[/C][C]4.95709495802323[/C][/ROW] [ROW][C]13[/C][C]136.2[/C][C]145.097520583372[/C][C]8.89752058337242[/C][/ROW] [ROW][C]14[/C][C]168[/C][C]161.584412169109[/C][C]6.41558783089085[/C][/ROW] [ROW][C]15[/C][C]154.3[/C][C]156.861421638295[/C][C]2.56142163829510[/C][/ROW] [ROW][C]16[/C][C]149[/C][C]156.288651026975[/C][C]7.2886510269755[/C][/ROW] [ROW][C]17[/C][C]165.5[/C][C]156.135038386339[/C][C]9.36496161366076[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=74576&T=4
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74576&T=4
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
 
Figures (Output of Computation)  
Input Parameters & R Code  
Parameters (Session):  
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;  
Parameters (R input):  
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;  
R code (references can be found in the software module):  
library(lattice) 