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, 17 Nov 2011 11:16:07 -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/2011/Nov/17/t1321546585y8qibyxxos4ebf1.htm/, Retrieved Sat, 27 Apr 2024 03:21:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=145040, Retrieved Sat, 27 Apr 2024 03:21:33 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
- RMPD  [Blocked Bootstrap Plot - Central Tendency] [Colombia Coffee] [2008-01-07 10:26:26] [74be16979710d4c4e7c6647856088456]
- RMPD      [Univariate Explorative Data Analysis] [Univariate EDA] [2011-11-17 16:16:07] [e5e604418bec6ffe5109fb01f8a59ccb] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
80
111
122
131
192
188
216
238
173
160
93
67
60
32
126
131
134
162
230
232
200
143
85
66
54
81
100
126
204
218
227
220
220
120
110
67
81
52
106
156
187
204
204
196
204
124
53
77
77
50
105
125
165
194
263
225
263
140
127
86
71
95
95
133
178
160
250
251
250
173
103
21
29
39
71
148
144
199
206
224
206
152
88
35
23
92
117
120
173
202
217
256
217
143
95
77
76
100
108
132
195
198
204
212
204
129
73
77
80
64
109
138
185
198
237
223
237
146
102
77
70
86
98
141
195
205
191
226
191
147
100
74
56
77
80
120
186
196
229
229
229
176
104
61
72
99
113
140
174
209
205
229
215
136
113
57
55
66
125
149
176
230
238
245
238
124
111
72
63
78
100
149
166
201
214
231
214
151
97
68
81
55
99
146
170
218
218
207
218
178
105
67
47
55
73
124
185
213
278
205
278
171
125
92
96
92
118
185
183
215
207
214
207
142
102
66
87
90
90
133
205
201
220
210
220
136
95
52
40
60
100
169
184
202
226
239
226
149
121
50

Tables (Output of Computation)





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

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






Descriptive Statistics
# observations240
minimum21
Q191.5
median140.5
mean145.291666666667
Q3204
maximum278

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 240 \tabularnewline
minimum & 21 \tabularnewline
Q1 & 91.5 \tabularnewline
median & 140.5 \tabularnewline
mean & 145.291666666667 \tabularnewline
Q3 & 204 \tabularnewline
maximum & 278 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=145040&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]240[/C][/ROW]
[ROW][C]minimum[/C][C]21[/C][/ROW]
[ROW][C]Q1[/C][C]91.5[/C][/ROW]
[ROW][C]median[/C][C]140.5[/C][/ROW]
[ROW][C]mean[/C][C]145.291666666667[/C][/ROW]
[ROW][C]Q3[/C][C]204[/C][/ROW]
[ROW][C]maximum[/C][C]278[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=145040&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=145040&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
# observations240
minimum21
Q191.5
median140.5
mean145.291666666667
Q3204
maximum278


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