Centrummaten

*Unverified author*

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

Title produced by software: Central Tendency

Date of computation: Mon, 03 Jan 2011 15:11:45 +0000

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2011/Jan/03/t1294067390jamgvp09fx9cyu3.htm/, Retrieved Mon, 03 Jan 2011 16:09:52 +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/2011/Jan/03/t1294067390jamgvp09fx9cyu3.htm/}, year = {2011}, } @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 = {2011}, 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:

KDGP1W52

Dataseries X:

» Textbox « » Textfile « » CSV «

52347 52407 50570 50442 50590 50040 50476 50268 50595 48708 48547 48196 48375 47915 46462 46132 46308 46532 46817 46824 46263 45992 46404 46995 48102 48719 47912 48430 50141 50608 51005 51857 52513 52406 53634 55165 57294 58026 56701 58706 60103 61153 62395 63850 64534 65765 66954 65741 65474 60687 59227 59373 59995 59532 59696 59507 60210 58782 59372 58827 60481 59508 56565 56201 56193 56431 56316 55316 54795 53310 51848 50618 52026 50120 46825 46374 45441 45392 45032 44302 42880 42101 41886 41415 43228 41633 39375 38603 37847 36881 36700 36477 35684 35896 37109 37612 39570 39518 37970 38343 37966 38942 39304 39438 38999 38110 40024 41050 42239 42313 41159 42067 42515 43554 45018 45797 46749 47291 48800 50566 54884 54002 51813 52751 54461 55364 56900 57795

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 'Herman Ole Andreas Wold' @ www.yougetit.org Central Tendency - Ungrouped Data Measure Value S.E. Value/S.E. Arithmetic Mean 49611.671875 698.285753201147 71.0478076454597 Geometric Mean 48983.4899207847 Harmonic Mean 48354.5103983538 Quadratic Mean 50231.8978972463 Winsorized Mean ( 1 / 42 ) 49604.0390625 696.27012098274 71.2425214979599 Winsorized Mean ( 2 / 42 ) 49612.7421875 694.822215269807 71.4035059576136 Winsorized Mean ( 3 / 42 ) 49611.7109375 692.913881492074 71.598667976848 Winsorized Mean ( 4 / 42 ) 49587.9921875 686.92264621777 72.1886117171038 Winsorized Mean ( 5 / 42 ) 49570.1796875 681.138082209924 72.775522294498 Winsorized Mean ( 6 / 42 ) 49525.5546875 666.966093429435 74.2549811383175 Winsorized Mean ( 7 / 42 ) 49470.484375 655.233659184263 75.5005236400532 Winsorized Mean ( 8 / 42 ) 49448.796875 650.170401115837 76.0551338389673 Winsorized Mean ( 9 / 42 ) 49434.59375 648.173717354219 76.2675073463132 Winsorized Mean ( 10 / 42 ) 49424.359375 643.838355466097 76.7651677713733 Winsorized Mean ( 11 / 42 ) 49435.1875 639.876383580089 77.2574027867877 Winsorized Mean ( 12 / 42 ) 49449.4375 635.2479052897 77.8427399574801 Winsorized Mean ( 13 / 42 ) 49453.5 626.720908534957 78.908329571458 Winsorized Mean ( 14 / 42 ) 49441.796875 623.601367577564 79.2842983444073 Winsorized Mean ( 15 / 42 ) 49474.7265625 618.572275608861 79.9821274139744 Winsorized Mean ( 16 / 42 ) 49483.4765625 617.409726334822 80.1469015660842 Winsorized Mean ( 17 / 42 ) 49474.046875 614.064969902405 80.5680983281997 Winsorized Mean ( 18 / 42 ) 49485.15625 612.602596705918 80.7785610379244 Winsorized Mean ( 19 / 42 ) 49471.3515625 608.888703558048 81.2485948144769 Winsorized Mean ( 20 / 42 ) 49479.7890625 592.057647076827 83.5725867350876 Winsorized Mean ( 21 / 42 ) 49640.734375 570.559625051341 87.003587697838 Winsorized Mean ( 22 / 42 ) 49646.40625 566.698306552348 87.6064136348606 Winsorized Mean ( 23 / 42 ) 49570.21875 546.138517802172 90.7649197670322 Winsorized Mean ( 24 / 42 ) 49567.78125 536.096150238352 92.4606177976877 Winsorized Mean ( 25 / 42 ) 49519.34375 518.66417365114 95.4747720503004 Winsorized Mean ( 26 / 42 ) 49476.078125 505.054650752982 97.9618305687048 Winsorized Mean ( 27 / 42 ) 49441.2734375 499.393615284147 99.002614219184 Winsorized Mean ( 28 / 42 ) 49441.7109375 492.511839128897 100.386847603394 Winsorized Mean ( 29 / 42 ) 49428.1171875 487.135413413571 101.466893653113 Winsorized Mean ( 30 / 42 ) 49448.5078125 478.664901412259 103.305063033881 Winsorized Mean ( 31 / 42 ) 49509.0546875 465.517156341209 106.352803571457 Winsorized Mean ( 32 / 42 ) 49594.0546875 455.625675246115 108.84824403434 Winsorized Mean ( 33 / 42 ) 49464.375 422.417694395471 117.098255248965 Winsorized Mean ( 34 / 42 ) 49650.3125 399.576978849293 124.25718979853 Winsorized Mean ( 35 / 42 ) 49804.8046875 374.770580750658 132.894115081664 Winsorized Mean ( 36 / 42 ) 49729.7109375 365.535001904289 136.046372244596 Winsorized Mean ( 37 / 42 ) 49808.046875 352.269488533419 141.391884611871 Winsorized Mean ( 38 / 42 ) 49723.4375 339.860200377942 146.3055616536 Winsorized Mean ( 39 / 42 ) 49692.0546875 313.938894283695 158.285754305407 Winsorized Mean ( 40 / 42 ) 49637.9921875 295.665561403107 167.885606804994 Winsorized Mean ( 41 / 42 ) 49579.0546875 280.355652903127 176.843427889187 Winsorized Mean ( 42 / 42 ) 49438.6171875 257.265117035031 192.169920886586 Trimmed Mean ( 1 / 42 ) 49584.5714285714 686.913747911843 72.1845669551733 Trimmed Mean ( 2 / 42 ) 49564.4758064516 676.611440948582 73.2539723788357 Trimmed Mean ( 3 / 42 ) 49539.1557377049 666.081272228843 74.374040831289 Trimmed Mean ( 4 / 42 ) 49513.3583333333 655.216558251315 75.5679289691302 Trimmed Mean ( 5 / 42 ) 49493.1186440678 645.09225417319 76.7225436732344 Trimmed Mean ( 6 / 42 ) 49476.1120689655 635.397873412372 77.8663482193552 Trimmed Mean ( 7 / 42 ) 49466.8596491228 627.854433406161 78.7871471748015 Trimmed Mean ( 8 / 42 ) 49466.2678571429 621.791162300094 79.5544723957801 Trimmed Mean ( 9 / 42 ) 49468.8090909091 615.910195204116 80.318217616961 Trimmed Mean ( 10 / 42 ) 49473.3148148148 609.636033687412 81.1522155532264 Trimmed Mean ( 11 / 42 ) 49479.2264150943 603.259548378918 82.0197981914338 Trimmed Mean ( 12 / 42 ) 49484.1538461538 596.665033972144 82.9345629937887 Trimmed Mean ( 13 / 42 ) 49487.7843137255 589.881960365889 83.8943850444748 Trimmed Mean ( 14 / 42 ) 49491.16 583.378269909002 84.8354533461109 Trimmed Mean ( 15 / 42 ) 49495.7653061224 576.410815946368 85.8689044980165 Trimmed Mean ( 16 / 42 ) 49497.6354166667 569.148892337565 86.9678147195785 Trimmed Mean ( 17 / 42 ) 49498.8404255319 561.030540421022 88.2284240504729 Trimmed Mean ( 18 / 42 ) 49500.8695652174 552.204312096088 89.6423089803831 Trimmed Mean ( 19 / 42 ) 49502.1111111111 542.313625843148 91.27948986004 Trimmed Mean ( 20 / 42 ) 49504.4659090909 531.474458746722 93.1455220366152 Trimmed Mean ( 21 / 42 ) 49506.3023255814 521.200818343893 94.9850817250956 Trimmed Mean ( 22 / 42 ) 49496.5476190476 512.07564086129 96.6586645984498 Trimmed Mean ( 23 / 42 ) 49485.9146341463 502.00891943728 98.575767716671 Trimmed Mean ( 24 / 42 ) 49480.05 492.955850816714 100.374201701883 Trimmed Mean ( 25 / 42 ) 49474.0512820513 483.679216748488 102.286907456224 Trimmed Mean ( 26 / 42 ) 49471 475.052417052443 104.137981881984 Trimmed Mean ( 27 / 42 ) 49470.6621621622 466.647136387803 106.012998483398 Trimmed Mean ( 28 / 42 ) 49472.5972222222 457.451587465489 108.148268751946 Trimmed Mean ( 29 / 42 ) 49474.6142857143 447.472710477746 110.564539752363 Trimmed Mean ( 30 / 42 ) 49477.6323529412 436.342619820707 113.391702083265 Trimmed Mean ( 31 / 42 ) 49479.5151515152 424.263334266579 116.6245375341 Trimmed Mean ( 32 / 42 ) 49477.609375 411.716167026588 120.174074611466 Trimmed Mean ( 33 / 42 ) 49470.0967741935 398.074273587565 124.273534002472 Trimmed Mean ( 34 / 42 ) 49470.4666666667 386.776203168059 127.904628727045 Trimmed Mean ( 35 / 42 ) 49458.7931034483 376.518113443605 131.358336657703 Trimmed Mean ( 36 / 42 ) 49436.1964285714 367.674332199311 134.456479822401 Trimmed Mean ( 37 / 42 ) 49416.8703703704 358.227797872556 137.948173379753 Trimmed Mean ( 38 / 42 ) 49390.8461538462 348.511833411168 141.719280147299 Trimmed Mean ( 39 / 42 ) 49368.44 338.532483787881 145.830732246461 Trimmed Mean ( 40 / 42 ) 49346.3125 330.572675183893 149.275231150153 Trimmed Mean ( 41 / 42 ) 49326.0217391304 323.684416428677 152.389238516212 Trimmed Mean ( 42 / 42 ) 49308.0681818182 317.553057606222 155.27505404455 Median 49420 Midrange 51319 Midmean - Weighted Average at Xnp 49376.1076923077 Midmean - Weighted Average at X(n+1)p 49477.609375 Midmean - Empirical Distribution Function 49376.1076923077 Midmean - Empirical Distribution Function - Averaging 49477.609375 Midmean - Empirical Distribution Function - Interpolation 49477.609375 Midmean - Closest Observation 49376.1076923077 Midmean - True Basic - Statistics Graphics Toolkit 49477.609375 Midmean - MS Excel (old versions) 49479.5151515152 Number of observations 128

Charts produced by software:

http://www.freestatistics.org/blog/date/2011/Jan/03/t1294067390jamgvp09fx9cyu3/1zbbf1294067503.png (open in new window) http://www.freestatistics.org/blog/date/2011/Jan/03/t1294067390jamgvp09fx9cyu3/1zbbf1294067503.ps (open in new window) http://www.freestatistics.org/blog/date/2011/Jan/03/t1294067390jamgvp09fx9cyu3/2jutp1294067503.png (open in new window) http://www.freestatistics.org/blog/date/2011/Jan/03/t1294067390jamgvp09fx9cyu3/2jutp1294067503.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