ct residuals: dow jones

*Unverified author*

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

Title produced by software: Central Tendency

Date of computation: Wed, 30 Dec 2009 07:24:55 -0700

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Dec/30/t12621831379deplrdextdrsh9.htm/, Retrieved Wed, 30 Dec 2009 15:25:40 +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/Dec/30/t12621831379deplrdextdrsh9.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 «

10.9678643254657 -525.261861701565 330.145024194708 -41.6298418909046 15.8595553657815 91.5421209822089 -741.935708646335 294.173861127316 303.275106855848 159.377315591308 -363.089880096104 -70.6775446637057 -1248.32739525331 411.336266756758 468.432441535871 164.853331439532 -101.764551782688 -21.2212576510628 614.147306257388 -433.137445539844 -39.9236476299611 -569.919719370624 -768.177674508976 229.448685317095 -537.359397574292 -16.4007388019418 613.741131692614 -223.281523658225 -31.4204879689114 -548.472787391605 163.791442435942 345.676828547458 223.350417005609 421.746024705728 -30.6845747582229 120.069852308687 183.862929187173 151.783035262881 44.9736362871135 347.890248955138 348.981414676295 -14.5756020942135 -289.162335142555 145.598123609698 -342.790530668382 331.594625548942 -262.661309974295 -80.2856698336855 193.652731630204 -234.474606142614 447.352748709991 186.46025083303 -181.81992435 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 2 seconds R Server 'Gwilym Jenkins' @ 72.249.127.135 Central Tendency - Ungrouped Data Measure Value S.E. Value/S.E. Arithmetic Mean -4.55399048656905 38.5110949127029 -0.118251389551298 Geometric Mean NaN Harmonic Mean -282.969217642371 Quadratic Mean 403.933442884623 Winsorized Mean ( 1 / 37 ) -0.530622640532203 36.1767831105697 -0.0146674909958252 Winsorized Mean ( 2 / 37 ) 4.45708590091673 34.2673218152428 0.130068113433193 Winsorized Mean ( 3 / 37 ) 7.75158544954303 33.5103786806339 0.231318945196605 Winsorized Mean ( 4 / 37 ) 6.53658958375172 33.1000215377932 0.197479919349548 Winsorized Mean ( 5 / 37 ) 6.24228355323442 32.9813649490300 0.189266986459819 Winsorized Mean ( 6 / 37 ) 4.78602271844788 32.35050006286 0.147942773964798 Winsorized Mean ( 7 / 37 ) 7.12519260271682 31.1052270321353 0.229067371710731 Winsorized Mean ( 8 / 37 ) 10.8954998687116 29.8905075250253 0.364513712575456 Winsorized Mean ( 9 / 37 ) 10.9152338418270 29.2373615807962 0.373331697925726 Winsorized Mean ( 10 / 37 ) 11.9095738445341 28.7727272958299 0.413918837866308 Winsorized Mean ( 11 / 37 ) 12.7895962888733 28.5508355270254 0.447958739307893 Winsorized Mean ( 12 / 37 ) 12.8367805070359 28.1649034165807 0.455772218252268 Winsorized Mean ( 13 / 37 ) 17.260014455444 26.7791636552425 0.644531497609524 Winsorized Mean ( 14 / 37 ) 15.2640533882353 26.0348009574490 0.586294222613136 Winsorized Mean ( 15 / 37 ) 18.0519115631357 25.5408782167813 0.706785076453436 Winsorized Mean ( 16 / 37 ) 23.7744640788876 24.5534498428013 0.968273877239206 Winsorized Mean ( 17 / 37 ) 24.3577734870691 24.3502374014357 1.00030948715239 Winsorized Mean ( 18 / 37 ) 27.5010998881106 23.7785369486237 1.15655138697263 Winsorized Mean ( 19 / 37 ) 28.0272228794693 23.4282142433558 1.19630214186802 Winsorized Mean ( 20 / 37 ) 29.4839623458391 23.0588531201947 1.27863958333719 Winsorized Mean ( 21 / 37 ) 32.4442529130538 22.5552115213785 1.43843709389744 Winsorized Mean ( 22 / 37 ) 34.3591302753808 20.8910718643007 1.64468010538486 Winsorized Mean ( 23 / 37 ) 37.9644899791082 19.9066990260786 1.90712131274870 Winsorized Mean ( 24 / 37 ) 42.1429634288784 18.8572830438054 2.23483750713083 Winsorized Mean ( 25 / 37 ) 40.6691716574099 18.0592685286408 2.25198332883258 Winsorized Mean ( 26 / 37 ) 35.6355319532643 16.9139162437274 2.10687645840033 Winsorized Mean ( 27 / 37 ) 36.2184982231432 16.4628006940755 2.20002045193787 Winsorized Mean ( 28 / 37 ) 34.7519795633898 16.2902240262819 2.13330274079243 Winsorized Mean ( 29 / 37 ) 34.2450875543081 15.7358539810757 2.17624589014946 Winsorized Mean ( 30 / 37 ) 36.8228135328235 15.1067510189054 2.43750714410673 Winsorized Mean ( 31 / 37 ) 54.9489437809075 11.8308793975408 4.64453587383616 Winsorized Mean ( 32 / 37 ) 59.067545914768 10.8760106856498 5.43099373676636 Winsorized Mean ( 33 / 37 ) 59.720554974251 10.6284781969221 5.61891870762322 Winsorized Mean ( 34 / 37 ) 59.9476412050711 10.3263534596193 5.80530595233772 Winsorized Mean ( 35 / 37 ) 65.7290847400436 9.3210415364722 7.051688857179 Winsorized Mean ( 36 / 37 ) 65.0852061975522 8.86366748616127 7.34292055733915 Winsorized Mean ( 37 / 37 ) 64.9075745309437 8.72356416405306 7.44048800585505 Trimmed Mean ( 1 / 37 ) 4.68300260848391 34.4342404212935 0.135998429214313 Trimmed Mean ( 2 / 37 ) 10.0915297359679 32.4326910113207 0.311153019416287 Trimmed Mean ( 3 / 37 ) 13.0697357630664 31.3379012756991 0.417058425453694 Trimmed Mean ( 4 / 37 ) 14.9801392737496 30.4278804647651 0.49231622593944 Trimmed Mean ( 5 / 37 ) 17.3000254509519 29.5375694494634 0.585695633506711 Trimmed Mean ( 6 / 37 ) 19.7796403007431 28.5617835336891 0.692521189281219 Trimmed Mean ( 7 / 37 ) 19.7796403007431 27.6108188711905 0.71637282447213 Trimmed Mean ( 8 / 37 ) 25.2288118746689 26.8151004126692 0.940843460826613 Trimmed Mean ( 9 / 37 ) 27.3672495529770 26.163571417147 1.04600588033793 Trimmed Mean ( 10 / 37 ) 29.5970099240853 25.5444285545111 1.15864834716995 Trimmed Mean ( 11 / 37 ) 31.8029710531079 24.920195353759 1.27619268635913 Trimmed Mean ( 12 / 37 ) 34.0082841135364 24.2422563268864 1.40285143655621 Trimmed Mean ( 13 / 37 ) 36.3122418589497 23.5258832858088 1.54350174307181 Trimmed Mean ( 14 / 37 ) 36.3122418589497 22.9309038712525 1.58355039394992 Trimmed Mean ( 15 / 37 ) 40.5243226207241 22.3560034056965 1.81268189511897 Trimmed Mean ( 16 / 37 ) 42.6293332767513 21.7666119850785 1.95847352385271 Trimmed Mean ( 17 / 37 ) 44.3281080177926 21.2364591107542 2.08735871581081 Trimmed Mean ( 18 / 37 ) 46.0667018475262 20.6459903077218 2.23126627305917 Trimmed Mean ( 19 / 37 ) 47.6350289536869 20.0423238198206 2.37672185031652 Trimmed Mean ( 20 / 37 ) 49.2484214475625 19.3831935376879 2.54077953417768 Trimmed Mean ( 21 / 37 ) 50.8381714187881 18.659701061468 2.72449013257603 Trimmed Mean ( 22 / 37 ) 52.2892907891765 17.8803992567404 2.92439167819281 Trimmed Mean ( 23 / 37 ) 53.6810724794082 17.2233822708354 3.11675556143854 Trimmed Mean ( 24 / 37 ) 54.8850342858494 16.597723507704 3.30678085222796 Trimmed Mean ( 25 / 37 ) 55.8511339204967 16.0187677592129 3.48660613350706 Trimmed Mean ( 26 / 37 ) 56.9936409111426 15.4452706108513 3.69003835200536 Trimmed Mean ( 27 / 37 ) 58.5933373310647 14.9277337000116 3.92513281041576 Trimmed Mean ( 28 / 37 ) 58.5933373310647 14.3649612523434 4.07890674411016 Trimmed Mean ( 29 / 37 ) 62.174178808506 13.6865617635868 4.54271714711585 Trimmed Mean ( 30 / 37 ) 64.2702769350888 12.9341672977485 4.9690308974337 Trimmed Mean ( 31 / 37 ) 64.2702769350888 12.1101665877291 5.30713400757112 Trimmed Mean ( 32 / 37 ) 67.2108724374515 11.7881373083401 5.7015685073417 Trimmed Mean ( 33 / 37 ) 67.8385871902416 11.5565919000964 5.87012051448107 Trimmed Mean ( 34 / 37 ) 68.4736129661225 11.2952897979474 6.06213866053845 Trimmed Mean ( 35 / 37 ) 69.1525102871245 11.0056153916544 6.28338423851908 Trimmed Mean ( 36 / 37 ) 69.4308987382058 10.8345621580296 6.40827914644894 Trimmed Mean ( 37 / 37 ) 69.7930397832602 10.6856360421681 6.5314820295058 Median 82.8831335649502 Midrange -507.970114166956 Midmean - Weighted Average at Xnp 55.5423489741713 Midmean - Weighted Average at X(n+1)p 58.5933373310647 Midmean - Empirical Distribution Function 58.5933373310647 Midmean - Empirical Distribution Function - Averaging 58.5933373310647 Midmean - Empirical Distribution Function - Interpolation 60.2658000522628 Midmean - Closest Observation 55.5423489741713 Midmean - True Basic - Statistics Graphics Toolkit 58.5933373310647 Midmean - MS Excel (old versions) 58.5933373310647 Number of observations 111

Charts produced by software:

http://www.freestatistics.org/blog/date/2009/Dec/30/t12621831379deplrdextdrsh9/1w4ae1262183092.png (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/30/t12621831379deplrdextdrsh9/1w4ae1262183092.ps (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/30/t12621831379deplrdextdrsh9/2txxv1262183092.png (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/30/t12621831379deplrdextdrsh9/2txxv1262183092.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