| WS 6 Tutorial Hypothese 1 | *The author of this computation has been verified* | R Software Module: /rwasp_linear_regression.wasp (opens new window with default values) | Title produced by software: Linear Regression Graphical Model Validation | Date of computation: Sun, 14 Nov 2010 13:58:56 +0000 | | Cite this page as follows: | Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk.htm/, Retrieved Sun, 14 Nov 2010 15:24:54 +0100 | | BibTeX entries for LaTeX users: | @Manual{KEY,
author = {{YOUR NAME}},
publisher = {Office for Research Development and Education},
title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk.htm/},
year = {2010},
}
@Manual{R,
title = {R: A Language and Environment for Statistical Computing},
author = {{R Development Core Team}},
organization = {R Foundation for Statistical Computing},
address = {Vienna, Austria},
year = {2010},
note = {{ISBN} 3-900051-07-0},
url = {http://www.R-project.org},
}
| | Original text written by user: | | | IsPrivate? | No (this computation is public) | | User-defined keywords: | | | Dataseries X: | » Textbox « » Textfile « » CSV « | 265,563
187,07
299,256
241,34
273,941
444,295
161,93
165,479
206,776
239,511
239,745
242,754
179,838
225,461
196,268
172,547
171,014
177,49
173,437
274,655
284,46
182,315
173,285
299,614
210,206
199,094
262,88
263,541
274,238
202,129
334,315
308,94
252,318
185,563
413,511
1106,398
273,259
574,372
759,868
327,407
256,36
240,008
173,67
238,118
235,992
408,621
179,122
255,652
268,266
530,302
173,219
232,34
192,501
183,531
350,53
328,007
290,481
379,511
377,958
400,172
217,748
295,181
211,378
316,197
379,669
258,469
240,495
284,281
187,215
280,35
370,187
531,922
191,488
134,172
190,977
260,172
206,12
215,08
290,83
309,294
382,906
258,801
349,659
271,266
299,364
413,597
257,665
254,641
188,567
287,861
228,466
246,064
149,793
507,767
247,852
183,211
2066,436
231,218
392,645
249,121
221,141
250,407
75,519
308,224
224,196
276,864
190,497
237,699
262,694
260,526
172,548
225,083
766,972
269,769
129,247
204 etc... | | Dataseries Y: | » Textbox « » Textfile « » CSV « | 15,34
24,164
17,038
14,91
23,744
13,87
14,931
12,594
16,616
20,545
17,471
16,896
13,838
8,925
13,148
13,943
16,35
10,29
14,06
80,415
19,579
15,117
13,998
20,441
15,822
19,506
20,781
29,42
16,055
24,878
41,172
17,072
17,83
19,282
20,233
18,766
22,029
304,004
30,275
18,185
16,406
12,776
11,845
14,661
21,061
17,206
11,501
17,741
17,276
40,198
15,25
14,127
29,77
16,781
44,172
19,75
22,806
18,983
56,465
11,375
20,045
20,876
15,952
15,253
34,067
31,238
27,412
23,828
15,829
24,081
33,328
35,75
25,047
12,203
18,803
15,942
21,309
23,886
22,061
20,723
15,029
19,707
12,928
17,163
15,753
18,303
35,821
16,61
15,232
15,819
15,008
17,921
14,248
13,789
21,033
19,363
35,832
18,316
18,284
13,12
15,094
16,241
14,742
36,378
19,566
15,272
15,343
16,533
13,447
16,603
10,718
13,351
305,45
16,068
15,088
20,528
18,828
14,005
18,032
12,964
29,277
10,908
16,47
14,473
13,604
19,186
25,847
30,249
23,725
304,038 etc... | | Output produced by software: |
Simple Linear Regression | Statistics | Estimate | S.D. | T-STAT (H0: coeff=0) | P-value (two-sided) | constant term | 17.4657159420870 | 3.85845924277434 | 4.52660371488818 | 1.17808148392129e-05 | slope | 0.0262467893194801 | 0.00745647210924672 | 3.52000100515787 | 0.000564938637743317 |
| | Charts produced by software: | | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/1k08p1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/1k08p1289743132.ps (open in new window) |
| http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/2k08p1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/2k08p1289743132.ps (open in new window) |
| http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/3drps1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/3drps1289743132.ps (open in new window) |
| http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/4oi6d1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/4oi6d1289743132.ps (open in new window) |
| http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/5ga5g1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/5ga5g1289743132.ps (open in new window) |
| http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/6ga5g1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/6ga5g1289743132.ps (open in new window) |
| http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/74gfu1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/74gfu1289743132.ps (open in new window) |
| http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/84gfu1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/84gfu1289743132.ps (open in new window) |
| http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/9fpxx1289743132.png (open in new window) | http://www.freestatistics.org/blog/date/2010/Nov/14/t1289744684oadf18zjj1h6qrk/9fpxx1289743132.ps (open in new window) |
| | Parameters (Session): | par1 = 0 ; | | Parameters (R input): | par1 = 0 ; | | R code (references can be found in the software module): | par1 <- as.numeric(par1)
library(lattice)
z <- as.data.frame(cbind(x,y))
m <- lm(y~x)
summary(m)
bitmap(file='test1.png')
plot(z,main='Scatterplot, lowess, and regression line')
lines(lowess(z),col='red')
abline(m)
grid()
dev.off()
bitmap(file='test2.png')
m2 <- lm(m$fitted.values ~ x)
summary(m2)
z2 <- as.data.frame(cbind(x,m$fitted.values))
names(z2) <- list('x','Fitted')
plot(z2,main='Scatterplot, lowess, and regression line')
lines(lowess(z2),col='red')
abline(m2)
grid()
dev.off()
bitmap(file='test3.png')
m3 <- lm(m$residuals ~ x)
summary(m3)
z3 <- as.data.frame(cbind(x,m$residuals))
names(z3) <- list('x','Residuals')
plot(z3,main='Scatterplot, lowess, and regression line')
lines(lowess(z3),col='red')
abline(m3)
grid()
dev.off()
bitmap(file='test4.png')
m4 <- lm(m$fitted.values ~ m$residuals)
summary(m4)
z4 <- as.data.frame(cbind(m$residuals,m$fitted.values))
names(z4) <- list('Residuals','Fitted')
plot(z4,main='Scatterplot, lowess, and regression line')
lines(lowess(z4),col='red')
abline(m4)
grid()
dev.off()
bitmap(file='test5.png')
myr <- as.ts(m$residuals)
z5 <- as.data.frame(cbind(lag(myr,1),myr))
names(z5) <- list('Lagged Residuals','Residuals')
plot(z5,main='Lag plot')
m5 <- lm(z5)
summary(m5)
abline(m5)
grid()
dev.off()
bitmap(file='test6.png')
hist(m$residuals,main='Residual Histogram',xlab='Residuals')
dev.off()
bitmap(file='test7.png')
if (par1 > 0)
{
densityplot(~m$residuals,col='black',main=paste('Density Plot bw = ',par1),bw=par1)
} else {
densityplot(~m$residuals,col='black',main='Density Plot')
}
dev.off()
bitmap(file='test8.png')
acf(m$residuals,main='Residual Autocorrelation Function')
dev.off()
bitmap(file='test9.png')
qqnorm(x)
qqline(x)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Simple Linear Regression',5,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Statistics',1,TRUE)
a<-table.element(a,'Estimate',1,TRUE)
a<-table.element(a,'S.D.',1,TRUE)
a<-table.element(a,'T-STAT (H0: coeff=0)',1,TRUE)
a<-table.element(a,'P-value (two-sided)',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'constant term',header=TRUE)
a<-table.element(a,m$coefficients[[1]])
sd <- sqrt(vcov(m)[1,1])
a<-table.element(a,sd)
tstat <- m$coefficients[[1]]/sd
a<-table.element(a,tstat)
pval <- 2*(1-pt(abs(tstat),length(x)-2))
a<-table.element(a,pval)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'slope',header=TRUE)
a<-table.element(a,m$coefficients[[2]])
sd <- sqrt(vcov(m)[2,2])
a<-table.element(a,sd)
tstat <- m$coefficients[[2]]/sd
a<-table.element(a,tstat)
pval <- 2*(1-pt(abs(tstat),length(x)-2))
a<-table.element(a,pval)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
| |
Copyright
This work is licensed under a
Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.
Software written by Ed van Stee & Patrick Wessa
Disclaimer
Information provided on this web site is provided
"AS IS" without warranty of any kind, either express or implied,
including, without limitation, warranties of merchantability, fitness
for a particular purpose, and noninfringement. We use reasonable
efforts to include accurate and timely information and periodically
update the information, and software without notice. However, we make
no warranties or representations as to the accuracy or
completeness of such information (or software), and we assume no
liability or responsibility for errors or omissions in the content of
this web site, or any software bugs in online applications. Your use of
this web site is AT YOUR OWN RISK. Under no circumstances and under no
legal theory shall we be liable to you or any other person
for any direct, indirect, special, incidental, exemplary, or
consequential damages arising from your access to, or use of, this web
site.
Privacy Policy
We may request personal information to be submitted to our servers in order to be able to:
- personalize online software applications according to your needs
- enforce strict security rules with respect to the data that you upload (e.g. statistical data)
- manage user sessions of online applications
- alert you about important changes or upgrades in resources or applications
We NEVER allow other companies to directly offer registered users
information about their products and services. Banner references and
hyperlinks of third parties NEVER contain any personal data of the
visitor.
We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.
We carefully protect your data from loss, misuse, alteration,
and destruction. However, at any time, and under any circumstance you
are solely responsible for managing your passwords, and keeping them
secret.
We store a unique ANONYMOUS USER ID in the form of a small
'Cookie' on your computer. This allows us to track your progress when
using this website which is necessary to create state-dependent
features. The cookie is used for NO OTHER PURPOSE. At any time you may
opt to disallow cookies from this website - this will not affect other
features of this website.
We examine cookies that are used by third-parties (banner and
online ads) very closely: abuse from third-parties automatically
results in termination of the advertising contract without refund. We
have very good reason to believe that the cookies that are produced by
third parties (banner ads) do NOT cause any privacy or security risk.
FreeStatistics.org is safe. There is no need to download any
software to use the applications and services contained in this
website. Hence, your system's security is not compromised by their use,
and your personal data - other than data you submit in the account
application form, and the user-agent information that is transmitted by
your browser - is never transmitted to our servers.
As a general rule, we do not log on-line behavior of
individuals (other than normal logging of webserver 'hits'). However,
in cases of abuse, hacking, unauthorized access, Denial of Service
attacks, illegal copying, hotlinking, non-compliance with international
webstandards (such as robots.txt), or any other harmful behavior, our
system engineers are empowered to log, track, identify, publish, and
ban misbehaving individuals - even if this leads to ban entire blocks
of IP addresses, or disclosing user's identity.
FreeStatistics.org is powered by
|