Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationMon, 18 Jul 2016 08:16:08 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Jul/18/t1468826194mt1t0qru62uk267.htm/, Retrieved Fri, 03 May 2024 11:57:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=295876, Retrieved Fri, 03 May 2024 11:57:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact147
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2016-07-18 07:16:08] [b94c13d84d922b33c8d74b1e5b1d38c1] [Current]
Feedback Forum

Post a new message
Dataseries X:
1943
1932
1922
1901
2108
2098
1943
1839
1850
1850
1860
1881
1839
1819
1757
1664
1922
1839
1633
1674
1633
1736
1591
1684
1602
1581
1416
1354
1664
1602
1405
1529
1426
1509
1426
1571
1447
1426
1230
1168
1612
1509
1333
1498
1374
1333
1312
1416
1240
1240
1095
1044
1560
1426
1302
1405
1261
1199
1250
1405
1199
1281
1178
1137
1591
1498
1250
1374
1312
1354
1426
1622
1488
1540
1457
1395
1860
1746
1467
1426
1343
1374
1354
1529
1343
1405
1364
1323
1829
1726
1447
1343
1188
1199
1178
1323
1064
1054
1013
899
1467
1405
1095
1002
847
816
713
858
486
444
403
331
940
889
568
506
351
362
300
403




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.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 & 1 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=295876&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=295876&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=295876&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Univariate Dataseries
Name of dataseriesReflex fototoestel -Omzet EUR op jaarbasis
Sourceniet bekend
DescriptionJaarlijkse omzet (€) op Reflexfototoestellen 2006 - 2015
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Reflex fototoestel -Omzet EUR op jaarbasis \tabularnewline
Source & niet bekend \tabularnewline
Description & Jaarlijkse omzet (€) op Reflexfototoestellen 2006 - 2015 \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=295876&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Reflex fototoestel -Omzet EUR op jaarbasis[/C][/ROW]
[ROW][C]Source[/C][C]niet bekend[/C][/ROW]
[ROW][C]Description[/C][C]Jaarlijkse omzet (€) op Reflexfototoestellen 2006 - 2015[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=295876&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=295876&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 dataseriesReflex fototoestel -Omzet EUR op jaarbasis
Sourceniet bekend
DescriptionJaarlijkse omzet (€) op Reflexfototoestellen 2006 - 2015
Number of observations120



Parameters (Session):
par1 = Reflex fototoestel -Omzet EUR op jaarbasis ; par2 = niet bekend ; par3 = Jaarlijkse omzet (€) op Reflexfototoestellen 2006 - 2015 ; par4 = 12 ;
Parameters (R input):
par1 = Reflex fototoestel -Omzet EUR op jaarbasis ; par2 = niet bekend ; par3 = Jaarlijkse omzet (€) op Reflexfototoestellen 2006 - 2015 ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'Jaarlijkse omzet (€) op Reflexfototoestellen 2006 - 2015'
par2 <- 'niet bekend'
par1 <- 'Reflex fototoestel -Omzet EUR op jaarbasis'
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')