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 computationThu, 23 Oct 2008 06:23:25 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Oct/23/t12247647045f0wk4lqgm6x3lo.htm/, Retrieved Sat, 18 May 2024 19:40:44 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=18486, Retrieved Sat, 18 May 2024 19:40:44 +0000
QR Codes:

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

Tree of Dependent Computations

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-22 19:45:25] [b9964c45117f7aac638ab9056d451faa]
F    D    [Univariate Explorative Data Analysis] [Q7:Autocorrelation] [2008-10-23 12:23:25] [8758b22b4a10c08c31202f233362e983] [Current]
-   PD      [Univariate Explorative Data Analysis] [Q7: Investigate v...] [2008-11-02 20:25:24] [1ce0d16c8f4225c977b42c8fa93bc163]
Feedback Forum
2008-10-29 14:34:46 [Peter Smolders] [reply] 
De student heeft de 'lags' niet ingesteld, waardoor er enkele grafieken niet worden afgebeeld. Uiteraard kan de oefening dan niet volledig en correct beoordeeld worden.
2008-11-02 20:28:37 [] [reply] 
Ook hier heb ik volgens mij de vraag tot de 3 eerste assumpties correct geïnterpreteerd. Bij de 4de assumptie heb ik geen antwoord kunnen geven, ik moest hier de lags veranderen naar 12 zoals in onderstaande link:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/Nov/02/t1225657591iwtbh8b8uwrgzfh.htm , Retrieved Sun, 02 Nov 2008 20:26:36 +0000

Men kan aflezen op de laatste 2 grafieken dat er geen randomness is aangezien er een bepaalde structuur is en er is ook autocorrelatie.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
110,089
99,966
94,195
119,588
125,946
118,906
108,717
118,357
115,422
130,937
111,802
120,357
121,12
108,752
98,973
116,721
123,857
114,056
98,309
110,251
108,538
122,526
118,394
116,691
116,014
111,784
95,164
121,028
129,89
116,102
102,055
113,562
113,071
126,486
119,472
117,141
121,925
112,688
90,974
126,398
130,401
116,873
111,917
113,919
117,931
139,332
127,781
118,103
136,984
119,566
107,238
139,389
139,798
138,074
129,739
125,098
129,341
149,083
137,721
130,126
140,499
118,165
115,932
144,662
136,159
147,339
138,807
135,275
135,84
161,702
132,606
147,419
154,865
131,545
126,212
150,316
154,524
154,28
131,059
147,168
141,8
162,022
143,924
151,406
159,601
143,513
132,302
152,021
171,573
161,591
134,057
172,247
173,384
173,706
188,178
165,932
179,795

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18486&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Descriptive Statistics
# observations97
minimum90.974
Q1116.102
median126.486
mean130.268701030928
Q3141.8
maximum188.178

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 97 \tabularnewline
minimum & 90.974 \tabularnewline
Q1 & 116.102 \tabularnewline
median & 126.486 \tabularnewline
mean & 130.268701030928 \tabularnewline
Q3 & 141.8 \tabularnewline
maximum & 188.178 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=18486&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]97[/C][/ROW]
[ROW][C]minimum[/C][C]90.974[/C][/ROW]
[ROW][C]Q1[/C][C]116.102[/C][/ROW]
[ROW][C]median[/C][C]126.486[/C][/ROW]
[ROW][C]mean[/C][C]130.268701030928[/C][/ROW]
[ROW][C]Q3[/C][C]141.8[/C][/ROW]
[ROW][C]maximum[/C][C]188.178[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=18486&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18486&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
# observations97
minimum90.974
Q1116.102
median126.486
mean130.268701030928
Q3141.8
maximum188.178


Figures (Output of Computation)

Input Parameters & R Code

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