*Unverified author*

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

Title produced by software: Central Tendency

Date of computation: Sun, 07 Jun 2009 09:38:13 -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/Jun/07/t1244389116boxtvr80hpv0uox.htm/, Retrieved Sun, 07 Jun 2009 17:38:38 +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/Jun/07/t1244389116boxtvr80hpv0uox.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 «

49.32 58.53 49.09 24.68 16.71 19.86 38.23 36.11 19.59 14.91 15.74 15.40 13.06 19.07 15.28 15.82 12.77 12.05 11.69 13.85 13.85 10.07 9.17 10.79 13.44 21.17 18.64 13.21 15.54 21.94 23.11 18.64 14.94 16.90 15.46 11.15 13.13 12.48 12.95 12.59 10.58 10.58 12.39 15.53 13.06 10.22 16.33 19.72 21.31 18.84 24.84 15.67 15.57 12.73 13.56 15.54 17.22 12.14 11.07 12.02 11.55 6.92 10.33 8.38 12.11 11.46 12.75 13.32 13.00 11.90 11.79 12.55 11.84 11.25 11.15 10.99 11.70 14.01 17.51 17.27 16.90 15.79 15.45 16.24 16.71 16.77 16.64 17.80 16.87 16.13 15.76 15.66 15.54 15.30 15.05 14.69 14.39 14.18 13.70 13.66 13.27 13.56 13.14 14.19 22.57 23.09 23.31 22.91 22.36 43.06 64.67 64.68 56.90 48.79 45.21 41.40 22.17 25.52 20.28 22.87 27.63 22.95 21.35 18.38 17.15 18.27 19.40 20.52

Output produced by software:

