Home » date » 2008 » Dec » 05 »

Central tendency Indicator van het consumentenvertrouwen

*The author of this computation has been verified*

R Software Module: rwasp_centraltendency.wasp (opens new window with default values)

Title produced by software: Central Tendency

Date of computation: Fri, 05 Dec 2008 04:23:55 -0700

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/Dec/05/t12284762795y6cq9kjua0085x.htm/, Retrieved Fri, 05 Dec 2008 11:24:41 +0000

BibTeX entries for LaTeX users:

@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2008/Dec/05/t12284762795y6cq9kjua0085x.htm/},
    year = {2008},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2008},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

Feedback Forum:

2008-11-27 13:41:43 [a2386b643d711541400692649981f2dc] [reply] 
test

Post a new message

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

19 23 22 23 25 25 23 22 21 16 21 21 26 23 22 22 22 12 20 18 23 25 28 28 29 31 33 32 33 35 33 36 30 34 34 35 33 28 27 23 23 24 24 20 16 6 2 12 19 21 22 20 21 20 19 17 17 17 16 12 11 7 2 9 11 10 7 9 15 5 14 14 17 19 17 16 14 20 16 18 18 14 13 14 14 17 18 15 9 9 9 10 6 12 11 15 19 18 15 16 14 18 18 18 18 22 21 12 19 21 19 22 22 21 19 18 18 19 12 16

Output produced by software:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'George Udny Yule' @ 72.249.76.132

