Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Module--
Title produced by softwareUnivariate Data Series
Date of computationMon, 28 Nov 2011 11:52:45 -0500
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/Nov/28/t1322499183urw1mgnghbzdssf.htm/, Retrieved Sat, 20 Apr 2024 12:52:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147866, Retrieved Sat, 20 Apr 2024 12:52:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact67
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [web traffic] [2010-10-19 15:13:07] [b98453cac15ba1066b407e146608df68]
- RMP     [Univariate Data Series] [DATA van de mini-...] [2011-11-28 16:52:45] [7b8bbc7c94419fec22ed12e329cf3750] [Current]
Feedback Forum

Post a new message
Dataseries X:
1483509
8036554
4623093
5528662
4221032
8061847
7640066
2935533
8161548
2543967
13163450
3348436
3997440
2322911
2019457
3047748
5728767
2605173
5646743
13121544
3453409
1878333
4247362
23022552
7646203
9016602
3606568
3173510
17568772
10805045
31056269
15623385
6663443
35435745
2823250
5197089
4120632
8832767
3695374
8385805
3777904
5199532
5297275
14847382
5900158
4416718
3926429
4876884
2795297
3385527
3877941
3556729
4982836
2976325
2295026
2218752
4146062
3302091
3864505
5454794
1749836
6684048
2809918
4092664
5070470
9814477
6665318
3912554
6188129
3627991
3308767
3820332
4932979
5567917
5020814
3803273
3999984
4883104
13731747
47531824
8415570
22178158
61211654
18223748
17678085
49299580
25899948
34121754
9859231
29740892
21085212
43003866
59549247
18026465
4680597
5564728
11792347
10371624
3728446
5732978
4067638
2395508
5018801
22068888
7678580
15510095
6471239
14349204
35151574
8210488
5022664
13996871
12822431
14011552
20260980
23718976
45833049
30688420
16576062
14844405
16728286
43477680
57497427
24233726
24921208
9516725
27977239
21632046
22956809
9704324
19871149
5553842
5667858
4348188
10025042
10639796
8639184
10764378
12097733
3988414
4607102
7126895
6009625
21533237
5986771
5455310
1822874
3374062
2920748
2295942
6809829
3318281
13784645
7366577
1628637
4258976
7159779
8098401
6894240
3771246
3249726
3147380
4063037
9621916
5890158
2142901
3145007
1562168
3303103
5886910
3454270
6995348
6487869
12091976
3934625
3999749
3613526
4271706
4253390
5551591
4663041
2104104
5385399
6205877
7529500
17222705
6230913
6508275
4518884
4234991
5625388
5810139
6942187
3711188
4261281
1989945
5033342
7239565
11058795
7384772
3884771
3239201
2316403
4034947
3245271
2387251
2174886
3436080
3738956
1884730
1509144
42728366
3446317
4600683
2953615
3570060
2130208
2442943
4892020
3222192
3121617
3665542
5519432
4113468
1714614
3651985
2419548
2378854
2303949
2555534
1713005
1705960
6115046
3951044
3785568
4670530
2265100
1105643
2814152
3728673
2038949
2402919
2348814
2797822
902505
1331319
4204238
2212485
6797382
4532324
1778808
1890720
5463736
11368931
2040164
4276399
3714445
2068168
1003842
2858535
2355484
2719262
1897741
3945185
3799916
1017654
3052241
3932970
3598151
2296005
2202018
2461777
2452042
2185142
11968502
20395972
21756900
30024300
10811344
1819202
1276885
2946701
3587459
2832691
6674805
3868362
4302909
23265229
22348002
11883953
6634979
2935493
3425669
1171611
6875879
19451908
13885933
7643317
10797966
7297445
8739736
12455537
24291181
4215150
28652176
6851172
3746871
7327861
16829710
13778594
6463717
8956867
21204915
16115855
2536113
16645717
17003730
15969006
31020427
23798897
20770321
44410402
27037491
29627771
18189792
4654610
12307201
15300578
10623864
6880178
29947357
18611399
42432604
20208278
14004392
25737765
16735738
22450825
6880840
8510379
8182481
10948683
4805277
2589229
5658407
12862611
5666188
6875556
7098766
36083309
10200330
7784976




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147866&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 time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net







Univariate Dataseries
Name of dataseriesUpstream traffic (KB)
SourceFS
DescriptionUpstream traffic of web server in KB (start Nov. 1 2009)
Number of observations352

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Upstream traffic (KB) \tabularnewline
Source & FS \tabularnewline
Description & Upstream traffic of web server in KB (start Nov. 1 2009) \tabularnewline
Number of observations & 352 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147866&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Upstream traffic (KB)[/C][/ROW]
[ROW][C]Source[/C][C]FS[/C][/ROW]
[ROW][C]Description[/C][C]Upstream traffic of web server in KB (start Nov. 1 2009)[/C][/ROW]
[ROW][C]Number of observations[/C][C]352[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=147866&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147866&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 dataseriesUpstream traffic (KB)
SourceFS
DescriptionUpstream traffic of web server in KB (start Nov. 1 2009)
Number of observations352



Parameters (Session):
par1 = Upstream traffic (KB) ; par2 = FS ; par3 = Upstream traffic of web server in KB (start Nov. 1 2009) ; par4 = 12 ;
Parameters (R input):
par1 = Upstream traffic (KB) ; par2 = FS ; par3 = Upstream traffic of web server in KB (start Nov. 1 2009) ; par4 = 12 ; par5 = ; par6 = ; par7 = ; par8 = ; par9 = ; par10 = ; par11 = ; par12 = ; par13 = ; par14 = ; par15 = ; par16 = ; par17 = ; par18 = ; par19 = ; par20 = ;
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')