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 13:04:22 -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/t1322157895yyxfn8y9s0shxi9.htm/, Retrieved Fri, 29 Mar 2024 12:20:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147124, Retrieved Fri, 29 Mar 2024 12:20:37 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact58
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Competence to learn] [2010-11-17 07:43:53] [b98453cac15ba1066b407e146608df68]
- RMPD    [Univariate Explorative Data Analysis] [] [2011-11-24 18:04:22] [ccdbcd1f4b80805a70032cb1a2c4c931] [Current]
Feedback Forum

Post a new message
Dataseries X:
10823
44480
1929
30032
27669
114967
29951
38824
26517
63570
27131
41061
18810
27582
37026
24252
32579
0
29666
7533
11892
51557
5737
11203
28714
24268
30749
46643
64530
35346
5766
29217
15912
3728
37494
0
13214
19576
13632
67378
29387
15936
18156
23750
15559
21713
12023
23588
28661
16874
11804
12949
38340
36573
40068
25561
31287
8383
29178
1237
10241
8219
9348
25242
24267
25902
51849
29065
22417
1714
29085
22118
14803
13243
13985
657
26171
34867
12297
17487
13461
15192
16584
22892
7081
21623
41992
11301
15230
14667
23795
28055
29162
14962
8749
37310
31551
9604
13937
16850
3439
16638
12847
13462
8086
2255
25918
3255
0
16138
5941
27123
19148
15214
0
0
34998
18998
10651
13465
13
32505
15769
5936
4174
9876
17678
14633
13380
0
0
5652
0
3636
0
1695
0
8778
4148
0
0
10404
20794
11200




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 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 & 3 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147124&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]3 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=147124&T=0

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







Descriptive Statistics
# observations144
minimum0
Q18770.75
median15924
mean19491.7152777778
Q328206.5
maximum114967

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 144 \tabularnewline
minimum & 0 \tabularnewline
Q1 & 8770.75 \tabularnewline
median & 15924 \tabularnewline
mean & 19491.7152777778 \tabularnewline
Q3 & 28206.5 \tabularnewline
maximum & 114967 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147124&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]8770.75[/C][/ROW]
[ROW][C]median[/C][C]15924[/C][/ROW]
[ROW][C]mean[/C][C]19491.7152777778[/C][/ROW]
[ROW][C]Q3[/C][C]28206.5[/C][/ROW]
[ROW][C]maximum[/C][C]114967[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=147124&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147124&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
Q18770.75
median15924
mean19491.7152777778
Q328206.5
maximum114967



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