Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_edauni.wasp
Title produced by softwareUnivariate Explorative Data Analysis
Date of computationMon, 22 Oct 2007 13:24:46 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2007/Oct/22/g22pvqpcbho6e6v1193084421.htm/, Retrieved Mon, 06 May 2024 09:14:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=1461, Retrieved Mon, 06 May 2024 09:14:32 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsconstant + random component
Estimated Impact192
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Explorative Data Analysis] [workshop2deel2Q7] [2007-10-22 20:24:46] [a1fadf46580e43815db2830b4560d35f] [Current]
Feedback Forum

Post a new message
Dataseries X:
1983.01    
1983.02    
1983.03    
1983.04    
1983.05    
1983.06    
1983.07    
1983.08    
1983.09    
1983.10    
1983.11    
1983.12    
1984.01    
1984.02    
1984.03
1984.04    
1984.05    
1984.06    
1984.07    
1984.08    
1984.09    
1984.10    
1984.11    
1984.12    
1985.01    
1985.02    
1985.03    
1985.04    
1985.05    
1985.06    
1985.07    
1985.08    
1985.09    
1985.10    
1985.11    
1985.12    
1986.01    
1986.02    
1986.03    
1986.04    
1986.05    
1986.06    
1986.07    
1986.08    
1986.09    
1986.10    
1986.11    
1986.12    
1987.01    
1987.02    
1987.03    
1987.04    
1987.05    
1987.06    
1987.07    
1987.08    
1987.09    
1987.10    
1987.11    
1987.12    
1988.01    
1988.02    
1988.03    
1988.04    
1988.05    
1988.06    
1988.07    
1988.08    
1988.09    
1988.10    
1988.11    
1988.12    
1988.01    
1989.02
1989.03    
1989.04    
1989.05    
1989.06    
1989.07    
1989.08    
1989.09    
1989.10    
1989.11    
1989.12    
1990.01    
1990.02    
1990.03    
1990.04    
1990.05    
1990.06    
1990.07    
1990.08    
1990.09    
1990.10    
1990.11    
1990.12    
1991.01    
1991.02    
1991.03    
1991.04    
1991.05    
1991.06    
1991.07    
1991.08    
1991.09    
1991.10    
1991.11    
1991.12    
1992.01    
1992.02    
1992.03    
1992.04    
1992.05    
1992.06    
1992.07    
1992.08    
1992.09    
1992.10    
1992.11    
1992.12    
1993.01    
1993.02    
1993.03    
1993.04    
1993.05    
1993.06    
1993.07    
1993.08    
1993.09    
1993.10    
1993.11    
1993.12    
1994.01    
1994.02    
1994.03    
1994.04    
1994.05    
1994.06    
1994.07    
1994.08    
1994.09    
1994.10    
1994.11    
1994.12    
1995.01    
1995.02    
1995.03    
1995.04    
1995.05    
1995.06    
1995.07    
1995.08    
1995.09    
1995.10    
1995.11    
1995.12    
1996.01    
1996.02    
1996.03    
1996.04    
1996.05    
1996.06    
1996.07    
1996.08    
1996.09    
1996.10    
1996.11    
1996.12    
1997.01    
1997.02    
1997.03    
1997.04    
1997.05    
1997.06    
1997.07    
1997.08    
1997.09    
1997.10    
1997.11    
1997.12    
1998.01    
1998.02    
1998.03    
1998.04    
1998.05    
1998.06    
1998.07    
1998.08    
1998.09    
1998.10    
1998.11    
1998.12    
1999.01    
1999.02    
1999.03    
1999.04    
1999.05    
1999.06    
1999.07    
1999.08    
1999.09    
1999.10    
1999.11    
1999.12    
2000.01    
2000.02    
2000.03    
2000.04    
2000.05    
2000.06    
2000.07    
2000.08    
2000.09    
2000.10    
2000.11    
2000.12    
2001.01    
2001.02    
2001.03    
2001.04    
2001.05    
2001.06    
2001.07    
2001.08    
2001.09    
2001.10    
2001.11    
2001.12    
2002.01    
2002.02    
2002.03    
2002.04    
2002.05    
2002.06    
2002.07    
2002.08    
2002.09    
2002.10    
2002.11    
2002.12    
2003.01    
2003.02    
2003.03    
2003.04    
2003.05    
2003.06    
2003.07    
2003.08    
2003.09    
2003.10    
2003.11    
2003.12    
2004.01    
2004.02    
2004.03    
2004.04    
2004.05    
2004.06    
2004.07    
2004.08    
2004.09    
2004.10    
2004.11    
2004.12    
2005.01    
2005.02    
2005.03    
2005.04    
2005.05    
2005.06    
2005.07    
2005.08    
2005.09    
2005.10    
2005.11    
2005.12    
2006.01    
2006.02    
2006.03    
2006.04    
2006.05    
2006.06    
2006.07    
2006.08    
2006.09    
2006.10    
2006.11    
2006.12    
2007.01    
2007.02    
2007.03    
2007.04    
2007.05    
2007.06    
2007.07    
2007.08    
2007.09    




Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\begin{tabular}{lllllllll}
\hline
Summary of compuational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 5 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=1461&T=0

[TABLE]
[ROW][C]Summary of compuational 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]5 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=1461&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=1461&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001







Descriptive Statistics
# observations297
minimum1983.01
Q11989.03
median1995.05
mean1994.93996632997
Q32001.07
maximum2007.09

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
# observations & 297 \tabularnewline
minimum & 1983.01 \tabularnewline
Q1 & 1989.03 \tabularnewline
median & 1995.05 \tabularnewline
mean & 1994.93996632997 \tabularnewline
Q3 & 2001.07 \tabularnewline
maximum & 2007.09 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=1461&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]# observations[/C][C]297[/C][/ROW]
[ROW][C]minimum[/C][C]1983.01[/C][/ROW]
[ROW][C]Q1[/C][C]1989.03[/C][/ROW]
[ROW][C]median[/C][C]1995.05[/C][/ROW]
[ROW][C]mean[/C][C]1994.93996632997[/C][/ROW]
[ROW][C]Q3[/C][C]2001.07[/C][/ROW]
[ROW][C]maximum[/C][C]2007.09[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=1461&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=1461&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
# observations297
minimum1983.01
Q11989.03
median1995.05
mean1994.93996632997
Q32001.07
maximum2007.09



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