Summary of computational transaction Raw Input view raw input (R code) Raw Output view raw output of R engine Computing time 1 seconds R Server 'George Udny Yule' @ 72.249.76.132 Central Tendency - Ungrouped Data Measure Value S.E. Value/S.E. Arithmetic Mean 18.86296875 0.977894227697033 19.2893752879826 Geometric Mean 16.9185524260768 Harmonic Mean 15.6868235534847 Quadratic Mean 21.8462533257994 Winsorized Mean ( 1 / 42 ) 18.874296875 0.97683448257288 19.3218986550179 Winsorized Mean ( 2 / 42 ) 18.790703125 0.942144493874226 19.9446085469651 Winsorized Mean ( 3 / 42 ) 18.77359375 0.927992338436338 20.2303327004115 Winsorized Mean ( 4 / 42 ) 18.54140625 0.855583263422853 21.6710717035571 Winsorized Mean ( 5 / 42 ) 18.53671875 0.852716075883448 21.7384417560033 Winsorized Mean ( 6 / 42 ) 18.534375 0.847879822719356 21.8596722122196 Winsorized Mean ( 7 / 42 ) 18.33859375 0.79425061507495 23.0891779016998 Winsorized Mean ( 8 / 42 ) 18.21734375 0.757989105339693 24.0337804615752 Winsorized Mean ( 9 / 42 ) 18.1146875 0.727120608394723 24.9129061820873 Winsorized Mean ( 10 / 42 ) 17.87328125 0.665518473781218 26.8561759802864 Winsorized Mean ( 11 / 42 ) 17.69796875 0.621752748927897 28.4646409372810 Winsorized Mean ( 12 / 42 ) 16.90296875 0.451852341344091 37.4081690043256 Winsorized Mean ( 13 / 42 ) 16.698828125 0.412661529175054 40.4661615983016 Winsorized Mean ( 14 / 42 ) 16.647421875 0.397997668053168 41.82793822997 Winsorized Mean ( 15 / 42 ) 16.63921875 0.393893449831381 42.2429435095277 Winsorized Mean ( 16 / 42 ) 16.48546875 0.365711942172829 45.0777424769172 Winsorized Mean ( 17 / 42 ) 16.460234375 0.361700286500405 45.5079384488725 Winsorized Mean ( 18 / 42 ) 16.470078125 0.359989516471879 45.7515493407058 Winsorized Mean ( 19 / 42 ) 16.45671875 0.356235047851974 46.1962371451960 Winsorized Mean ( 20 / 42 ) 16.45984375 0.354385419280075 46.4461652610815 Winsorized Mean ( 21 / 42 ) 16.47296875 0.351465512376319 46.8693745756829 Winsorized Mean ( 22 / 42 ) 16.4265625 0.343624859782555 47.803766323527 Winsorized Mean ( 23 / 42 ) 16.399609375 0.337262591520423 48.6256400422841 Winsorized Mean ( 24 / 42 ) 16.369609375 0.331767524012622 49.3406020487323 Winsorized Mean ( 25 / 42 ) 16.373515625 0.320766770774832 51.0449245894415 Winsorized Mean ( 26 / 42 ) 16.271953125 0.302865214772699 53.7267151568138 Winsorized Mean ( 27 / 42 ) 16.27828125 0.300302077028622 54.2063558503078 Winsorized Mean ( 28 / 42 ) 16.25640625 0.295421108051489 55.0279103521833 Winsorized Mean ( 29 / 42 ) 16.140859375 0.273368730718858 59.0442781533775 Winsorized Mean ( 30 / 42 ) 16.089296875 0.265867673621468 60.5161833172215 Winsorized Mean ( 31 / 42 ) 15.992421875 0.252945048703379 63.2248860255565 Winsorized Mean ( 32 / 42 ) 16.002421875 0.244269176195331 65.5114252409956 Winsorized Mean ( 33 / 42 ) 15.981796875 0.239001378401623 66.8690573329826 Winsorized Mean ( 34 / 42 ) 15.947265625 0.231471768392057 68.895078375127 Winsorized Mean ( 35 / 42 ) 15.85703125 0.221004867745291 71.7496922659426 Winsorized Mean ( 36 / 42 ) 15.81203125 0.211695453544392 74.6923516082233 Winsorized Mean ( 37 / 42 ) 15.757109375 0.204947874600938 76.8834973560047 Winsorized Mean ( 38 / 42 ) 15.777890625 0.202867444295571 77.7743845484254 Winsorized Mean ( 39 / 42 ) 15.716953125 0.192319796220077 81.7230125754432 Winsorized Mean ( 40 / 42 ) 15.698203125 0.187019641690053 83.9387937178094 Winsorized Mean ( 41 / 42 ) 15.58609375 0.167134739333904 93.2546627476522 Winsorized Mean ( 42 / 42 ) 15.5303125 0.153348209783002 101.274821023189 Trimmed Mean ( 1 / 42 ) 18.594126984127 0.91873962160965 20.2387341818890 Trimmed Mean ( 2 / 42 ) 18.3049193548387 0.851427477989142 21.4990939663708 Trimmed Mean ( 3 / 42 ) 18.0500819672131 0.795733887471684 22.6835657641330 Trimmed Mean ( 4 / 42 ) 17.7928333333333 0.737465160201939 24.1270154761767 Trimmed Mean ( 5 / 42 ) 17.5898305084746 0.697155631095795 25.2308519416629 Trimmed Mean ( 6 / 42 ) 17.3808620689655 0.651376314416629 26.6832884221953 Trimmed Mean ( 7 / 42 ) 17.165 0.598991651918846 28.6564928659901 Trimmed Mean ( 8 / 42 ) 16.9733928571429 0.551990483125908 30.7494302456502 Trimmed Mean ( 9 / 42 ) 16.7924545454545 0.505648069063372 33.2097669759913 Trimmed Mean ( 10 / 42 ) 16.6183333333333 0.457914582614026 36.2913389620982 Trimmed Mean ( 11 / 42 ) 16.4667924528302 0.415647051772602 39.6172482942067 Trimmed Mean ( 12 / 42 ) 16.3290384615385 0.375046537297356 43.5386994350303 Trimmed Mean ( 13 / 42 ) 16.2690196078431 0.362245539520935 44.9115802208598 Trimmed Mean ( 14 / 42 ) 16.2267 0.354038320559007 45.8331741444794 Trimmed Mean ( 15 / 42 ) 16.1874489795918 0.346882916042475 46.6654546273755 Trimmed Mean ( 16 / 42 ) 16.1472916666667 0.339318766678652 47.587381696335 Trimmed Mean ( 17 / 42 ) 16.1185106382979 0.334612358226494 48.1706973517921 Trimmed Mean ( 18 / 42 ) 16.0905434782609 0.329749226558487 48.7963039252403 Trimmed Mean ( 19 / 42 ) 16.0605555555556 0.324365831334169 49.5137095343733 Trimmed Mean ( 20 / 42 ) 16.0302272727273 0.31865525216167 50.3058624139492 Trimmed Mean ( 21 / 42 ) 15.9982558139535 0.312292883675790 51.2283713469508 Trimmed Mean ( 22 / 42 ) 15.9638095238095 0.305282940381458 52.2918493377401 Trimmed Mean ( 23 / 42 ) 15.9309756097561 0.298224728772503 53.4193649042056 Trimmed Mean ( 24 / 42 ) 15.898375 0.290870824985133 54.6578537081284 Trimmed Mean ( 25 / 42 ) 15.8661538461538 0.283045508000701 56.0551338836811 Trimmed Mean ( 26 / 42 ) 15.8319736842105 0.275332400049617 57.501309985158 Trimmed Mean ( 27 / 42 ) 15.8027027027027 0.268815280150796 58.7864748381787 Trimmed Mean ( 28 / 42 ) 15.7713888888889 0.261427577259221 60.3279464784644 Trimmed Mean ( 29 / 42 ) 15.7397142857143 0.253358392415555 62.1243059511454 Trimmed Mean ( 30 / 42 ) 15.7136764705882 0.247056588763462 63.6035515152073 Trimmed Mean ( 31 / 42 ) 15.6893939393939 0.240633766819415 65.2003006343168 Trimmed Mean ( 32 / 42 ) 15.66984375 0.234895651033347 66.7098078702846 Trimmed Mean ( 33 / 42 ) 15.6483870967742 0.229177615294577 68.280608804923 Trimmed Mean ( 34 / 42 ) 15.6268333333333 0.223013198118048 70.0713386705549 Trimmed Mean ( 35 / 42 ) 15.6060344827586 0.216675499795072 72.0249151266228 Trimmed Mean ( 36 / 42 ) 15.5896428571429 0.210684253858108 73.9952918723684 Trimmed Mean ( 37 / 42 ) 15.575 0.204840404205246 76.0348040730976 Trimmed Mean ( 38 / 42 ) 15.5628846153846 0.198749168593167 78.3041495244758 Trimmed Mean ( 39 / 42 ) 15.5484 0.191388132189165 81.2401470360359 Trimmed Mean ( 40 / 42 ) 15.536875 0.184177574911218 84.3581256159415 Trimmed Mean ( 41 / 42 ) 15.5256521739130 0.176021971667053 88.2029216402594 Trimmed Mean ( 42 / 42 ) 15.5213636363636 0.169897553669948 91.3571932090103 Median 15.54 Midrange 35.8 Midmean - Weighted Average at Xnp 15.6252307692308 Midmean - Weighted Average at X(n+1)p 15.66984375 Midmean - Empirical Distribution Function 15.6252307692308 Midmean - Empirical Distribution Function - Averaging 15.66984375 Midmean - Empirical Distribution Function - Interpolation 15.66984375 Midmean - Closest Observation 15.6252307692308 Midmean - True Basic - Statistics Graphics Toolkit 15.66984375 Midmean - MS Excel (old versions) 15.6893939393939 Number of observations 128

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/07/t1244389116boxtvr80hpv0uox/1q9ne1244389091.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/07/t1244389116boxtvr80hpv0uox/1q9ne1244389091.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/07/t1244389116boxtvr80hpv0uox/2folh1244389091.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/07/t1244389116boxtvr80hpv0uox/2folh1244389091.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