Free Statistics

of Irreproducible Research!

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, 24 Nov 2011 11:16:11 -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/24/t1322151400ivw0jdzqfazsm74.htm/, Retrieved Thu, 28 Mar 2024 22:39:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147037, Retrieved Thu, 28 Mar 2024 22:39:58 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact76
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Explorative Data Analysis] [] [2011-11-24 16:16:11] [6ad33b3268238fa8bcced586c4c02be4] [Current]
Feedback Forum

Post a new message
Dataseries X:
10345
17607
1423
20050
21212
93979
15524
16182
19238
28909
22357
25560
9954
18490
17777
25268
37525
6023
25042
35713
7039
40841
9214
17446
10295
13206
26093
20744
68013
12840
12672
10872
21325
24542
16401
0
12821
14662
22190
37929
18009
11076
24981
30691
29164
13985
7588
20023
25524
14717
6832
9624
24300
21790
16493
9269
20105
11216
15569
21799
3772
6057
20828
9976
14055
17455
39553
14818
17065
1536
11938
24589
21332
13229
11331
853
19821
34666
15051
27969
17897
6031
7153
13365
11197
25291
28994
10461
16415
8495
18318
25143
20471
14561
16902
12994
29697
3895
9807
10711
2325
19000
22418
7872
5650
3979
14956
3738
0
10586
18122
17899
10913
18060
0
0
15452
33996
8877
18708
2781
20854
8179
7139
13798
5619
13050
11297
16170
0
0
20539
0
10056
0
2418
0
11806
15924
0
0
7084
14831
6585




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=147037&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=147037&T=0

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

As an alternative you can also use a 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
# observations144
minimum0
Q18781.5
median14767.5
mean15794.7986111111
Q320765
maximum93979

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 144 \tabularnewline
minimum & 0 \tabularnewline
Q1 & 8781.5 \tabularnewline
median & 14767.5 \tabularnewline
mean & 15794.7986111111 \tabularnewline
Q3 & 20765 \tabularnewline
maximum & 93979 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147037&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]144[/C][/ROW]
[ROW][C]minimum[/C][C]0[/C][/ROW]
[ROW][C]Q1[/C][C]8781.5[/C][/ROW]
[ROW][C]median[/C][C]14767.5[/C][/ROW]
[ROW][C]mean[/C][C]15794.7986111111[/C][/ROW]
[ROW][C]Q3[/C][C]20765[/C][/ROW]
[ROW][C]maximum[/C][C]93979[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=147037&T=1

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

As an alternative you can also use a QR Code:  

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

Descriptive Statistics
# observations144
minimum0
Q18781.5
median14767.5
mean15794.7986111111
Q320765
maximum93979



Parameters (Session):
par1 = 0 ; par2 = 0 ;
Parameters (R input):
par1 = 0 ; par2 = 0 ;
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')