FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationTue, 12 Aug 2014 07:25:53 +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/2014/Aug/12/t14078249770218m6ylvus8t7z.htm/, Retrieved Thu, 16 May 2024 05:53:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235471, Retrieved Thu, 16 May 2024 05:53:55 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2014-08-12 06:25:53] [7ca0840e03a865d91d059c4387468671] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
24514
24442
24364
24222
25689
25618
24514
23780
23851
23851
23922
24072
24514
24735
25105
25397
26722
26573
25468
23851
24143
24442
24364
24735
24442
24955
25176
25247
26872
26573
25468
23851
24143
23922
24293
25105
25027
24884
25247
25468
26722
26793
25468
23559
23409
23851
23481
24663
24663
24222
24806
25176
26430
26793
25247
23409
23409
22818
22376
23338
22968
22084
22676
23189
24735
25326
23702
22526
22526
22084
21792
22376
21643
21493
21864
22376
23922
24222
22305
20909
20246
19584
19213
19947
19506
19584
19947
20246
21714
21935
19584
18480
17375
16635
16122
16855
16492
17076
17297
17518
18480
19064
16122
15388
13543
12367
11997
13030
12439
13179
13179
13251
14134
14725
11854
10821
9126
8022
7437
8905

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 0 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235471&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235471&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235471&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 time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net






Univariate Dataseries
Name of dataseriesOmzet agapanthus 04-13
SourceNiet gekend
DescriptionMaandelijkse omzet verkoop agapanthus van 2004 tot 2013
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Omzet agapanthus 04-13 \tabularnewline
Source & Niet gekend \tabularnewline
Description & Maandelijkse omzet verkoop agapanthus van 2004 tot 2013 \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235471&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Omzet agapanthus 04-13[/C][/ROW]
[ROW][C]Source[/C][C]Niet gekend[/C][/ROW]
[ROW][C]Description[/C][C]Maandelijkse omzet verkoop agapanthus van 2004 tot 2013[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235471&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235471&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:

Univariate Dataseries
Name of dataseriesOmzet agapanthus 04-13
SourceNiet gekend
DescriptionMaandelijkse omzet verkoop agapanthus van 2004 tot 2013
Number of observations120


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Omzet agapanthus 04-13 ; par2 = Niet gekend ; par3 = Maandelijkse omzet verkoop agapanthus van 2004 tot 2013 ; par4 = 12 ;
Parameters (R input):
par1 = Omzet agapanthus 04-13 ; par2 = Niet gekend ; par3 = Maandelijkse omzet verkoop agapanthus van 2004 tot 2013 ; 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')