Central Tendency - Ungrouped Data
Measure	Value	S.E.	Value/S.E.
Arithmetic Mean	18.95	0.660706904342143	28.6814015041484
Geometric Mean	17.2596588258772
Harmonic Mean	14.647001741336
Quadratic Mean	20.2743680542699
Winsorized Mean ( 1 / 40 )	18.9416666666667	0.658950000157637	28.7452259839675
Winsorized Mean ( 2 / 40 )	18.9916666666667	0.649013022849463	29.2623814901041
Winsorized Mean ( 3 / 40 )	18.9916666666667	0.639556901204747	29.6950382849308
Winsorized Mean ( 4 / 40 )	18.9916666666667	0.639556901204747	29.6950382849308
Winsorized Mean ( 5 / 40 )	18.9916666666667	0.624600245639888	30.4061146297024
Winsorized Mean ( 6 / 40 )	18.9916666666667	0.624600245639888	30.4061146297024
Winsorized Mean ( 7 / 40 )	19.1083333333333	0.607008072587788	31.4795374168106
Winsorized Mean ( 8 / 40 )	19.1083333333333	0.607008072587788	31.4795374168106
Winsorized Mean ( 9 / 40 )	19.0333333333333	0.592900732988532	32.1020573501323
Winsorized Mean ( 10 / 40 )	18.95	0.577938236355769	32.7889708760067
Winsorized Mean ( 11 / 40 )	18.8583333333333	0.562270287154669	33.5396227831363
Winsorized Mean ( 12 / 40 )	18.8583333333333	0.531539679082232	35.4786934550108
Winsorized Mean ( 13 / 40 )	18.75	0.514665864790888	36.431403912164
Winsorized Mean ( 14 / 40 )	18.8666666666667	0.498588109272323	37.840185748116
Winsorized Mean ( 15 / 40 )	18.8666666666667	0.498588109272323	37.840185748116
Winsorized Mean ( 16 / 40 )	18.7333333333333	0.478637967976238	39.1388368385004
Winsorized Mean ( 17 / 40 )	18.7333333333333	0.439749950169567	42.5999669269088
Winsorized Mean ( 18 / 40 )	18.5833333333333	0.419680973495907	44.2796660009047
Winsorized Mean ( 19 / 40 )	18.5833333333333	0.419680973495907	44.2796660009047
Winsorized Mean ( 20 / 40 )	18.5833333333333	0.419680973495907	44.2796660009047
Winsorized Mean ( 21 / 40 )	18.4083333333333	0.39808643004878	46.2420518355214
Winsorized Mean ( 22 / 40 )	18.4083333333333	0.39808643004878	46.2420518355214
Winsorized Mean ( 23 / 40 )	18.4083333333333	0.350768630466743	52.4799874744748
Winsorized Mean ( 24 / 40 )	18.6083333333333	0.32588939569424	57.1001498643186
Winsorized Mean ( 25 / 40 )	18.6083333333333	0.32588939569424	57.1001498643186
Winsorized Mean ( 26 / 40 )	18.6083333333333	0.32588939569424	57.1001498643186
Winsorized Mean ( 27 / 40 )	18.6083333333333	0.32588939569424	57.1001498643186
Winsorized Mean ( 28 / 40 )	18.6083333333333	0.32588939569424	57.1001498643186
Winsorized Mean ( 29 / 40 )	18.6083333333333	0.32588939569424	57.1001498643186
Winsorized Mean ( 30 / 40 )	18.3583333333333	0.298876475363447	61.424484181998
Winsorized Mean ( 31 / 40 )	18.6166666666667	0.268355123773795	69.3732484212198
Winsorized Mean ( 32 / 40 )	18.6166666666667	0.268355123773795	69.3732484212198
Winsorized Mean ( 33 / 40 )	18.6166666666667	0.268355123773795	69.3732484212198
Winsorized Mean ( 34 / 40 )	18.6166666666667	0.268355123773795	69.3732484212198
Winsorized Mean ( 35 / 40 )	18.9083333333333	0.236689301399166	79.8867258535072
Winsorized Mean ( 36 / 40 )	18.9083333333333	0.236689301399166	79.8867258535072
Winsorized Mean ( 37 / 40 )	18.9083333333333	0.236689301399166	79.8867258535072
Winsorized Mean ( 38 / 40 )	18.9083333333333	0.236689301399166	79.8867258535072
Winsorized Mean ( 39 / 40 )	18.5833333333333	0.202430377882922	91.8011097330521
Winsorized Mean ( 40 / 40 )	18.5833333333333	0.202430377882922	91.8011097330521
Trimmed Mean ( 1 / 40 )	18.9491525423729	0.640042853305448	29.6060684757459
Trimmed Mean ( 2 / 40 )	18.9568965517241	0.618964682003838	30.626782275126
Trimmed Mean ( 3 / 40 )	18.9385964912281	0.60136018878255	31.4929335937072
Trimmed Mean ( 4 / 40 )	18.9196428571429	0.585668939725337	32.3043302689326
Trimmed Mean ( 5 / 40 )	18.9	0.568120263554779	33.2676040839329
Trimmed Mean ( 6 / 40 )	18.8796296296296	0.552648300546579	34.1621056483071
Trimmed Mean ( 7 / 40 )	18.8584905660377	0.53526805625562	35.2318625138201
Trimmed Mean ( 8 / 40 )	18.8173076923077	0.519551355958332	36.2183785616313
Trimmed Mean ( 9 / 40 )	18.7745098039216	0.501774537436049	37.4162266181440
Trimmed Mean ( 10 / 40 )	18.74	0.48442822695494	38.6847812684192
Trimmed Mean ( 11 / 40 )	18.7142857142857	0.467545484116864	40.026663394332
Trimmed Mean ( 12 / 40 )	18.6979166666667	0.451148580882356	41.4451412660931
Trimmed Mean ( 13 / 40 )	18.6808510638298	0.437650589426548	42.6843959888349
Trimmed Mean ( 14 / 40 )	18.6739130434783	0.425003497822141	43.9382573065154
Trimmed Mean ( 15 / 40 )	18.6555555555556	0.413009753464983	45.1697699607408
Trimmed Mean ( 16 / 40 )	18.6363636363636	0.39924884348419	46.6785663640917
Trimmed Mean ( 17 / 40 )	18.6279069767442	0.386519249720311	48.1939954872196
Trimmed Mean ( 18 / 40 )	18.6190476190476	0.377548620656313	49.3156287703585
Trimmed Mean ( 19 / 40 )	18.6219512195122	0.369998105377946	50.3298556096394
Trimmed Mean ( 20 / 40 )	18.625	0.361245647339202	51.5577146387359
Trimmed Mean ( 21 / 40 )	18.6282051282051	0.351064683082691	53.0620310896308
Trimmed Mean ( 22 / 40 )	18.6447368421053	0.342182852200102	54.4876422714548
Trimmed Mean ( 23 / 40 )	18.6621621621622	0.331755691674678	56.2527264203275
Trimmed Mean ( 24 / 40 )	18.6805555555556	0.326110951150742	57.2828219648491
Trimmed Mean ( 25 / 40 )	18.6857142857143	0.3227360112823	57.8978286664445
Trimmed Mean ( 26 / 40 )	18.6911764705882	0.318618446103141	58.6631963691696
Trimmed Mean ( 27 / 40 )	18.6969696969697	0.313614685691604	59.6176472276414
Trimmed Mean ( 28 / 40 )	18.703125	0.307543782774766	60.8145117786285
Trimmed Mean ( 29 / 40 )	18.7096774193548	0.30017366450101	62.3295099870158
Trimmed Mean ( 30 / 40 )	18.7166666666667	0.291200191945468	64.274225032694
Trimmed Mean ( 31 / 40 )	18.7413793103448	0.284251221108202	65.9324496031304
Trimmed Mean ( 32 / 40 )	18.75	0.280595378140422	66.82219829942
Trimmed Mean ( 33 / 40 )	18.7592592592593	0.275907986040882	67.9909977541557
Trimmed Mean ( 34 / 40 )	18.7692307692308	0.269930140975545	69.5336604552481
Trimmed Mean ( 35 / 40 )	18.78	0.262313101589124	71.5938315174824
Trimmed Mean ( 36 / 40 )	18.7708333333333	0.258266835412973	72.6799989759369
Trimmed Mean ( 37 / 40 )	18.7608695652174	0.252876748364641	74.1897769824403
Trimmed Mean ( 38 / 40 )	18.75	0.245735294768858	76.3016155967197
Trimmed Mean ( 39 / 40 )	18.7380952380952	0.236258888222761	79.3117049650536
Trimmed Mean ( 40 / 40 )	18.75	0.23135609139515	81.0439002791394
Median	19
Midrange	19
Midmean - Weighted Average at Xnp	18.2878787878788
Midmean - Weighted Average at X(n+1)p	18.2878787878788
Midmean - Empirical Distribution Function	18.2878787878788
Midmean - Empirical Distribution Function - Averaging	18.2878787878788
Midmean - Empirical Distribution Function - Interpolation	18.2878787878788
Midmean - Closest Observation	18.2878787878788
Midmean - True Basic - Statistics Graphics Toolkit	18.2878787878788
Midmean - MS Excel (old versions)	18.7397260273973
Number of observations	120

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Dec/05/t12284762795y6cq9kjua0085x/1swdr1228476233.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Dec/05/t12284762795y6cq9kjua0085x/1swdr1228476233.ps (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Dec/05/t12284762795y6cq9kjua0085x/2mxd21228476233.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Dec/05/t12284762795y6cq9kjua0085x/2mxd21228476233.ps (open in new window)

Parameters (Session):

par1 = Inflatie indexcijfer der consumptieprijzen ; par2 = http://ecodata.mineco.fgov.be/mdn/ts_structur.jsp?table=EI0_ ; par3 = Economische indicator voor België. Maandelijks, volledige tijdreeks van januari 1998 tot december 2007 - Inflatie op jaarbasis: indexcijfer der consumptieprijzen ;

Parameters (R input):

R code (references can be found in the software module):

geomean <- function(x) {

return(exp(mean(log(x))))

}

harmean <- function(x) {

return(1/mean(1/x))

}

quamean <- function(x) {

return(sqrt(mean(x*x)))

}

winmean <- function(x) {

x <-sort(x[!is.na(x)])

n<-length(x)

denom <- 3

nodenom <- n/denom

if (nodenom>40) denom <- n/40

sqrtn = sqrt(n)

roundnodenom = floor(nodenom)

win <- array(NA,dim=c(roundnodenom,2))

for (j in 1:roundnodenom) {

win[j,1] <- (j*x[j+1]+sum(x[(j+1):(n-j)])+j*x[n-j])/n

win[j,2] <- sd(c(rep(x[j+1],j),x[(j+1):(n-j)],rep(x[n-j],j)))/sqrtn

}

return(win)

}

trimean <- function(x) {

x <-sort(x[!is.na(x)])

n<-length(x)

denom <- 3

nodenom <- n/denom

if (nodenom>40) denom <- n/40

sqrtn = sqrt(n)

roundnodenom = floor(nodenom)

tri <- array(NA,dim=c(roundnodenom,2))

for (j in 1:roundnodenom) {

tri[j,1] <- mean(x,trim=j/n)

tri[j,2] <- sd(x[(j+1):(n-j)]) / sqrt(n-j*2)

}

return(tri)

}

midrange <- function(x) {

return((max(x)+min(x))/2)

}

q1 <- function(data,n,p,i,f) {

np <- n*p;

i <<- floor(np)

f <<- np - i

qvalue <- (1-f)*data[i] + f*data[i+1]

}

q2 <- function(data,n,p,i,f) {

np <- (n+1)*p

i <<- floor(np)

f <<- np - i

qvalue <- (1-f)*data[i] + f*data[i+1]

}

q3 <- function(data,n,p,i,f) {

np <- n*p

i <<- floor(np)

f <<- np - i

if (f==0) {

qvalue <- data[i]

} else {

qvalue <- data[i+1]

}

}

q4 <- function(data,n,p,i,f) {

np <- n*p

i <<- floor(np)

f <<- np - i

if (f==0) {

qvalue <- (data[i]+data[i+1])/2

} else {

qvalue <- data[i+1]

}

}

q5 <- function(data,n,p,i,f) {

np <- (n-1)*p

i <<- floor(np)

f <<- np - i

if (f==0) {

qvalue <- data[i+1]

} else {

qvalue <- data[i+1] + f*(data[i+2]-data[i+1])

}

}

q6 <- function(data,n,p,i,f) {

np <- n*p+0.5

i <<- floor(np)

f <<- np - i

qvalue <- data[i]

}

q7 <- function(data,n,p,i,f) {

np <- (n+1)*p

i <<- floor(np)

f <<- np - i

if (f==0) {

qvalue <- data[i]

} else {

qvalue <- f*data[i] + (1-f)*data[i+1]

}

}

q8 <- function(data,n,p,i,f) {

np <- (n+1)*p

i <<- floor(np)

f <<- np - i

if (f==0) {

qvalue <- data[i]

} else {

if (f == 0.5) {

qvalue <- (data[i]+data[i+1])/2

} else {

if (f < 0.5) {

qvalue <- data[i]

} else {

qvalue <- data[i+1]

}

}

}

}

midmean <- function(x,def) {

x <-sort(x[!is.na(x)])

n<-length(x)

if (def==1) {

qvalue1 <- q1(x,n,0.25,i,f)

qvalue3 <- q1(x,n,0.75,i,f)

}

if (def==2) {

qvalue1 <- q2(x,n,0.25,i,f)

qvalue3 <- q2(x,n,0.75,i,f)

}

if (def==3) {

qvalue1 <- q3(x,n,0.25,i,f)

qvalue3 <- q3(x,n,0.75,i,f)

}

if (def==4) {

qvalue1 <- q4(x,n,0.25,i,f)

qvalue3 <- q4(x,n,0.75,i,f)

}

if (def==5) {

qvalue1 <- q5(x,n,0.25,i,f)

qvalue3 <- q5(x,n,0.75,i,f)

}

if (def==6) {

qvalue1 <- q6(x,n,0.25,i,f)

qvalue3 <- q6(x,n,0.75,i,f)

}

if (def==7) {

qvalue1 <- q7(x,n,0.25,i,f)

qvalue3 <- q7(x,n,0.75,i,f)

}

if (def==8) {

qvalue1 <- q8(x,n,0.25,i,f)

qvalue3 <- q8(x,n,0.75,i,f)

}

midm <- 0

myn <- 0

roundno4 <- round(n/4)

round3no4 <- round(3*n/4)

for (i in 1:n) {

if ((x[i]>=qvalue1) & (x[i]<=qvalue3)){

midm = midm + x[i]

myn = myn + 1

}

}

midm = midm / myn

return(midm)

}

(arm <- mean(x))

sqrtn <- sqrt(length(x))

(armse <- sd(x) / sqrtn)

(armose <- arm / armse)

(geo <- geomean(x))

(har <- harmean(x))

(qua <- quamean(x))

(win <- winmean(x))

(tri <- trimean(x))

(midr <- midrange(x))

midm <- array(NA,dim=8)

for (j in 1:8) midm[j] <- midmean(x,j)

midm

bitmap(file='test1.png')

lb <- win[,1] - 2*win[,2]

ub <- win[,1] + 2*win[,2]

if ((ylimmin == '') | (ylimmax == '')) plot(win[,1],type='b',main=main, xlab='j', pch=19, ylab='Winsorized Mean(j/n)', ylim=c(min(lb),max(ub))) else plot(win[,1],type='l',main=main, xlab='j', pch=19, ylab='Winsorized Mean(j/n)', ylim=c(ylimmin,ylimmax))

lines(ub,lty=3)

lines(lb,lty=3)

grid()

dev.off()

bitmap(file='test2.png')

lb <- tri[,1] - 2*tri[,2]

ub <- tri[,1] + 2*tri[,2]

if ((ylimmin == '') | (ylimmax == '')) plot(tri[,1],type='b',main=main, xlab='j', pch=19, ylab='Trimmed Mean(j/n)', ylim=c(min(lb),max(ub))) else plot(tri[,1],type='l',main=main, xlab='j', pch=19, ylab='Trimmed Mean(j/n)', ylim=c(ylimmin,ylimmax))

lines(ub,lty=3)

lines(lb,lty=3)

grid()

dev.off()

load(file='createtable')

a<-table.start()

a<-table.row.start(a)

a<-table.element(a,'Central Tendency - Ungrouped Data',4,TRUE)

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,'Measure',header=TRUE)

