Centrummaten niet-werkende werkzoekende - Hannes François

*Unverified author*

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

Title produced by software: Central Tendency

Date of computation: Wed, 28 Oct 2009 15:56:46 -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/28/t1256767085fpmsc7re2w3j2bi.htm/, Retrieved Wed, 28 Oct 2009 22:58:07 +0100

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/28/t1256767085fpmsc7re2w3j2bi.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:

Dataseries X:

» Textbox « » Textfile « » CSV «

492865 480961 461935 456608 441977 439148 488180 520564 501492 485025 464196 460170 467037 460070 447988 442867 436087 431328 484015 509673 512927 502831 470984 471067 476049 474605 470439 461251 454724 455626 516847 525192 522975 518585 509239 512238 519164 517009 509933 509127 500857 506971 569323 579714 577992 565464 547344 554788 562325 560854 555332 543599 536662 542722 593530 610763 612613 611324 594167 595454 590865 589379 584428 573100 567456 569028 620735 628884 628232 612117 595404 597141 593408 590072 579799 574205 572775 572942 619567 625809 619916 587625 565742 557274 560576 548854 531673 525919 511038 498662 555362 564591 541657 527070 509846 514258 516922 507561 492622 490243 469357 477580 528379 533590 517945 506174 501866 516141 528222 532638 536322 536535 523597 536214 586570 596594 580523

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 531844.444444444 4705.43924155909 113.027587254155 Geometric Mean 529415.064651166 Harmonic Mean 526975.131561422 Quadratic Mean 534253.579742163 Winsorized Mean ( 1 / 39 ) 531879.547008547 4697.13023615721 113.235001004291 Winsorized Mean ( 2 / 39 ) 531890.452991453 4680.81734140187 113.631960872918 Winsorized Mean ( 3 / 39 ) 531832.888888889 4646.59225790533 114.456543498964 Winsorized Mean ( 4 / 39 ) 531835.316239316 4636.93791081133 114.695371486279 Winsorized Mean ( 5 / 39 ) 532039.247863248 4599.15155825903 115.682042899375 Winsorized Mean ( 6 / 39 ) 532028.068376068 4489.41776678474 118.507141908760 Winsorized Mean ( 7 / 39 ) 532052.358974359 4476.85777359212 118.845043975443 Winsorized Mean ( 8 / 39 ) 532065.282051282 4458.68437937785 119.332349361209 Winsorized Mean ( 9 / 39 ) 532288.435897436 4413.85995391862 120.594772252543 Winsorized Mean ( 10 / 39 ) 531132.709401709 4245.16885081401 125.114625134372 Winsorized Mean ( 11 / 39 ) 531182.914529915 4223.71299943048 125.762075832695 Winsorized Mean ( 12 / 39 ) 531136.145299145 4198.19557714137 126.515341064888 Winsorized Mean ( 13 / 39 ) 531381.811965812 4162.12987723022 127.670646433415 Winsorized Mean ( 14 / 39 ) 531573.743589744 4095.81951433176 129.784464801172 Winsorized Mean ( 15 / 39 ) 531789.512820513 4045.07620253598 131.465882518386 Winsorized Mean ( 16 / 39 ) 531920.794871795 4023.28934487681 132.21042517092 Winsorized Mean ( 17 / 39 ) 531630.487179487 3964.7130742053 134.090532462062 Winsorized Mean ( 18 / 39 ) 531521.256410256 3947.37146023231 134.651947951961 Winsorized Mean ( 19 / 39 ) 531983.264957265 3858.19017630609 137.884147915849 Winsorized Mean ( 20 / 39 ) 531930.273504274 3788.44514377226 140.408598598478 Winsorized Mean ( 21 / 39 ) 532015.709401709 3729.74708451924 142.641229377162 Winsorized Mean ( 22 / 39 ) 532248.683760684 3600.138362125 147.841174483783 Winsorized Mean ( 23 / 39 ) 532081.393162393 3432.33337987237 155.020312503029 Winsorized Mean ( 24 / 39 ) 532140.05982906 3389.37746552163 157.002300641414 Winsorized Mean ( 25 / 39 ) 532796.042735043 3307.56212919576 161.084213061961 Winsorized Mean ( 26 / 39 ) 532871.82051282 3208.04397086636 166.104899232074 Winsorized Mean ( 27 / 39 ) 532546.897435897 3040.89910619573 175.128104826251 Winsorized Mean ( 28 / 39 ) 532340.606837607 3003.22746191957 177.256173096310 Winsorized Mean ( 29 / 39 ) 533738.307692308 2840.58497796047 187.897321091774 Winsorized Mean ( 30 / 39 ) 534258.307692308 2776.32608365116 192.433558449194 Winsorized Mean ( 31 / 39 ) 533511.923076923 2650.85682724122 201.260180328998 Winsorized Mean ( 32 / 39 ) 533533.52991453 2630.83347745813 202.8001903146 Winsorized Mean ( 33 / 39 ) 533362.324786325 2551.34425314560 209.051492807657 Winsorized Mean ( 34 / 39 ) 533835.709401709 2395.5401339698 222.845654652864 Winsorized Mean ( 35 / 39 ) 533990.965811966 2362.368657144 226.040488726064 Winsorized Mean ( 36 / 39 ) 533903.888888889 2313.72694589525 230.754925440134 Winsorized Mean ( 37 / 39 ) 533682.521367521 2183.92365709594 244.368670870657 Winsorized Mean ( 38 / 39 ) 533241.136752137 2126.64072024568 250.743405632962 Winsorized Mean ( 39 / 39 ) 533293.136752137 2102.22650399044 253.680150897080 Trimmed Mean ( 1 / 39 ) 531874.67826087 4629.51980068998 114.887655990066 Trimmed Mean ( 2 / 39 ) 531869.637168142 4554.4140492002 116.781133955430 Trimmed Mean ( 3 / 39 ) 531858.666666667 4480.34685188999 118.709261637256 Trimmed Mean ( 4 / 39 ) 531867.889908257 4411.70220594594 120.558429621887 Trimmed Mean ( 5 / 39 ) 531876.794392523 4338.09802103271 122.605988111331 Trimmed Mean ( 6 / 39 ) 531840.590476190 4265.8788642408 124.673158193591 Trimmed Mean ( 7 / 39 ) 531805.097087379 4210.43468566433 126.306459258961 Trimmed Mean ( 8 / 39 ) 531764.178217822 4150.56268895314 128.118575255623 Trimmed Mean ( 9 / 39 ) 531719.696969697 4086.47016649532 130.117112154453 Trimmed Mean ( 10 / 39 ) 531643.474226804 4021.98005178563 132.184512946744 Trimmed Mean ( 11 / 39 ) 531706.378947368 3976.90935303782 133.698390319411 Trimmed Mean ( 12 / 39 ) 531766.247311828 3928.71955563268 135.353577617783 Trimmed Mean ( 13 / 39 ) 531833.758241758 3877.35545241298 137.164045125340 Trimmed Mean ( 14 / 39 ) 531879.460674157 3823.73529149602 139.099445993831 Trimmed Mean ( 15 / 39 ) 531879.460674157 3771.52444187574 141.025059991294 Trimmed Mean ( 16 / 39 ) 531919.776470588 3718.32138237491 143.053738978003 Trimmed Mean ( 17 / 39 ) 531919.686746988 3659.71665168124 145.344499963578 Trimmed Mean ( 18 / 39 ) 531944.259259259 3599.73809433005 147.773044960445 Trimmed Mean ( 19 / 39 ) 531979.063291139 3532.28744343358 150.604692231396 Trimmed Mean ( 20 / 39 ) 531978.727272727 3465.90350290777 153.489191729203 Trimmed Mean ( 21 / 39 ) 531982.506666667 3397.73192306801 156.569888005263 Trimmed Mean ( 22 / 39 ) 531979.97260274 3325.70484678354 159.960067748419 Trimmed Mean ( 23 / 39 ) 531959.845070423 3258.76758226025 163.23957804363 Trimmed Mean ( 24 / 39 ) 531950.884057971 3202.53223501983 166.103209904046 Trimmed Mean ( 25 / 39 ) 531937.119402985 3141.13429982182 169.345551202048 Trimmed Mean ( 26 / 39 ) 531875.276923077 3078.81611889929 172.75318056774 Trimmed Mean ( 27 / 39 ) 531804.095238095 3017.81594691582 176.221514032887 Trimmed Mean ( 28 / 39 ) 531751.327868852 2967.93110989318 179.165657213651 Trimmed Mean ( 29 / 39 ) 531709.593220339 2911.99424237621 182.592941113256 Trimmed Mean ( 30 / 39 ) 531709.593220339 2866.28373342141 185.504870652024 Trimmed Mean ( 31 / 39 ) 531375.090909091 2817.74740144774 188.581521053333 Trimmed Mean ( 32 / 39 ) 531222.924528302 2776.55016403239 191.324807096878 Trimmed Mean ( 33 / 39 ) 531057.274509804 2726.35560353455 194.786503206449 Trimmed Mean ( 34 / 39 ) 530890.489795918 2675.09576933315 198.456629434339 Trimmed Mean ( 35 / 39 ) 530674.85106383 2634.32098899523 201.446540979897 Trimmed Mean ( 36 / 39 ) 530428.511111111 2584.78735045906 205.21166316328 Trimmed Mean ( 37 / 39 ) 530165.837209302 2527.33266414843 209.77287427571 Trimmed Mean ( 38 / 39 ) 529894.609756098 2476.20414336286 213.994718963867 Trimmed Mean ( 39 / 39 ) 529630.41025641 2418.43213024063 218.997425494720 Median 527070 Midrange 530106 Midmean - Weighted Average at Xnp 530998.689655172 Midmean - Weighted Average at X(n+1)p 531709.593220339 Midmean - Empirical Distribution Function 531709.593220339 Midmean - Empirical Distribution Function - Averaging 531709.593220339 Midmean - Empirical Distribution Function - Interpolation 531709.593220339 Midmean - Closest Observation 531062.183333333 Midmean - True Basic - Statistics Graphics Toolkit 531709.593220339 Midmean - MS Excel (old versions) 531709.593220339 Number of observations 117

Charts produced by software:

http://www.freestatistics.org/blog/date/2009/Oct/28/t1256767085fpmsc7re2w3j2bi/1gs0x1256767003.png (open in new window) http://www.freestatistics.org/blog/date/2009/Oct/28/t1256767085fpmsc7re2w3j2bi/1gs0x1256767003.ps (open in new window) http://www.freestatistics.org/blog/date/2009/Oct/28/t1256767085fpmsc7re2w3j2bi/29lg11256767003.png (open in new window) http://www.freestatistics.org/blog/date/2009/Oct/28/t1256767085fpmsc7re2w3j2bi/29lg11256767003.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