Maatstaven voor centrale tendentie

*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, 01 Oct 2010 07:43:41 +0000

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/Oct/01/t128591918699mucp5i0yakgti.htm/, Retrieved Fri, 01 Oct 2010 09:46:29 +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/2010/Oct/01/t128591918699mucp5i0yakgti.htm/}, year = {2010}, } @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 = {2010}, 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 «

59,609 62,156 64,016 70,939 72,844 85,094 86,58 103,898 109,215 131,812 136,452 136,813 137,55 140,321 150,034 156,187 158,047 169,861 171,26 171,328 180,818 183,186 183,613 184,641 187,881 190,157 190,379 191,835 192,797 193,299 197,549 198,296 199,297 199,746 200,156 203,077 204,386 206,771 206,893 207,533 208,108 211,655 213,361 213,511 213,923 216,046 216,548 216,886 217,465 218,761 220,553 221,588 223,166 226,731 229,641 232,444 232,669 235,577 236,302 236,71 238,502 239,89 240,755 241,171 242,205 242,344 246,542 249,148 250,407 251,422 252,64 257,102 257,567 259,7 260,642 261,596 262,517 262,875 263,906 265,777 266,793 274,482 275,562 278,741 287,069 289,714 293,671 295,281 308,16 308,174 308,532 313,906 315,955 324,04 330,563 348,821 350,089 356,725 366,936 380,155 380,531 383,703 386,688 388,3 392,25 401,422 401,915 403,064 403,556 406,167 421,403 426,113 435,956 438,555 440,31 441,437 4 etc...

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 260.575557377049 9.95065790855259 26.1867667215335 Geometric Mean 237.029426519333 Harmonic Mean 210.634757350712 Quadratic Mean 282.631399233591 Winsorized Mean ( 1 / 40 ) 260.513491803279 9.92334559040333 26.2525868347482 Winsorized Mean ( 2 / 40 ) 259.808163934426 9.72106237747866 26.7263138375018 Winsorized Mean ( 3 / 40 ) 258.758114754098 9.40581924238412 27.5104281813213 Winsorized Mean ( 4 / 40 ) 257.810147540984 9.18620165674733 28.0649344717596 Winsorized Mean ( 5 / 40 ) 257.236786885246 8.90265459715245 28.8943914512335 Winsorized Mean ( 6 / 40 ) 256.908704918033 8.82048093757656 29.1263828737006 Winsorized Mean ( 7 / 40 ) 257.837696721311 8.65689621431511 29.784080845852 Winsorized Mean ( 8 / 40 ) 258.071270491803 8.58627718053036 30.0562473195004 Winsorized Mean ( 9 / 40 ) 259.546532786885 8.32755125343772 31.1672092897346 Winsorized Mean ( 10 / 40 ) 259.120057377049 8.14071900781946 31.8301193209291 Winsorized Mean ( 11 / 40 ) 258.727934426230 8.0652638667925 32.079289493739 Winsorized Mean ( 12 / 40 ) 257.301803278689 7.81314107339803 32.9319285114079 Winsorized Mean ( 13 / 40 ) 257.318852459016 7.73232831241455 33.2783143785917 Winsorized Mean ( 14 / 40 ) 258.377 7.58797730745683 34.0508398392400 Winsorized Mean ( 15 / 40 ) 258.992245901639 7.47806570702906 34.6335878886699 Winsorized Mean ( 16 / 40 ) 259.171524590164 7.44029341367594 34.8335085970915 Winsorized Mean ( 17 / 40 ) 259.539672131148 7.0610052630399 36.7567594786653 Winsorized Mean ( 18 / 40 ) 259.163295081967 6.94936679016649 37.2930804931306 Winsorized Mean ( 19 / 40 ) 258.922836065574 6.90979900397619 37.4718332496472 Winsorized Mean ( 20 / 40 ) 259.989229508197 6.67713501037131 38.9372431595836 Winsorized Mean ( 21 / 40 ) 259.850836065574 6.55411111608045 39.6469988780068 Winsorized Mean ( 22 / 40 ) 259.860032786885 6.53636234497244 39.7560629402318 Winsorized Mean ( 23 / 40 ) 257.561729508197 6.14449867670931 41.9174521893028 Winsorized Mean ( 24 / 40 ) 256.190385245902 5.79018352633039 44.2456416244661 Winsorized Mean ( 25 / 40 ) 255.296942622951 5.55127943909874 45.9888473321744 Winsorized Mean ( 26 / 40 ) 255.074024590164 5.508618055586 46.3045399075194 Winsorized Mean ( 27 / 40 ) 251.355549180328 4.9232505344783 51.0547954892902 Winsorized Mean ( 28 / 40 ) 250.079254098361 4.70427273910321 53.1600245070047 Winsorized Mean ( 29 / 40 ) 248.276737704918 4.44632651949054 55.8386201770368 Winsorized Mean ( 30 / 40 ) 248.817967213115 4.27776977310222 58.1653479291086 Winsorized Mean ( 31 / 40 ) 247.642254098361 4.08898272201407 60.563291883117 Winsorized Mean ( 32 / 40 ) 247.810909836066 4.05133749547431 61.1676786031506 Winsorized Mean ( 33 / 40 ) 247.928573770492 4.03887416906895 61.3855652323144 Winsorized Mean ( 34 / 40 ) 244.453606557377 3.5959463640358 67.9803261256161 Winsorized Mean ( 35 / 40 ) 244.829713114754 3.45751726854774 70.8108431856335 Winsorized Mean ( 36 / 40 ) 244.048336065574 3.28367853001353 74.3216285744536 Winsorized Mean ( 37 / 40 ) 243.969483606557 3.12003391926997 78.1944972135564 Winsorized Mean ( 38 / 40 ) 241.413516393443 2.82628993075572 85.4171094643822 Winsorized Mean ( 39 / 40 ) 240.601868852459 2.69564718670222 89.2556971251142 Winsorized Mean ( 40 / 40 ) 240.436295081967 2.63868915838049 91.1195978951671 Trimmed Mean ( 1 / 40 ) 259.327733333333 9.53432347550349 27.1993848330847 Trimmed Mean ( 2 / 40 ) 258.101779661017 9.09570041045247 28.3762402029442 Trimmed Mean ( 3 / 40 ) 257.204456896552 8.72503337686998 29.4789080782659 Trimmed Mean ( 4 / 40 ) 256.650228070175 8.44431467224027 30.3932572425189 Trimmed Mean ( 5 / 40 ) 256.334357142857 8.20394531104661 31.2452542556205 Trimmed Mean ( 6 / 40 ) 256.134181818182 8.01403744082528 31.9606919370476 Trimmed Mean ( 7 / 40 ) 255.988361111111 7.82160504761317 32.7283670746362 Trimmed Mean ( 8 / 40 ) 255.684292452830 7.64116334389942 33.4614352482027 Trimmed Mean ( 9 / 40 ) 255.334278846154 7.45251221026243 34.2615042608783 Trimmed Mean ( 10 / 40 ) 254.774480392157 7.28693268531717 34.9631993864189 Trimmed Mean ( 11 / 40 ) 254.24432 7.13254519928011 35.645665452728 Trimmed Mean ( 12 / 40 ) 253.736897959184 6.97058318138407 36.4011003608455 Trimmed Mean ( 13 / 40 ) 253.359364583333 6.82760219523881 37.1081028651628 Trimmed Mean ( 14 / 40 ) 252.964063829787 6.6774213811366 37.8834956476461 Trimmed Mean ( 15 / 40 ) 252.451347826087 6.52679380017066 38.6792283555037 Trimmed Mean ( 16 / 40 ) 251.860244444444 6.36980907690588 39.5396850052506 Trimmed Mean ( 17 / 40 ) 251.226738636364 6.19472975943655 40.5549149668176 Trimmed Mean ( 18 / 40 ) 250.533046511628 6.04641416045088 41.4349794544914 Trimmed Mean ( 19 / 40 ) 249.836690476190 5.89084244070485 42.4110291509167 Trimmed Mean ( 20 / 40 ) 249.125195121951 5.71596482186142 43.5841022270012 Trimmed Mean ( 21 / 40 ) 248.2968125 5.54294445675424 44.7951110528346 Trimmed Mean ( 22 / 40 ) 247.436256410256 5.35757828681758 46.1843473233191 Trimmed Mean ( 23 / 40 ) 246.529736842105 5.14089152621798 47.9546661478522 Trimmed Mean ( 24 / 40 ) 245.738959459459 4.94826635239817 49.661627317285 Trimmed Mean ( 25 / 40 ) 245.001069444444 4.77517131665599 51.3072836967903 Trimmed Mean ( 26 / 40 ) 244.2833 4.60618339811165 53.0337763147135 Trimmed Mean ( 27 / 40 ) 243.538691176471 4.41001742470947 55.2239748106017 Trimmed Mean ( 28 / 40 ) 243.003530303030 4.27332048483024 56.8652716700427 Trimmed Mean ( 29 / 40 ) 242.5218125 4.14393750436907 58.5244860098161 Trimmed Mean ( 30 / 40 ) 242.131322580645 4.02968922820669 60.0868476124149 Trimmed Mean ( 31 / 40 ) 241.678116666667 3.91513430988754 61.7292019985922 Trimmed Mean ( 32 / 40 ) 241.273431034483 3.80646244758294 63.38521247929 Trimmed Mean ( 33 / 40 ) 240.828357142857 3.67742988706845 65.4882253471973 Trimmed Mean ( 34 / 40 ) 240.342259259259 3.51786302383947 68.3205280110493 Trimmed Mean ( 35 / 40 ) 240.058557692308 3.40685666744271 70.4633570253788 Trimmed Mean ( 36 / 40 ) 239.72594 3.29089242736647 72.8452677475819 Trimmed Mean ( 37 / 40 ) 239.420770833333 3.17774607026613 75.3429523754497 Trimmed Mean ( 38 / 40 ) 239.094717391304 3.06452308032088 78.0202044901125 Trimmed Mean ( 39 / 40 ) 238.925522727273 2.98250329671115 80.1090557018796 Trimmed Mean ( 40 / 40 ) 238.800666666667 2.90195776174439 82.2895046284622 Median 239.196 Midrange 335.445 Midmean - Weighted Average at Xnp 240.95468852459 Midmean - Weighted Average at X(n+1)p 242.131322580645 Midmean - Empirical Distribution Function 242.131322580645 Midmean - Empirical Distribution Function - Averaging 242.131322580645 Midmean - Empirical Distribution Function - Interpolation 241.678116666667 Midmean - Closest Observation 242.131322580645 Midmean - True Basic - Statistics Graphics Toolkit 242.131322580645 Midmean - MS Excel (old versions) 242.131322580645 Number of observations 122

Charts produced by software:

http://www.freestatistics.org/blog/date/2010/Oct/01/t128591918699mucp5i0yakgti/19t0a1285919019.png (open in new window) http://www.freestatistics.org/blog/date/2010/Oct/01/t128591918699mucp5i0yakgti/19t0a1285919019.ps (open in new window) http://www.freestatistics.org/blog/date/2010/Oct/01/t128591918699mucp5i0yakgti/2k2zd1285919019.png (open in new window) http://www.freestatistics.org/blog/date/2010/Oct/01/t128591918699mucp5i0yakgti/2k2zd1285919019.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