Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationSat, 26 Feb 2011 15:07:34 +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/2011/Feb/26/t1298733564mr27m5x69qgwmgn.htm/, Retrieved Wed, 15 May 2024 19:11:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=119186, Retrieved Wed, 15 May 2024 19:11:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W1
Estimated Impact149
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2011-02-26 15:07:34] [a1227ea2765437e12198442af6810223] [Current]
Feedback Forum

Post a new message
Dataseries X:
125
132
99
103
109
98
97
102
87
89
124
131
132
126
121
112
108
101
98
99
89
102
137
153
143
135
102
123
100
98
98
89
102
134
143
146
147
138
120
120
107
97
89
88
104
109
123
147
138
149
104
94
93
96
86
86
94
104
112
132
141
135
123
95
87
67
78
98
134
142
124
151
157




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

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

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







Univariate Dataseries
Name of dataseriesAantal bezoeken
Sourcepersoonlijke gegevens
DescriptionAantal boekingen per maand in saunacentrum Tropical
Number of observations73

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Aantal bezoeken \tabularnewline
Source & persoonlijke gegevens \tabularnewline
Description & Aantal boekingen per maand in saunacentrum Tropical \tabularnewline
Number of observations & 73 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=119186&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Aantal bezoeken[/C][/ROW]
[ROW][C]Source[/C][C]persoonlijke gegevens[/C][/ROW]
[ROW][C]Description[/C][C]Aantal boekingen per maand in saunacentrum Tropical[/C][/ROW]
[ROW][C]Number of observations[/C][C]73[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=119186&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=119186&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Univariate Dataseries
Name of dataseriesAantal bezoeken
Sourcepersoonlijke gegevens
DescriptionAantal boekingen per maand in saunacentrum Tropical
Number of observations73



Parameters (Session):
par1 = Aantal bezoeken ; par2 = persoonlijke gegevens ; par3 = Aantal boekingen per maand in saunacentrum Tropical ; par4 = 12 ;
Parameters (R input):
par1 = Aantal bezoeken ; par2 = persoonlijke gegevens ; par3 = Aantal boekingen per maand in saunacentrum Tropical ; par4 = 12 ;
R code (references can be found in the software module):
if (par4 != 'No season') {
par4 <- as.numeric(par4)
if (par4 < 4) par4 <- 12
}
summary(x)
n <- length(x)
bitmap(file='test1.png')
if (par4=='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,10))
}
if (par4!='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,par4))
grid(nx=0,ny=NULL,col='black')
abline(v=seq(1,n,par4),col='black',lty='dotted')
}
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Univariate Dataseries',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Name of dataseries',header=TRUE)
a<-table.element(a,par1)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Source',header=TRUE)
a<-table.element(a,par2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Description',header=TRUE)
a<-table.element(a,par3)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of observations',header=TRUE)
a<-table.element(a,length(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')