a<-table.element(a,'Value',header=TRUE)

a<-table.element(a,'S.E.',header=TRUE)

a<-table.element(a,'Value/S.E.',header=TRUE)

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm', 'Arithmetic Mean', 'click to view the definition of the Arithmetic Mean'),header=TRUE)

a<-table.element(a,arm)

a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean_standard_error.htm', armse, 'click to view the definition of the Standard Error of the Arithmetic Mean'))

a<-table.element(a,armose)

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,hyperlink('http://www.xycoon.com/geometric_mean.htm', 'Geometric Mean', 'click to view the definition of the Geometric Mean'),header=TRUE)

a<-table.element(a,geo)

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,hyperlink('http://www.xycoon.com/harmonic_mean.htm', 'Harmonic Mean', 'click to view the definition of the Harmonic Mean'),header=TRUE)

a<-table.element(a,har)

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,hyperlink('http://www.xycoon.com/quadratic_mean.htm', 'Quadratic Mean', 'click to view the definition of the Quadratic Mean'),header=TRUE)

a<-table.element(a,qua)

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

for (j in 1:length(win[,1])) {

a<-table.row.start(a)

mylabel <- paste('Winsorized Mean (',j)

mylabel <- paste(mylabel,'/')

mylabel <- paste(mylabel,length(win[,1]))

mylabel <- paste(mylabel,')')

a<-table.element(a,hyperlink('http://www.xycoon.com/winsorized_mean.htm', mylabel, 'click to view the definition of the Winsorized Mean'),header=TRUE)

a<-table.element(a,win[j,1])

a<-table.element(a,win[j,2])

a<-table.element(a,win[j,1]/win[j,2])

a<-table.row.end(a)

}

