FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_edauni.wasp
Title produced by softwareUnivariate Explorative Data Analysis
Date of computationThu, 05 Nov 2009 04:03:50 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/05/t12574191212f3wyqbb053f49h.htm/, Retrieved Thu, 02 May 2024 15:13:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=53985, Retrieved Thu, 02 May 2024 15:13:05 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsY en Z en et
Estimated Impact92

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Explorative Data Analysis] [Ws 5 univariate E...] [2009-11-04 16:38:24] [62d3ced7fb1c10c35a82e9cb1d0d0e2b]
-    D  [Univariate Explorative Data Analysis] [Ws 5] [2009-11-05 10:51:20] [74be16979710d4c4e7c6647856088456]
-    D      [Univariate Explorative Data Analysis] [Ws 5] [2009-11-05 11:03:50] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
-10,513
-8,513
-17,783
-12,875
-18,691
-18,053
-20,961
-29,323
-44,139
-42,139
-42,777
-36,685
-39,323
-43,047
-42,593
-49,409
-47,139
-27,145
-25,691
-20,967
-15,605
-19,513
-14,059
-2,427
7,205
30,285
56,003
20,107
13,475
10,205
10,205
2,751
6,751
5,659
24,291
11,021
10,021
11,021
11,929
24,015
32,923
36,193
37,463
29,285
28,739
30,739
38,009
28,831
24,107
49,641
30,831
23,469
16,745
20,291
20,199
25,561
26,015
14,475
16,837
12,475
18,383
29,469
26,015
30,469
28,015
31,561
21,291
21,291
33,739
34,285
31,831
25,015
18,561
18,653
18,561
21,745
10,659
6,659
15,837
8,113
9,475
7,659
8,113
-7,973
-5,519
-13,243
-16,789
26,469
-4,611
-7,881
-7,427
-26,059
-10,789
-12,789
-12,881
-20,151
-21,605
-27,421
-31,059
-33,875
-33,967
-42,237
-45,145
-36,513
-24,243
-29,151
-16,519
-11,703
-4,703
18,377
38,641
50,273
61,635
65,905
61,997
57,997
58,543
62,089
55,273
46,641
47,641

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 3 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53985&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53985&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53985&T=0

As an alternative you can also use a QR Code:  
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 time3 seconds
R Server'George Udny Yule' @ 72.249.76.132






Descriptive Statistics
# observations121
minimum-49.409
Q1-16.789
median10.205
mean6.37214049586777
Q326.469
maximum65.905

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 121 \tabularnewline
minimum & -49.409 \tabularnewline
Q1 & -16.789 \tabularnewline
median & 10.205 \tabularnewline
mean & 6.37214049586777 \tabularnewline
Q3 & 26.469 \tabularnewline
maximum & 65.905 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53985&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]121[/C][/ROW]
[ROW][C]minimum[/C][C]-49.409[/C][/ROW]
[ROW][C]Q1[/C][C]-16.789[/C][/ROW]
[ROW][C]median[/C][C]10.205[/C][/ROW]
[ROW][C]mean[/C][C]6.37214049586777[/C][/ROW]
[ROW][C]Q3[/C][C]26.469[/C][/ROW]
[ROW][C]maximum[/C][C]65.905[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53985&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53985&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Descriptive Statistics
# observations121
minimum-49.409
Q1-16.789
median10.205
mean6.37214049586777
Q326.469
maximum65.905


Figures (Output of Computation)

Input Parameters & R Code

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)
library(lattice)
bitmap(file='pic1.png')
plot(x,type='l',main='Run Sequence Plot',xlab='time or index',ylab='value')
grid()
dev.off()
bitmap(file='pic2.png')
hist(x)
grid()
dev.off()
bitmap(file='pic3.png')
if (par1 > 0)
{
densityplot(~x,col='black',main=paste('Density Plot   bw = ',par1),bw=par1)
} else {
densityplot(~x,col='black',main='Density Plot')
}
dev.off()
bitmap(file='pic4.png')
qqnorm(x)
qqline(x)
grid()
dev.off()
if (par2 > 0)
{
bitmap(file='lagplot1.png')
dum <- cbind(lag(x,k=1),x)
dum
dum1 <- dum[2:length(x),]
dum1
z <- as.data.frame(dum1)
z
plot(z,main='Lag plot (k=1), lowess, and regression line')
lines(lowess(z))
abline(lm(z))
dev.off()
if (par2 > 1) {
bitmap(file='lagplotpar2.png')
dum <- cbind(lag(x,k=par2),x)
dum
dum1 <- dum[(par2+1):length(x),]
dum1
z <- as.data.frame(dum1)
z
mylagtitle <- 'Lag plot (k='
mylagtitle <- paste(mylagtitle,par2,sep='')
mylagtitle <- paste(mylagtitle,'), and lowess',sep='')
plot(z,main=mylagtitle)
lines(lowess(z))
dev.off()
}
bitmap(file='pic5.png')
acf(x,lag.max=par2,main='Autocorrelation Function')
grid()
dev.off()
}
summary(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Descriptive Statistics',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'# observations',header=TRUE)
a<-table.element(a,length(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'minimum',header=TRUE)
a<-table.element(a,min(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Q1',header=TRUE)
a<-table.element(a,quantile(x,0.25))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'median',header=TRUE)
a<-table.element(a,median(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Q3',header=TRUE)
a<-table.element(a,quantile(x,0.75))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'maximum',header=TRUE)
a<-table.element(a,max(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')