Blog & Share Statistical Computations at FreeStatistics.org

Home » date » 2009 » Oct » 28 »

*The author of this computation has been verified*

R Software Module: rwasp_edabi.wasp (opens new window with default values)

Title produced by software: Bivariate Explorative Data Analysis

Date of computation: Wed, 28 Oct 2009 10:36:22 -0600

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow.htm/, Retrieved Wed, 28 Oct 2009 17:40:34 +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/2009/Oct/28/t1256748025py3sb2e53hifsow.htm/},
    year = {2009},
}
@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 = {2009},
    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 «

11,02388 10,96971 10,90821 10,88734 10,85561 10,83008 10,8006 10,76026 10,72027 10,70003 10,91258 10,96597 10,98648 10,93797 10,87497 10,85325 10,80866 10,79886 10,75624 10,74195 10,71885 10,70259 10,88029 10,91538 10,94449 10,85605 10,77875 10,73082 10,74484 10,70237 10,63542 10,61676 10,54786 10,47619 10,70043 10,74192 10,72788 10,67764 10,6008 10,61221 10,61128 10,58337 10,51149 10,50873 10,39837 10,40144 10,62318 10,65145 10,67394 10,62415 10,60592 10,64604 10,68513 10,69435 10,70773 10,70338 10,63535 10,65655 10,83281 10,87535

Dataseries Y:

» Textbox « » Textfile « » CSV «

12,56585 12,55335 12,53064 12,53507 12,53223 12,53214 12,52466 12,50673 12,49553 12,48746 12,56814 12,58172 12,58554 12,57136 12,54781 12,55199 12,54322 12,544 12,53118 12,52531 12,52217 12,51102 12,57695 12,58014 12,58554 12,53719 12,50553 12,49073 12,50259 12,48437 12,44979 12,44254 12,41332 12,36892 12,46287 12,47225 12,4477 12,43178 12,40255 12,41757 12,42336 12,40917 12,37615 12,37617 12,32631 12,332 12,42092 12,42253 12,41702 12,40941 12,41416 12,45201 12,48491 12,50004 12,5174 12,52075 12,49661 12,51353 12,58694 12,59771

Output produced by software:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	6 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Model: Y[t] = c + b X[t] + e[t]
c	7.73154568041087
b	0.443336222633158

Descriptive Statistics about e[t]
# observations	60
minimum	-0.0529809983720555
Q1	-0.0158175193542130
median	-0.00106005760939843
mean	-3.45024753848252e-19
Q3	0.0132173647569706
maximum	0.0575496962877511

Charts produced by software:

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/133ni1256747774.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/133ni1256747774.ps (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/2fkw41256747774.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/2fkw41256747774.ps (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/3opvh1256747774.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/3opvh1256747774.ps (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/45gm71256747774.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/45gm71256747774.ps (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/51dzf1256747774.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/51dzf1256747774.ps (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/65nlp1256747774.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/65nlp1256747774.ps (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/7vr3z1256747774.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/7vr3z1256747774.ps (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/8401j1256747775.png (open in new window)

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256748025py3sb2e53hifsow/8401j1256747775.ps (open in new window)

Parameters (Session):

par1 = 0 ; par2 = 36 ;

Parameters (R input):

par1 = 0 ; par2 = 36 ;

R code (references can be found in the software module):

par1 <- as.numeric(par1)

par2 <- as.numeric(par2)

x <- as.ts(x)

y <- as.ts(y)

mylm <- lm(y~x)

cbind(mylm$resid)

library(lattice)

bitmap(file='pic1.png')

plot(y,type='l',main='Run Sequence Plot of Y[t]',xlab='time or index',ylab='value')

grid()

dev.off()

bitmap(file='pic1a.png')

plot(x,type='l',main='Run Sequence Plot of X[t]',xlab='time or index',ylab='value')

grid()

dev.off()

bitmap(file='pic1b.png')

plot(x,y,main='Scatter Plot',xlab='X[t]',ylab='Y[t]')

grid()

dev.off()

bitmap(file='pic1c.png')

plot(mylm$resid,type='l',main='Run Sequence Plot of e[t]',xlab='time or index',ylab='value')

grid()

dev.off()

bitmap(file='pic2.png')

hist(mylm$resid,main='Histogram of e[t]')

dev.off()

bitmap(file='pic3.png')

if (par1 > 0)

{

densityplot(~mylm$resid,col='black',main=paste('Density Plot of e[t]   bw = ',par1),bw=par1)

} else {

densityplot(~mylm$resid,col='black',main='Density Plot of e[t]')

}

dev.off()

bitmap(file='pic4.png')

qqnorm(mylm$resid,main='QQ plot of e[t]')

qqline(mylm$resid)

grid()

dev.off()

if (par2 > 0)

{

bitmap(file='pic5.png')

acf(mylm$resid,lag.max=par2,main='Residual Autocorrelation Function')

grid()

dev.off()

}

summary(x)

load(file='createtable')

a<-table.start()

a<-table.row.start(a)

a<-table.element(a,'Model: Y[t] = c + b X[t] + e[t]',2,TRUE)

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'c',1,TRUE)

a<-table.element(a,mylm$coeff[[1]])

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'b',1,TRUE)

a<-table.element(a,mylm$coeff[[2]])

a<-table.row.end(a)

a<-table.end(a)

table.save(a,file='mytable.tab')

a<-table.start()

a<-table.row.start(a)

a<-table.element(a,'Descriptive Statistics about e[t]',2,TRUE)

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'# observations',header=TRUE)

a<-table.element(a,length(mylm$resid))

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'minimum',header=TRUE)

a<-table.element(a,min(mylm$resid))

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'Q1',header=TRUE)

a<-table.element(a,quantile(mylm$resid,0.25))

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'median',header=TRUE)

a<-table.element(a,median(mylm$resid))

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'mean',header=TRUE)

a<-table.element(a,mean(mylm$resid))

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'Q3',header=TRUE)

a<-table.element(a,quantile(mylm$resid,0.75))

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'maximum',header=TRUE)

a<-table.element(a,max(mylm$resid))

a<-table.row.end(a)

a<-table.end(a)

table.save(a,file='mytable.tab')

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.

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