for (j in 1:length(tri[,1])) {

a<-table.row.start(a)

mylabel <- paste('Trimmed Mean (',j)

mylabel <- paste(mylabel,'/')

mylabel <- paste(mylabel,length(tri[,1]))

mylabel <- paste(mylabel,')')

a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm', mylabel, 'click to view the definition of the Trimmed Mean'),header=TRUE)

a<-table.element(a,tri[j,1])

a<-table.element(a,tri[j,2])

a<-table.element(a,tri[j,1]/tri[j,2])

a<-table.row.end(a)

}

a<-table.row.start(a)

a<-table.element(a,hyperlink('http://www.xycoon.com/median_1.htm', 'Median', 'click to view the definition of the Median'),header=TRUE)

a<-table.element(a,median(x))

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

a<-table.element(a,hyperlink('http://www.xycoon.com/midrange.htm', 'Midrange', 'click to view the definition of the Midrange'),header=TRUE)

a<-table.element(a,midr)

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean')

mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_1.htm','Weighted Average at Xnp',''),sep=' - ')

a<-table.element(a,mylabel,header=TRUE)

a<-table.element(a,midm[1])

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean')

mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_2.htm','Weighted Average at X(n+1)p',''),sep=' - ')

a<-table.element(a,mylabel,header=TRUE)

