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 computationSat, 17 Nov 2012 10:53:53 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Nov/17/t135316765890p0rsbd6uii3cl.htm/, Retrieved Sat, 27 Apr 2024 19:17:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=190081, Retrieved Sat, 27 Apr 2024 19:17:24 +0000
QR Codes:

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

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] [time effect in su...] [2010-11-17 08:55:33] [b98453cac15ba1066b407e146608df68]
- R PD    [Univariate Explorative Data Analysis] [WS 7 tijdsverande...] [2012-11-17 15:53:53] [4c93b3a0c48c946a3a36627369b78a37] [Current]
-  MP       [Univariate Explorative Data Analysis] [WS 7] [2012-11-19 14:45:28] [5971e03025aa6333f85f7b726952428d]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
127
108
110
102
104
140
112
115
121
112
118
122
105
111
151
106
100
149
122
115
86
124
69
117
113
123
123
84
97
121
132
119
98
87
101
115
109
109
159
129
119
119
122
131
120
82
86
105
114
100
100
99
132
82
132
107
114
110
105
121
109
106
124
120
91
126
138
118
128
98
133
130
103
124
142
96
93
129
150
88
125
92
0
117
112
144
130
87
92
114
81
127
115
123
115
117
117
103
108
139
113
97
117
133
115
103
95
117
113
127
126
119
97
105
140
91
112
113
102
92
98
122
100
84
142
124
137
105
106
125
104
130
79
108
136
98
120
108
139
123
90
119
105
110
135
101
114
118
120
108
114
122
132
130
130
112
114
103
115
108
94
105

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'Gertrude Mary Cox' @ cox.wessa.net

\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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=190081&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=190081&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=190081&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'Gertrude Mary Cox' @ cox.wessa.net






Descriptive Statistics
# observations162
minimum0
Q1103
median114
mean112.858024691358
Q3123.75
maximum159

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 162 \tabularnewline
minimum & 0 \tabularnewline
Q1 & 103 \tabularnewline
median & 114 \tabularnewline
mean & 112.858024691358 \tabularnewline
Q3 & 123.75 \tabularnewline
maximum & 159 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=190081&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]162[/C][/ROW]
[ROW][C]minimum[/C][C]0[/C][/ROW]
[ROW][C]Q1[/C][C]103[/C][/ROW]
[ROW][C]median[/C][C]114[/C][/ROW]
[ROW][C]mean[/C][C]112.858024691358[/C][/ROW]
[ROW][C]Q3[/C][C]123.75[/C][/ROW]
[ROW][C]maximum[/C][C]159[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=190081&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=190081&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
# observations162
minimum0
Q1103
median114
mean112.858024691358
Q3123.75
maximum159


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 7 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
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')