mediaan

*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: Sat, 24 Oct 2009 05:46:37 -0600

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Oct/24/t1256385022r2hodei9y16o4cs.htm/, Retrieved Sat, 24 Oct 2009 13:50:25 +0200

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/2009/Oct/24/t1256385022r2hodei9y16o4cs.htm/}, year = {2009}, } @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 = {2009}, note = {{ISBN} 3-900051-07-0}, url = {http://www.R-project.org}, }

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

sdws4

Dataseries X:

» Textbox « » Textfile « » CSV «

23,58 23,06 22,46 21,90 21,11 20,83 24,44 26,75 26,67 25,55 24,44 23,78 23,43 22,96 22,62 22,06 21,35 21,19 25,26 27,31 27,27 26,22 24,80 24,14 23,74 23,27 22,75 22,30 21,59 21,55 26,56 28,10 28,03 26,79 25,60 25,02 24,47 23,76 23,08 22,30 21,64 21,91 26,48 27,45 27,32 26,13 25,12 24,68 24,21 23,71 22,61 22,01 21,27 21,41 25,74 26,49 26,27 24,45 23,43 22,60 22,06 21,48 20,94 20,48 19,76 19,84 23,96 25,00 25,03 23,96 22,93 22,12 21,12 20,80 20,11 19,80 19,33 19,56 23,17 23,96 24,06 22,86 21,69 20,75 20,79 20,27 19,68 19,36 18,50 18,66 22,35 23,09 22,88 21,81 20,70 20,40 20,27 19,95 19,19 19,02 17,90 18,32 21,93 22,55 22,59 21,50 20,83 20,68 20,70 20,48 20,19 19,86 18,95 19,30 22,28 23,04 23,20

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 2 seconds R Server 'Gwilym Jenkins' @ 72.249.127.135 Central Tendency - Ungrouped Data Measure Value S.E. Value/S.E. Arithmetic Mean 22.6752991452991 0.223040855658335 101.664329964884 Geometric Mean 22.5495037239691 Harmonic Mean 22.4252854998726 Quadratic Mean 22.8021900095313 Winsorized Mean ( 1 / 39 ) 22.6782905982906 0.222281338347412 102.025166695936 Winsorized Mean ( 2 / 39 ) 22.671452991453 0.219811069672757 103.140633568660 Winsorized Mean ( 3 / 39 ) 22.6722222222222 0.21853284298853 103.747436367778 Winsorized Mean ( 4 / 39 ) 22.6817948717949 0.216950185696508 104.548400357327 Winsorized Mean ( 5 / 39 ) 22.6830769230769 0.216196403948221 104.918844665471 Winsorized Mean ( 6 / 39 ) 22.6671794871795 0.210608735772661 107.626967153192 Winsorized Mean ( 7 / 39 ) 22.6713675213675 0.209280408096013 108.330099924912 Winsorized Mean ( 8 / 39 ) 22.6679487179487 0.208083140253149 108.936979182318 Winsorized Mean ( 9 / 39 ) 22.6617948717949 0.206373991135705 109.809355079503 Winsorized Mean ( 10 / 39 ) 22.672905982906 0.20309359770476 111.637718958851 Winsorized Mean ( 11 / 39 ) 22.6832478632479 0.201470713527723 112.588313537325 Winsorized Mean ( 12 / 39 ) 22.6699145299145 0.196974032457373 115.090878970661 Winsorized Mean ( 13 / 39 ) 22.6688034188034 0.195537383365547 115.930790463864 Winsorized Mean ( 14 / 39 ) 22.6628205128205 0.193257471859738 117.267499645595 Winsorized Mean ( 15 / 39 ) 22.6153846153846 0.185428846288756 121.962602194953 Winsorized Mean ( 16 / 39 ) 22.608547008547 0.181107713542160 124.834809994352 Winsorized Mean ( 17 / 39 ) 22.6245299145299 0.177179805291077 127.692486609078 Winsorized Mean ( 18 / 39 ) 22.5922222222222 0.169469061809427 133.311779631068 Winsorized Mean ( 19 / 39 ) 22.5824786324786 0.164837929405129 136.998072676445 Winsorized Mean ( 20 / 39 ) 22.567094017094 0.16281387016873 138.606704660401 Winsorized Mean ( 21 / 39 ) 22.5886324786325 0.159782119646297 141.371465897661 Winsorized Mean ( 22 / 39 ) 22.5999145299145 0.157527662872566 143.466322789268 Winsorized Mean ( 23 / 39 ) 22.5605982905983 0.152454874665548 147.982137928296 Winsorized Mean ( 24 / 39 ) 22.5770085470085 0.144617663399080 156.115152301321 Winsorized Mean ( 25 / 39 ) 22.5364102564103 0.138619167242285 162.577879414180 Winsorized Mean ( 26 / 39 ) 22.5319658119658 0.138085849125818 163.173605076909 Winsorized Mean ( 27 / 39 ) 22.5411965811966 0.136496797797303 165.140845389429 Winsorized Mean ( 28 / 39 ) 22.5507692307692 0.135418822541291 166.526106250061 Winsorized Mean ( 29 / 39 ) 22.4962393162393 0.128427757384148 175.166488728363 Winsorized Mean ( 30 / 39 ) 22.4859829059829 0.125500181697426 179.170919132176 Winsorized Mean ( 31 / 39 ) 22.4647863247863 0.123112007680687 182.474372305363 Winsorized Mean ( 32 / 39 ) 22.4675213675214 0.116654976424721 192.598053303109 Winsorized Mean ( 33 / 39 ) 22.5154700854701 0.111337453380678 202.227277540529 Winsorized Mean ( 34 / 39 ) 22.5183760683761 0.111021564383251 202.828848552717 Winsorized Mean ( 35 / 39 ) 22.4854700854701 0.102807588109070 218.714109522878 Winsorized Mean ( 36 / 39 ) 22.5039316239316 0.0994854102386528 226.203335443333 Winsorized Mean ( 37 / 39 ) 22.522905982906 0.0961123209938135 234.339424436080 Winsorized Mean ( 38 / 39 ) 22.5326495726496 0.0930097644654472 242.261118519662 Winsorized Mean ( 39 / 39 ) 22.5126495726496 0.0858996008483861 262.080956725104 Trimmed Mean ( 1 / 39 ) 22.6696521739130 0.217981655168163 103.997981648614 Trimmed Mean ( 2 / 39 ) 22.6607079646018 0.213200756397975 106.288121803385 Trimmed Mean ( 3 / 39 ) 22.6550450450450 0.209328041342489 108.227473489700 Trimmed Mean ( 4 / 39 ) 22.6488990825688 0.205533018275044 110.195915345631 Trimmed Mean ( 5 / 39 ) 22.6399065420561 0.201798888283399 112.190442349025 Trimmed Mean ( 6 / 39 ) 22.6302857142857 0.197819313769036 114.398767658792 Trimmed Mean ( 7 / 39 ) 22.6233009708738 0.194680562421916 116.207292034857 Trimmed Mean ( 8 / 39 ) 22.6153465346535 0.191425737965335 118.141618650826 Trimmed Mean ( 9 / 39 ) 22.6075757575758 0.187987754424116 120.260895859052 Trimmed Mean ( 10 / 39 ) 22.6003092783505 0.184414559278048 122.551654092968 Trimmed Mean ( 11 / 39 ) 22.5913684210526 0.180923511863567 124.866957248147 Trimmed Mean ( 12 / 39 ) 22.5808602150538 0.177214411218646 127.421128224124 Trimmed Mean ( 13 / 39 ) 22.5713186813187 0.173706783439012 129.939189676167 Trimmed Mean ( 14 / 39 ) 22.5614606741573 0.169916953109690 132.779338737275 Trimmed Mean ( 15 / 39 ) 22.5614606741573 0.165919727493668 135.978168569607 Trimmed Mean ( 16 / 39 ) 22.5458823529412 0.162508891729809 138.736299983059 Trimmed Mean ( 17 / 39 ) 22.5403614457831 0.159198555305187 141.586469817975 Trimmed Mean ( 18 / 39 ) 22.5332098765432 0.155914152855054 144.523184482754 Trimmed Mean ( 19 / 39 ) 22.5283544303797 0.153185310596871 147.066023123238 Trimmed Mean ( 20 / 39 ) 22.5240259740260 0.150629603674327 149.532531617920 Trimmed Mean ( 21 / 39 ) 22.5206666666667 0.147908095805486 152.26121696735 Trimmed Mean ( 22 / 39 ) 22.5154794520548 0.145106904523288 155.164769905496 Trimmed Mean ( 23 / 39 ) 22.5091549295775 0.142096652356133 158.407355531243 Trimmed Mean ( 24 / 39 ) 22.5053623188406 0.139253517683157 161.614318210955 Trimmed Mean ( 25 / 39 ) 22.5001492537313 0.136938730292942 164.308148655962 Trimmed Mean ( 26 / 39 ) 22.4975384615385 0.134986650117925 166.664914211031 Trimmed Mean ( 27 / 39 ) 22.4950793650794 0.132676352419488 169.548521306614 Trimmed Mean ( 28 / 39 ) 22.4918032786885 0.130078477404888 172.909490696755 Trimmed Mean ( 29 / 39 ) 22.4876271186441 0.127049036075378 176.999588610040 Trimmed Mean ( 30 / 39 ) 22.4876271186441 0.124430271792532 180.724728755223 Trimmed Mean ( 31 / 39 ) 22.4870909090909 0.121637722509056 184.869384638608 Trimmed Mean ( 32 / 39 ) 22.488679245283 0.118534850238375 189.722087639694 Trimmed Mean ( 33 / 39 ) 22.4901960784314 0.115741256459187 194.314428289985 Trimmed Mean ( 34 / 39 ) 22.4883673469388 0.113116168591562 198.807718003068 Trimmed Mean ( 35 / 39 ) 22.4861702127660 0.109780941239098 204.827631818096 Trimmed Mean ( 36 / 39 ) 22.4862222222222 0.107077942389422 209.998639499852 Trimmed Mean ( 37 / 39 ) 22.4848837209302 0.104177085419878 215.833296068003 Trimmed Mean ( 38 / 39 ) 22.4819512195122 0.101021139729360 222.5469963984 Trimmed Mean ( 39 / 39 ) 22.4779487179487 0.0974673754110825 230.620231879075 Median 22.55 Midrange 23 Midmean - Weighted Average at Xnp 22.4579310344828 Midmean - Weighted Average at X(n+1)p 22.4876271186441 Midmean - Empirical Distribution Function 22.4876271186441 Midmean - Empirical Distribution Function - Averaging 22.4876271186441 Midmean - Empirical Distribution Function - Interpolation 22.4876271186441 Midmean - Closest Observation 22.4593333333333 Midmean - True Basic - Statistics Graphics Toolkit 22.4876271186441 Midmean - MS Excel (old versions) 22.4876271186441 Number of observations 117

Charts produced by software:

http://www.freestatistics.org/blog/date/2009/Oct/24/t1256385022r2hodei9y16o4cs/19xqd1256384795.png (open in new window) http://www.freestatistics.org/blog/date/2009/Oct/24/t1256385022r2hodei9y16o4cs/19xqd1256384795.ps (open in new window) http://www.freestatistics.org/blog/date/2009/Oct/24/t1256385022r2hodei9y16o4cs/2adu11256384795.png (open in new window) http://www.freestatistics.org/blog/date/2009/Oct/24/t1256385022r2hodei9y16o4cs/2adu11256384795.ps (open in new window)

Parameters (Session):

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')

Copyright

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.

Privacy Policy

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