Free Statistics

of Irreproducible Research!

Author's title

kostprijs (€) v/e gemid. woonhuis in arrondissement Antwerpen van 1990-2010...

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationWed, 05 Oct 2011 04:58:08 -0400
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/Oct/05/t1317805207s0l0mth206eg717.htm/, Retrieved Wed, 15 May 2024 13:35:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=126677, Retrieved Wed, 15 May 2024 13:35:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDG2011W2EC
Estimated Impact122
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [kostprijs (€) v/e...] [2011-10-05 08:58:08] [31886bd2f92a612f059dd2285dd41f3c] [Current]
Feedback Forum

Post a new message
Dataseries X:
49.164
50.112
52.329
52.872
53.008
53.804
57.150
57.863
58.334
60.621
62.084
62.395
61.064
65.989
67.170
68.813
69.255
70.643
73.657
72.723
72.966
75.159
74.414
75.573
70.977
72.291
72.384
74.385
70.977
68.889
71.950
70.463
70.615
72.567
75.962
75.851
75.005
78.635
82.937
80.337
82.336
81.858
83.732
84.158
84.806
86.610
91.300
92.038
99.274
99.292
100.169
103.661
100.427
106.692
108.459
109.815
108.914
111.181
114.572
115.019
149.365
154.780
163.305
168.139
170.969
178.788
184.302
182.706
189.415
192.260
200.070
200.555
203.220
207.325
209.362
205.709
205.752
204.527
208.881
212.113
216.893
219.171
226.970
222.226




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

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



Parameters (Session):
par1 = Kostprijs van een woonhuis in arrondissement Antwerpen '90-'10 ; par2 = http://statbel.fgov.be/nl/modules/publications/statistiques/economie/Verkoop_onroerende_goederen.jsp ; par3 = De gemiddelde prijs dat wordt uitgegeven aan een woonhuis in arrondissement Antwerpen van 1990 tot 2010 ; par4 = 4 ;
Parameters (R input):
par1 = Kostprijs van een woonhuis in arrondissement Antwerpen ; par2 = http://statbel.fgov.be/nl/modules/publications/statistiques/economie/Verkoop_onroerende_goederen.jsp ; par3 = De gemiddelde prijs dat wordt uitgegeven aan een woonhuis in arrondissement Antwerpen van 1990 tot 2010 ; par4 = 4 ;
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')