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 computationMon, 21 Nov 2011 07:06:17 -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/21/t1321877201yvc2py2xuilmrem.htm/, Retrieved Wed, 24 Apr 2024 17:37:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=145714, Retrieved Wed, 24 Apr 2024 17:37:25 +0000
QR Codes:

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

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  D    [Univariate Explorative Data Analysis] [WS 7 Yt Sequence ...] [2011-11-21 12:06:17] [22431204c416bf26bfe4de00cd8c0d22] [Current]
-    D      [Univariate Explorative Data Analysis] [WS7 (2)] [2012-11-18 17:35:32] [300ac07a477d84a470eebba12c2af4b2]
- RMPD      [Central Tendency] [WS7 (3)] [2012-11-18 17:42:27] [300ac07a477d84a470eebba12c2af4b2]
-    D      [Univariate Explorative Data Analysis] [Mini-Tutorial1] [2012-11-19 14:19:49] [3ba5358ad212dca7c498c7fc6d6ebde5]
-    D      [Univariate Explorative Data Analysis] [WS7 2] [2012-11-19 16:48:58] [ec4855be6a46db5e0c29fcd049472c6d]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
170588
86621
113337
152510
86206
37257
306055
32750
116502
130539
161876
128274
102350
193024
141574
253559
181110
198432
113853
159940
166822
286675
91657
108278
146342
145142
161740
160905
106888
188150
189401
129484
204030
62731
243625
167255
264528
122024
80964
209795
224205
115971
138191
81106
93125
305756
78800
158835
221745
131108
128734
24188
257662
65029
98066
173587
180042
197266
212060
141582
245107
206879
145696
170635
142064
114820
113461
145285
150999
91812
118807
69471
126630
145908
98393
190926
198797
106193
89318
120362
98791
274953
132798
135251
80953
109237
96634
226191
171286
117815
133561
152193
112004
169613
187483
130533
142339
189764
201603
246834
155947
182581
106351
43287
127493
127930
149006
187653
74112
94006
176625
141933
22938
125927
61857
91290
255100
21054
169093
31414
188701
137544
77166
74567
38214
90961
194224
135261
244272
201748
256402
139144
76470
189502
280334
50999
253274
103239
168059
128768
75746
249232
152366
173260
197197
67507
139409
185366
0
14688
98
455
0
0
137885
185288
0
203
7199
46660
17547
73567
969
105477

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=145714&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 time2 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net






Descriptive Statistics
# observations164
minimum0
Q191565.25
median135256
mean135584.237804878
Q3183257.75
maximum306055

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 164 \tabularnewline
minimum & 0 \tabularnewline
Q1 & 91565.25 \tabularnewline
median & 135256 \tabularnewline
mean & 135584.237804878 \tabularnewline
Q3 & 183257.75 \tabularnewline
maximum & 306055 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=145714&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]164[/C][/ROW]
[ROW][C]minimum[/C][C]0[/C][/ROW]
[ROW][C]Q1[/C][C]91565.25[/C][/ROW]
[ROW][C]median[/C][C]135256[/C][/ROW]
[ROW][C]mean[/C][C]135584.237804878[/C][/ROW]
[ROW][C]Q3[/C][C]183257.75[/C][/ROW]
[ROW][C]maximum[/C][C]306055[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=145714&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=145714&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
# observations164
minimum0
Q191565.25
median135256
mean135584.237804878
Q3183257.75
maximum306055


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