Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_edauni.wasp

Title produced by software

Univariate Explorative Data Analysis

Date of computation

Fri, 19 Dec 2008 07:44:30 -0700

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Dec/19/t12296979850kz5p8m1bjkr6jf.htm/, Retrieved Wed, 15 May 2024 10:51:37 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=35159, Retrieved Wed, 15 May 2024 10:51:37 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

168

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

F     [Univariate Explorative Data Analysis] [Investigating Dis...] [2007-10-21 18:26:46] [b9964c45117f7aac638ab9056d451faa]
-   PD    [Univariate Explorative Data Analysis] [Univariate explor...] [2008-12-19 14:44:30] [9ba97de59bb4d2edf0cfeac4ca7d2b73] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

7,968826781
9,816920943
8,719451905
9,578609279
9,237957039
9,504384998
11,74024304
15,0813138
16,39006231
11,7966217
14,00695911
21,87143653
8,437443505
8,92920304
8,78733936
8,801156312
10,96936363
11,90525463
14,63906985
19,8830923
16,38546856
13,63620826
18,49491538
27,85870452
10,26908774
11,77670213
10,49849708
11,59769015
13,3447991
12,56215774
16,04223844
19,97154374
16,76067856
13,27442603
18,06058206
20,97417867
11,84839865
11,1937969
9,034930448
10,11798757
13,59429541
12,36409614
18,85359423
20,42958924
18,10215117
15,62689162
17,63002196
23,72893919
11,48604253
12,92667895
11,12814654
11,80092249
13,59338843
11,47580922
18,95547684
18,84070823
17,62468789
16,52851434
16,68686416
28,47325005
10,13471786
10,73736694
8,846490693
11,13447741
11,19904194
12,28408482
17,35287363
18,8196253
17,61475293
14,10254872
16,22664563
26,27411598
9,987813135
11,14854462
8,902315691
10,93318504
10,76504044
9,875081688
13,86360119
16,53316349
14,69498101
11,37004918
13,93897805
21,54230898

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 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 & 2 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=35159&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=35159&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=35159&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'George Udny Yule' @ 72.249.76.132

Descriptive Statistics
# observations	84
minimum	7.968826781
Q1	10.89114889
median	13.10055249
mean	14.1654711284167
Q3	16.9087273275
maximum	28.47325005

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 84 \tabularnewline
minimum & 7.968826781 \tabularnewline
Q1 & 10.89114889 \tabularnewline
median & 13.10055249 \tabularnewline
mean & 14.1654711284167 \tabularnewline
Q3 & 16.9087273275 \tabularnewline
maximum & 28.47325005 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=35159&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]84[/C][/ROW]
[ROW][C]minimum[/C][C]7.968826781[/C][/ROW]
[ROW][C]Q1[/C][C]10.89114889[/C][/ROW]
[ROW][C]median[/C][C]13.10055249[/C][/ROW]
[ROW][C]mean[/C][C]14.1654711284167[/C][/ROW]
[ROW][C]Q3[/C][C]16.9087273275[/C][/ROW]
[ROW][C]maximum[/C][C]28.47325005[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=35159&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=35159&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
# observations	84
minimum	7.968826781
Q1	10.89114889
median	13.10055249
mean	14.1654711284167
Q3	16.9087273275
maximum	28.47325005

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Figure 3

PNG link

Postscript link

PDF link

Figure 4

PNG link

Postscript link

PDF link

Figure 5

PNG link

Postscript link

PDF link

Figure 6

PNG link

Postscript link

PDF link

Parameters (Session):

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code