Opdracht 5_Oefening 2_Stap 1_Evelien Verbist

*Unverified author*

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

Title produced by software: Central Tendency

Date of computation: Thu, 06 Nov 2008 01:12:57 -0700

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/Nov/06/t12259596870kik9ot0yc9hdna.htm/, Retrieved Thu, 06 Nov 2008 08:21:30 +0000

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/2008/Nov/06/t12259596870kik9ot0yc9hdna.htm/}, year = {2008}, } @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 = {2008}, note = {{ISBN} 3-900051-07-0}, url = {http://www.R-project.org}, }

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

Feedback Forum:

Post a new message

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

0,60773 0,58933 0,60039 0,61342 0,6348 0,634 0,62915 0,62168 0,61328 0,6089 0,60857 0,62672 0,62291 0,62393 0,61838 0,62012 0,61659 0,6116 0,61573 0,61407 0,62823 0,64405 0,6387 0,63633 0,63059 0,62994 0,63709 0,64217 0,65711 0,66977 0,68255 0,68902 0,71322 0,70224 0,70045 0,69919 0,69693 0,69763 0,69278 0,70196 0,69215 0,6769 0,67124 0,66532 0,67157 0,66428 0,66576 0,66942 0,6813 0,69144 0,69862 0,695 0,69867 0,68968 0,69233 0,68293 0,68399 0,66895 0,68756 0,68527 0,6776 0,68137 0,67933 0,67922 0,68598 0,68297 0,68935 0,69463 0,6833 0,68666 0,68782 0,67669 0,67511 0,67254 0,67397 0,67286 0,66341 0,668 0,68021 0,67934 0,68136 0,67562 0,6744 0,67766 0,68887 0,69614 0,70896 0,72064

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 0.664405 0.00339198622239468 195.874911169581 Geometric Mean 0.663636196856416 Harmonic Mean 0.66285219961981 Quadratic Mean 0.665157867473101 Winsorized Mean ( 1 / 29 ) 0.664446363636364 0.00334705946827428 198.516450016631 Winsorized Mean ( 2 / 29 ) 0.664516363636364 0.00329656792167566 201.578241196556 Winsorized Mean ( 3 / 29 ) 0.664315909090909 0.00325782543792973 203.913905685833 Winsorized Mean ( 4 / 29 ) 0.664318181818182 0.00325318394615165 204.205539193084 Winsorized Mean ( 5 / 29 ) 0.664385795454546 0.00321243236523214 206.817053222702 Winsorized Mean ( 6 / 29 ) 0.664414431818182 0.00318008605728092 208.929701854131 Winsorized Mean ( 7 / 29 ) 0.664384204545455 0.00317286045421187 209.395973801340 Winsorized Mean ( 8 / 29 ) 0.66443875 0.00316143011240221 210.170311022668 Winsorized Mean ( 9 / 29 ) 0.664507272727273 0.00311814654010039 213.109699682645 Winsorized Mean ( 10 / 29 ) 0.664525454545455 0.00309100107429669 214.987131538496 Winsorized Mean ( 11 / 29 ) 0.664650454545454 0.0030396515815858 218.660078862954 Winsorized Mean ( 12 / 29 ) 0.664732272727273 0.00298014593069116 223.053598107898 Winsorized Mean ( 13 / 29 ) 0.664908068181818 0.0029344334740161 226.588223610951 Winsorized Mean ( 14 / 29 ) 0.664809431818182 0.00286779667935071 231.818886117373 Winsorized Mean ( 15 / 29 ) 0.664906590909091 0.00283015846101977 234.93617055969 Winsorized Mean ( 16 / 29 ) 0.665381136363636 0.00274318532686151 242.557850484313 Winsorized Mean ( 17 / 29 ) 0.665535681818182 0.00268091648264621 248.249315533046 Winsorized Mean ( 18 / 29 ) 0.665363863636364 0.002611605050782 254.772008285530 Winsorized Mean ( 19 / 29 ) 0.665463181818182 0.00257688960679285 258.242797853651 Winsorized Mean ( 20 / 29 ) 0.665535909090909 0.00254555799536015 261.449910119509 Winsorized Mean ( 21 / 29 ) 0.666313863636364 0.00241491445376705 275.916135495803 Winsorized Mean ( 22 / 29 ) 0.666251363636364 0.00235628733382095 282.754719287980 Winsorized Mean ( 23 / 29 ) 0.666583295454545 0.00228806455608004 291.330632994268 Winsorized Mean ( 24 / 29 ) 0.666545113636364 0.00223093142331304 298.774362434912 Winsorized Mean ( 25 / 29 ) 0.666809318181818 0.00214177212777671 311.335323461328 Winsorized Mean ( 26 / 29 ) 0.667624772727273 0.00196652152850695 339.495277854474 Winsorized Mean ( 27 / 29 ) 0.667808863636364 0.00184071183892983 362.799244027582 Winsorized Mean ( 28 / 29 ) 0.671744772727273 0.00121835928458060 551.351954410157 Winsorized Mean ( 29 / 29 ) 0.673712159090909 0.000929137846695836 725.093872224383 Trimmed Mean ( 1 / 29 ) 0.664624069767442 0.00329331889852541 201.809812607285 Trimmed Mean ( 2 / 29 ) 0.664810238095238 0.0032312258036824 205.745521510010 Trimmed Mean ( 3 / 29 ) 0.664967926829268 0.00318986662318456 208.462611570075 Trimmed Mean ( 4 / 29 ) 0.665207 0.00315750808752485 210.674678119812 Trimmed Mean ( 5 / 29 ) 0.665457692307692 0.0031204943538522 213.253932501495 Trimmed Mean ( 6 / 29 ) 0.665705921052632 0.00308799427993307 215.578741637779 Trimmed Mean ( 7 / 29 ) 0.665961891891892 0.00305687873733933 217.856823614644 Trimmed Mean ( 8 / 29 ) 0.666237361111111 0.00302063507682307 220.562015657919 Trimmed Mean ( 9 / 29 ) 0.66652 0.0029791349988906 223.729371192714 Trimmed Mean ( 10 / 29 ) 0.666809411764706 0.00293753684812301 226.996101237258 Trimmed Mean ( 11 / 29 ) 0.667113939393939 0.00289195183263389 230.679478083269 Trimmed Mean ( 12 / 29 ) 0.667421875 0.0028458819443924 234.521982303274 Trimmed Mean ( 13 / 29 ) 0.66774 0.00280000805506131 238.477885373575 Trimmed Mean ( 14 / 29 ) 0.6680595 0.00275149317885341 242.798893754987 Trimmed Mean ( 15 / 29 ) 0.6680595 0.00270239715837046 247.209962433071 Trimmed Mean ( 16 / 29 ) 0.668778928571429 0.00264730292398430 252.626521321893 Trimmed Mean ( 17 / 29 ) 0.669125 0.00259438648093125 257.912614376490 Trimmed Mean ( 18 / 29 ) 0.669482307692308 0.00253829408241487 263.752853670674 Trimmed Mean ( 19 / 29 ) 0.669885 0.00247797799812340 270.335330058342 Trimmed Mean ( 20 / 29 ) 0.670311666666667 0.00240609923002526 278.588537954700 Trimmed Mean ( 21 / 29 ) 0.67076847826087 0.00231809512768652 289.361929219144 Trimmed Mean ( 22 / 29 ) 0.671192727272727 0.00223320299092874 300.551597861506 Trimmed Mean ( 23 / 29 ) 0.671663333333333 0.00213177600859761 315.072188928136 Trimmed Mean ( 24 / 29 ) 0.67214925 0.00201198053934553 334.073435033642 Trimmed Mean ( 25 / 29 ) 0.67269 0.00185999242874612 361.662762494943 Trimmed Mean ( 26 / 29 ) 0.673265 0.00167149569462289 402.791943865519 Trimmed Mean ( 27 / 29 ) 0.673826470588235 0.00146211021786645 460.858875312083 Trimmed Mean ( 28 / 29 ) 0.674439375 0.00118654137346642 568.407802780327 Trimmed Mean ( 29 / 29 ) 0.674721666666667 0.00108034095121921 624.545117821569 Median 0.675365 Midrange 0.654985 Midmean - Weighted Average at Xnp 0.670366222222222 Midmean - Weighted Average at X(n+1)p 0.671192727272727 Midmean - Empirical Distribution Function 0.670366222222222 Midmean - Empirical Distribution Function - Averaging 0.671192727272727 Midmean - Empirical Distribution Function - Interpolation 0.671192727272727 Midmean - Closest Observation 0.670366222222222 Midmean - True Basic - Statistics Graphics Toolkit 0.671192727272727 Midmean - MS Excel (old versions) 0.67076847826087 Number of observations 88

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/06/t12259596870kik9ot0yc9hdna/1rg9a1225959175.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/06/t12259596870kik9ot0yc9hdna/1rg9a1225959175.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/06/t12259596870kik9ot0yc9hdna/244up1225959175.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/06/t12259596870kik9ot0yc9hdna/244up1225959175.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