aantal bezoekers

*Unverified author*

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

Title produced by software: Central Tendency

Date of computation: Mon, 16 Aug 2010 20:41:34 +0000

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/Aug/16/t12819913286ibeqfqaspq8zdx.htm/, Retrieved Mon, 16 Aug 2010 22:42:08 +0200

BibTeX entries for LaTeX users:

@Manual{KEY, author = {{YOUR NAME}}, publisher = {Office for Research Development and Education}, title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2010/Aug/16/t12819913286ibeqfqaspq8zdx.htm/}, year = {2010}, } @Manual{R, title = {R: A Language and Environment for Statistical Computing}, author = {{R Development Core Team}}, organization = {R Foundation for Statistical Computing}, address = {Vienna, Austria}, year = {2010}, note = {{ISBN} 3-900051-07-0}, url = {http://www.R-project.org}, }

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

Trouillard Olivier

Dataseries X:

» Textbox « » Textfile « » CSV «

80 79 78 76 74 73 74 76 77 77 78 80 90 90 89 82 78 76 74 78 81 82 88 99 117 113 106 100 97 96 100 104 104 111 117 118 140 147 134 126 116 114 120 122 117 119 132 134 154 152 132 130 123 129 124 128 128 129 141 138 155 160 142 133 131 140 134 134 134 136 145 137 152 168 160 157 147 161 159 164 163 158 175 163

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 'RServer@AstonUniversity' @ vre.aston.ac.uk Central Tendency - Ungrouped Data Measure Value S.E. Value/S.E. Arithmetic Mean 118.440476190476 3.22592371550635 36.7152129547135 Geometric Mean 114.593705329835 Harmonic Mean 110.642291239921 Quadratic Mean 122.032343487876 Winsorized Mean ( 1 / 28 ) 118.369047619048 3.20734865839308 36.9055753602889 Winsorized Mean ( 2 / 28 ) 118.27380952381 3.19024578294771 37.073572875168 Winsorized Mean ( 3 / 28 ) 118.238095238095 3.18413752811339 37.1334762378029 Winsorized Mean ( 4 / 28 ) 118.333333333333 3.16850054094202 37.3467928454738 Winsorized Mean ( 5 / 28 ) 118.214285714286 3.1486444655328 37.5445011363905 Winsorized Mean ( 6 / 28 ) 118.142857142857 3.13705587778769 37.6604248522898 Winsorized Mean ( 7 / 28 ) 118.22619047619 3.12368623861151 37.8482925124843 Winsorized Mean ( 8 / 28 ) 118.130952380952 3.10847027081297 38.0029217233135 Winsorized Mean ( 9 / 28 ) 118.130952380952 3.07464879643675 38.4209580352253 Winsorized Mean ( 10 / 28 ) 118.011904761905 3.05620021239984 38.6139312087926 Winsorized Mean ( 11 / 28 ) 117.75 3.01658615412254 39.0341909642063 Winsorized Mean ( 12 / 28 ) 117.607142857143 2.99550331658343 39.2612293920882 Winsorized Mean ( 13 / 28 ) 117.452380952381 2.92624996029911 40.137507918283 Winsorized Mean ( 14 / 28 ) 117.619047619048 2.90003188905176 40.5578462992371 Winsorized Mean ( 15 / 28 ) 116.72619047619 2.77753007528755 42.0251760781047 Winsorized Mean ( 16 / 28 ) 116.916666666667 2.74735612402409 42.5560653183241 Winsorized Mean ( 17 / 28 ) 116.714285714286 2.66291176914266 43.8295729759993 Winsorized Mean ( 18 / 28 ) 116.071428571429 2.58286565349762 44.9390112157978 Winsorized Mean ( 19 / 28 ) 117.202380952381 2.34543903545775 49.9703378261149 Winsorized Mean ( 20 / 28 ) 117.202380952381 2.28095332418231 51.3830685221919 Winsorized Mean ( 21 / 28 ) 117.452380952381 2.24390580062622 52.342830487627 Winsorized Mean ( 22 / 28 ) 116.928571428571 2.18170466823651 53.5950502975666 Winsorized Mean ( 23 / 28 ) 118.297619047619 1.91161409135875 61.8836299556333 Winsorized Mean ( 24 / 28 ) 118.297619047619 1.83817332451058 64.3560742995312 Winsorized Mean ( 25 / 28 ) 118.297619047619 1.68765724172572 70.0957612261677 Winsorized Mean ( 26 / 28 ) 118.607142857143 1.64524540168568 72.0908520611092 Winsorized Mean ( 27 / 28 ) 118.607142857143 1.64524540168568 72.0908520611092 Winsorized Mean ( 28 / 28 ) 119.940476190476 1.46691874337934 81.7635446624463 Trimmed Mean ( 1 / 28 ) 118.30487804878 3.18290606270936 37.1688248782551 Trimmed Mean ( 2 / 28 ) 118.2375 3.15367194811526 37.4920099316806 Trimmed Mean ( 3 / 28 ) 118.217948717949 3.12907196901018 37.7805144428636 Trimmed Mean ( 4 / 28 ) 118.210526315789 3.10191314986236 38.1089091166318 Trimmed Mean ( 5 / 28 ) 118.175675675676 3.07432056096209 38.4396074945071 Trimmed Mean ( 6 / 28 ) 118.166666666667 3.04645821705002 38.7882118340986 Trimmed Mean ( 7 / 28 ) 118.171428571429 3.01534868857553 39.189971302209 Trimmed Mean ( 8 / 28 ) 118.161764705882 2.98044624689068 39.6456620645829 Trimmed Mean ( 9 / 28 ) 118.166666666667 2.94111465267089 40.1775111212877 Trimmed Mean ( 10 / 28 ) 118.171875 2.89999954566054 40.748928797878 Trimmed Mean ( 11 / 28 ) 118.193548387097 2.85317034550225 41.4253388597767 Trimmed Mean ( 12 / 28 ) 118.25 2.80320891586566 42.183798478496 Trimmed Mean ( 13 / 28 ) 118.327586206897 2.74543981261494 43.0996832140325 Trimmed Mean ( 14 / 28 ) 118.428571428571 2.68701267316539 44.0744372407663 Trimmed Mean ( 15 / 28 ) 118.518518518519 2.61917094184402 45.2503945523601 Trimmed Mean ( 16 / 28 ) 118.711538461538 2.55679624580848 46.4298000500235 Trimmed Mean ( 17 / 28 ) 118.9 2.48361980724482 47.8736719900381 Trimmed Mean ( 18 / 28 ) 119.125 2.40670329386089 49.4971691374955 Trimmed Mean ( 19 / 28 ) 119.434782608696 2.32205393295436 51.4349735437617 Trimmed Mean ( 20 / 28 ) 119.659090909091 2.26494173879728 52.83097964923 Trimmed Mean ( 21 / 28 ) 119.904761904762 2.20199717282743 54.4527319945651 Trimmed Mean ( 22 / 28 ) 120.15 2.12571255021789 56.52222356578 Trimmed Mean ( 23 / 28 ) 120.473684210526 2.03411055495863 59.2267140627351 Trimmed Mean ( 24 / 28 ) 120.694444444444 1.98078846111582 60.9325260186817 Trimmed Mean ( 25 / 28 ) 120.941176470588 1.92225968875157 62.9161487276128 Trimmed Mean ( 26 / 28 ) 121.21875 1.87606656493004 64.6132457483035 Trimmed Mean ( 27 / 28 ) 121.5 1.81801331507586 66.831193695042 Trimmed Mean ( 28 / 28 ) 121.821428571429 1.726737734816 70.5500471294269 Median 122.5 Midrange 124 Midmean - Weighted Average at Xnp 119.659090909091 Midmean - Weighted Average at X(n+1)p 120.372093023256 Midmean - Empirical Distribution Function 119.659090909091 Midmean - Empirical Distribution Function - Averaging 120.372093023256 Midmean - Empirical Distribution Function - Interpolation 120.372093023256 Midmean - Closest Observation 119.659090909091 Midmean - True Basic - Statistics Graphics Toolkit 120.372093023256 Midmean - MS Excel (old versions) 119.659090909091 Number of observations 84

Charts produced by software:

http://www.freestatistics.org/blog/date/2010/Aug/16/t12819913286ibeqfqaspq8zdx/1kvib1281991289.png (open in new window) http://www.freestatistics.org/blog/date/2010/Aug/16/t12819913286ibeqfqaspq8zdx/1kvib1281991289.ps (open in new window) http://www.freestatistics.org/blog/date/2010/Aug/16/t12819913286ibeqfqaspq8zdx/26ekr1281991290.png (open in new window) http://www.freestatistics.org/blog/date/2010/Aug/16/t12819913286ibeqfqaspq8zdx/26ekr1281991290.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