a<-table.element(a,midm[2])

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean')

mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_3.htm','Empirical Distribution Function',''),sep=' - ')

a<-table.element(a,mylabel,header=TRUE)

a<-table.element(a,midm[3])

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean')

mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_4.htm','Empirical Distribution Function - Averaging',''),sep=' - ')

a<-table.element(a,mylabel,header=TRUE)

a<-table.element(a,midm[4])

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean')

mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_5.htm','Empirical Distribution Function - Interpolation',''),sep=' - ')

a<-table.element(a,mylabel,header=TRUE)

a<-table.element(a,midm[5])

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean')

mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_6.htm','Closest Observation',''),sep=' - ')

a<-table.element(a,mylabel,header=TRUE)

a<-table.element(a,midm[6])

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean')

mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_7.htm','True Basic - Statistics Graphics Toolkit',''),sep=' - ')

a<-table.element(a,mylabel,header=TRUE)

a<-table.element(a,midm[7])

a<-table.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.row.start(a)

mymid <- hyperlink('http://www.xycoon.com/midmean.htm', 'Midmean', 'click to view the definition of the Midmean')

mylabel <- paste(mymid,hyperlink('http://www.xycoon.com/method_8.htm','MS Excel (old versions)',''),sep=' - ')

a<-table.element(a,mylabel,header=TRUE)

a<-table.element(a,midm[8])

a<-table.element(a,'')

a<-table.element(a,'')

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.element(a,'')

a<-table.element(a,'')

a<-table.row.end(a)

a<-table.end(a)

table.save(a,file='mytable.tab')

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa

Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.

We may request personal information to be submitted to our servers in order to be able to:

personalize online software applications according to your needs
enforce strict security rules with respect to the data that you upload (e.g. statistical data)
manage user sessions of online applications
alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.

FreeStatistics.org is powered by