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 computationTue, 15 Nov 2011 11:17:41 -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/15/t1321373976t1q25lhahafgojw.htm/, Retrieved Thu, 28 Mar 2024 20:44:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=143138, Retrieved Thu, 28 Mar 2024 20:44:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact90
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]
F RMPD  [Univariate Explorative Data Analysis] [Colombia Coffee] [2008-01-07 14:21:11] [74be16979710d4c4e7c6647856088456]
- RMPD    [Univariate Explorative Data Analysis] [Model assumpties] [2010-11-06 16:31:14] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
- R  D        [Univariate Explorative Data Analysis] [] [2011-11-15 16:17:41] [ce4468323d272130d499477f5e05a6d2] [Current]
Feedback Forum

Post a new message
Dataseries X:
138900
136400
133900
130400
133200
132500
130400
132000
131400
133300
129700
129500
134257
133802
134542
132423
135853
135676
137311
139515
138554
139560
136171
137454
142388
143616
140197
148011
152637
152341
159219
161478
163350
166044
160925
163439
165411
160522
159302
151933
156735
156254
158051
157038
154626
153093
147274
150847
157165
157384
152655
154088
156583
156608
159543
162916
167167
172470
167473
164832
174144
177945
180962
179105
185076
183863
189329
191268
190450




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=143138&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'Herman Ole Andreas Wold' @ wold.wessa.net







Descriptive Statistics
# observations69
minimum129500
Q1136400
median153093
mean152644.565217391
Q3162916
maximum191268

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 69 \tabularnewline
minimum & 129500 \tabularnewline
Q1 & 136400 \tabularnewline
median & 153093 \tabularnewline
mean & 152644.565217391 \tabularnewline
Q3 & 162916 \tabularnewline
maximum & 191268 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=143138&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]69[/C][/ROW]
[ROW][C]minimum[/C][C]129500[/C][/ROW]
[ROW][C]Q1[/C][C]136400[/C][/ROW]
[ROW][C]median[/C][C]153093[/C][/ROW]
[ROW][C]mean[/C][C]152644.565217391[/C][/ROW]
[ROW][C]Q3[/C][C]162916[/C][/ROW]
[ROW][C]maximum[/C][C]191268[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=143138&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=143138&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
# observations69
minimum129500
Q1136400
median153093
mean152644.565217391
Q3162916
maximum191268



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)
grid()
dev.off()
if (par2 > 0)
{
bitmap(file='lagplot.png')
dum <- cbind(lag(x,k=1),x)
dum
dum1 <- dum[2:length(x),]
dum1
z <- as.data.frame(dum1)
z
plot(z,main=paste('Lag plot, lowess, and regression line'))
lines(lowess(z))
abline(lm(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')