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 computationTue, 21 Dec 2010 12:18:24 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/21/t1292933785ixww88i6vfw4may.htm/, Retrieved Fri, 17 May 2024 21:07:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=113370, Retrieved Fri, 17 May 2024 21:07:34 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact132

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] [b-r0245787] [2010-12-19 16:05:46] [ebb35fb07def4d07c0eb7ec8d2fd3b0e]
-    D  [Univariate Explorative Data Analysis] [b-r0245095] [2010-12-19 16:19:41] [ec8d68d52c1e9c5e97bb689b42436a8c]
-    D    [Univariate Explorative Data Analysis] [b-r0245095] [2010-12-21 10:45:43] [ec8d68d52c1e9c5e97bb689b42436a8c]
-    D        [Univariate Explorative Data Analysis] [b-r0245095] [2010-12-21 12:18:24] [4bfaadb29d89ff24ebcdd4f425066435] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
-0.103395775413547
-0.102119071477734
-0.0818766243906285
-0.0119800214843379
-0.0186348038511091
0.0171247716603502
0.0449528608692251
0.0317466932293922
0.0440576540139132
0.0960227706176194
0.0383337314021404
-0.0314238215107543
-0.0235957323018794
-0.0157676430930045
0.0351632166619939
0.0309227921734532
0.0177166245336203
0.0320960990155569
0.0354413166487858
0.0387865342820146
0.0186831371883051
-0.0124545167541122
-0.021177812818299
-0.0288668520337780
-0.0589702491274875
-0.0466592883429665
-0.0288311991340916
-0.00100310992521664
0.0244106214054278
0.0322387106143028
0.0500667998231777
0.0434120174564065
0.0502058498165736
0.0338969116306172
0.0831051018690146
0.00989893422918181
-0.0143414902593589
-0.0220305294748379
-0.0683394676607944
0.0460400068211422
0.088696811786478
0.107905002024876
0.100215962809397
0.0156296941400409
-0.0220593450754381
-0.0456113568960858
-0.0695092128975482
-0.154095481566904
-0.153164621811905
-0.144302275754323
-0.0947515170288468
-0.0724405562443258
-0.0249583112162656
0.0570068053874405
0.0834547935667928
0.0561115985321286
0.0604910730140652
0.0328020337985862
0.0209759671882759
-0.00774732887591092
0.00249511821119445

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 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 & 5 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=113370&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]5 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=113370&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=113370&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 time5 seconds
R Server'George Udny Yule' @ 72.249.76.132






Descriptive Statistics
# observations61
minimum-0.154095481566904
Q1-0.0288311991340916
median0.0156296941400409
mean-8.47649129008963e-18
Q30.0387865342820146
maximum0.107905002024876

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 61 \tabularnewline
minimum & -0.154095481566904 \tabularnewline
Q1 & -0.0288311991340916 \tabularnewline
median & 0.0156296941400409 \tabularnewline
mean & -8.47649129008963e-18 \tabularnewline
Q3 & 0.0387865342820146 \tabularnewline
maximum & 0.107905002024876 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=113370&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]61[/C][/ROW]
[ROW][C]minimum[/C][C]-0.154095481566904[/C][/ROW]
[ROW][C]Q1[/C][C]-0.0288311991340916[/C][/ROW]
[ROW][C]median[/C][C]0.0156296941400409[/C][/ROW]
[ROW][C]mean[/C][C]-8.47649129008963e-18[/C][/ROW]
[ROW][C]Q3[/C][C]0.0387865342820146[/C][/ROW]
[ROW][C]maximum[/C][C]0.107905002024876[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=113370&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=113370&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
# observations61
minimum-0.154095481566904
Q1-0.0288311991340916
median0.0156296941400409
mean-8.47649129008963e-18
Q30.0387865342820146
maximum0.107905002024876


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')