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 computationTue, 16 Nov 2010 12:21:29 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Nov/16/t1289910111kld9emeqxrilljk.htm/, Retrieved Sun, 05 May 2024 05:53:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=95470, Retrieved Sun, 05 May 2024 05:53:35 +0000
QR Codes:

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

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] [Turnover company A] [2010-11-02 11:53:41] [b98453cac15ba1066b407e146608df68]
-   PD    [Univariate Explorative Data Analysis] [Prijs van elektri...] [2010-11-16 12:21:29] [93ab421e12cd1017d2b38fdbcbdb62e0] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
23,645
23,755
24,136
24,369
24,713
25,657
26,165
26,366
26,504
26,339
25,897
26,386
26,698
27,701
28,15
28,433
28,96
30,931
31,513
31,569
31,755
30,89
30,381
30,967
31,552
32,097
32,473
32,848
33,1
34,962
35,744
36,496
36,273
34,872
34,919
34,96
36,006
36,086
36,741
36,799
36,438
38,047
38,403
38,471
38,265
37,388
36,655
37,074
37,184
37,306
37,393
37,117
37,424
39,216
39,507
39,592
39,578
38,781
38,325
38,188
38,6
38,832
39,066
39,487
39,539
41,635
42,406
43,35
40,801
39,441
38,935
38,626
38,975
39,107
39,312
39,485
39,468
41,169
41,172
41,497
40,25
39,752
39,754

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=95470&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=95470&T=0

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






Descriptive Statistics
# observations83
minimum23.645
Q131.24
median36.799
mean34.9255301204819
Q339.0865
maximum43.35

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 83 \tabularnewline
minimum & 23.645 \tabularnewline
Q1 & 31.24 \tabularnewline
median & 36.799 \tabularnewline
mean & 34.9255301204819 \tabularnewline
Q3 & 39.0865 \tabularnewline
maximum & 43.35 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=95470&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]83[/C][/ROW]
[ROW][C]minimum[/C][C]23.645[/C][/ROW]
[ROW][C]Q1[/C][C]31.24[/C][/ROW]
[ROW][C]median[/C][C]36.799[/C][/ROW]
[ROW][C]mean[/C][C]34.9255301204819[/C][/ROW]
[ROW][C]Q3[/C][C]39.0865[/C][/ROW]
[ROW][C]maximum[/C][C]43.35[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=95470&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=95470&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
# observations83
minimum23.645
Q131.24
median36.799
mean34.9255301204819
Q339.0865
maximum43.35


Figures (Output of Computation)

Input Parameters & R Code

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