Home » date » 2010 » Dec » 24 »

paper

*The author of this computation has been verified*
R Software Module: /rwasp_multipleregression.wasp (opens new window with default values)
Title produced by software: Multiple Regression
Date of computation: Fri, 24 Dec 2010 10:19:14 +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/Dec/24/t1293185880kucvcih4i9xe346.htm/, Retrieved Fri, 24 Dec 2010 11:18:03 +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/2010/Dec/24/t1293185880kucvcih4i9xe346.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:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
25 0 29 0 28 0 25 0 26 0 24 0 28 0 28 0 28 0 28 0 32 0 31 0 22 0 29 0 31 0 29 0 32 0 32 0 31 0 29 0 28 0 28 0 29 0 22 0 26 0 24 0 27 0 27 0 23 0 21 0 19 0 17 0 19 1 21 1 13 1 8 1 5 1 10 1 6 1 6 1 8 1 11 1 12 1 13 1 19 1 19 1 18 1 20 1 15 1 15 1 15 1 17 1 22 1 17 1 21 1 23 1 26 1 26 1 28 1 30 1
 
Output produced by software:

Enter (or paste) a matrix (table) containing all data (time) series. Every column represents a different variable and must be delimited by a space or Tab. Every row represents a period in time (or category) and must be delimited by hard returns. The easiest way to enter data is to copy and paste a block of spreadsheet cells. Please, do not use commas or spaces to seperate groups of digits!


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk


Multiple Linear Regression - Estimated Regression Equation
Y[t] = + 26.8125 -10.2767857142857X[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)26.81250.95869427.967700
X-10.27678571428571.403385-7.322900


Multiple Linear Regression - Regression Statistics
Multiple R0.693108686292623
R-squared0.480399651014285
Adjusted R-squared0.471441024307635
F-TEST (value)53.6242514332772
F-TEST (DF numerator)1
F-TEST (DF denominator)58
p-value8.403331364093e-10
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation5.42319298637691
Sum Squared Residuals1705.83928571429


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
12526.8125-1.81250000000003
22926.81252.18750000000001
32826.81251.1875
42526.8125-1.8125
52626.8125-0.812499999999999
62426.8125-2.8125
72826.81251.1875
82826.81251.1875
92826.81251.1875
102826.81251.1875
113226.81255.1875
123126.81254.1875
132226.8125-4.8125
142926.81252.1875
153126.81254.1875
162926.81252.1875
173226.81255.1875
183226.81255.1875
193126.81254.1875
202926.81252.1875
212826.81251.1875
222826.81251.1875
232926.81252.1875
242226.8125-4.8125
252626.8125-0.812499999999999
262426.8125-2.8125
272726.81250.187500000000001
282726.81250.187500000000001
292326.8125-3.8125
302126.8125-5.8125
311926.8125-7.8125
321726.8125-9.8125
331916.53571428571432.46428571428571
342116.53571428571434.46428571428571
351316.5357142857143-3.53571428571429
36816.5357142857143-8.53571428571429
37516.5357142857143-11.5357142857143
381016.5357142857143-6.53571428571429
39616.5357142857143-10.5357142857143
40616.5357142857143-10.5357142857143
41816.5357142857143-8.53571428571429
421116.5357142857143-5.53571428571429
431216.5357142857143-4.53571428571429
441316.5357142857143-3.53571428571429
451916.53571428571432.46428571428571
461916.53571428571432.46428571428571
471816.53571428571431.46428571428571
482016.53571428571433.46428571428571
491516.5357142857143-1.53571428571429
501516.5357142857143-1.53571428571429
511516.5357142857143-1.53571428571429
521716.53571428571430.464285714285714
532216.53571428571435.46428571428571
541716.53571428571430.464285714285714
552116.53571428571434.46428571428571
562316.53571428571436.46428571428571
572616.53571428571439.46428571428571
582616.53571428571439.46428571428571
592816.535714285714311.4642857142857
603016.535714285714313.4642857142857


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
50.0630054158960320.1260108317920640.936994584103968
60.0357609149011830.07152182980236610.964239085098817
70.01557576205292610.03115152410585220.984424237947074
80.006242080198896120.01248416039779220.993757919801104
90.002326237290687130.004652474581374260.997673762709313
100.0008120556233074340.001624111246614870.999187944376693
110.00301517037552940.006030340751058810.99698482962447
120.002843787745568890.005687575491137780.997156212254431
130.006401020340556520.0128020406811130.993598979659443
140.003305333219049370.006610666438098740.99669466678095
150.002807885170483320.005615770340966650.997192114829517
160.001376414682375270.002752829364750530.998623585317625
170.001578476304143470.003156952608286940.998421523695857
180.001653131922879550.003306263845759090.99834686807712
190.001214272851014390.002428545702028770.998785727148986
200.000613822975757240.001227645951514480.999386177024243
210.0002912188276021330.0005824376552042670.999708781172398
220.0001368641098476510.0002737282196953020.999863135890152
236.99821977393661e-050.0001399643954787320.99993001780226
240.0001821607524446970.0003643215048893940.999817839247555
250.0001006758837562730.0002013517675125450.999899324116244
268.40566353535033e-050.0001681132707070070.999915943364647
274.39044309983566e-058.78088619967132e-050.999956095569002
282.49016488668296e-054.98032977336593e-050.999975098351133
292.922088835233e-055.844177670466e-050.999970779111648
306.42600279423556e-050.0001285200558847110.999935739972058
310.0002301555065370210.0004603110130740420.999769844493463
320.001034444802577620.002068889605155240.998965555197422
330.0005518665668939750.001103733133787950.999448133433106
340.0003332368904206680.0006664737808413370.99966676310958
350.0003405027899099680.0006810055798199360.99965949721009
360.00101469964792110.00202939929584220.998985300352079
370.005148980033266870.01029796006653370.994851019966733
380.004958293775701530.009916587551403060.995041706224298
390.01367171199713050.02734342399426110.98632828800287
400.04033334043536330.08066668087072660.959666659564637
410.0818963833654690.1637927667309380.918103616634531
420.1101488543975260.2202977087950530.889851145602474
430.1448988218104870.2897976436209740.855101178189513
440.1861437199723730.3722874399447470.813856280027627
450.1830362555147080.3660725110294160.816963744485292
460.168882913225150.33776582645030.83111708677485
470.1492737746824690.2985475493649390.85072622531753
480.1279708837662550.2559417675325090.872029116233745
490.142608496437230.2852169928744610.85739150356277
500.1822753561537140.3645507123074280.817724643846286
510.2839960074142850.5679920148285690.716003992585715
520.3802914068932060.7605828137864120.619708593106794
530.3259230990084890.6518461980169790.67407690099151
540.6072332279820290.7855335440359420.392766772017971
550.7166467660374040.5667064679251920.283353233962596


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level280.549019607843137NOK
5% type I error level330.647058823529412NOK
10% type I error level350.686274509803922NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/1082h21293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/1082h21293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/1jkkq1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/1jkkq1293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/2jkkq1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/2jkkq1293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/3cbjb1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/3cbjb1293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/4cbjb1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/4cbjb1293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/5cbjb1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/5cbjb1293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/6nkje1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/6nkje1293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/7xt0z1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/7xt0z1293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/8xt0z1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/8xt0z1293185944.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/9xt0z1293185944.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/24/t1293185880kucvcih4i9xe346/9xt0z1293185944.ps (open in new window)


 
Parameters (Session):
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
 
Parameters (R input):
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
 
R code (references can be found in the software module):
library(lattice)
library(lmtest)
n25 <- 25 #minimum number of obs. for Goldfeld-Quandt test
par1 <- as.numeric(par1)
x <- t(y)
k <- length(x[1,])
n <- length(x[,1])
x1 <- cbind(x[,par1], x[,1:k!=par1])
mycolnames <- c(colnames(x)[par1], colnames(x)[1:k!=par1])
colnames(x1) <- mycolnames #colnames(x)[par1]
x <- x1
if (par3 == 'First Differences'){
x2 <- array(0, dim=c(n-1,k), dimnames=list(1:(n-1), paste('(1-B)',colnames(x),sep='')))
for (i in 1:n-1) {
for (j in 1:k) {
x2[i,j] <- x[i+1,j] - x[i,j]
}
}
x <- x2
}
if (par2 == 'Include Monthly Dummies'){
x2 <- array(0, dim=c(n,11), dimnames=list(1:n, paste('M', seq(1:11), sep ='')))
for (i in 1:11){
x2[seq(i,n,12),i] <- 1
}
x <- cbind(x, x2)
}
if (par2 == 'Include Quarterly Dummies'){
x2 <- array(0, dim=c(n,3), dimnames=list(1:n, paste('Q', seq(1:3), sep ='')))
for (i in 1:3){
x2[seq(i,n,4),i] <- 1
}
x <- cbind(x, x2)
}
k <- length(x[1,])
if (par3 == 'Linear Trend'){
x <- cbind(x, c(1:n))
colnames(x)[k+1] <- 't'
}
x
k <- length(x[1,])
df <- as.data.frame(x)
(mylm <- lm(df))
(mysum <- summary(mylm))
if (n > n25) {
kp3 <- k + 3
nmkm3 <- n - k - 3
gqarr <- array(NA, dim=c(nmkm3-kp3+1,3))
numgqtests <- 0
numsignificant1 <- 0
numsignificant5 <- 0
numsignificant10 <- 0
for (mypoint in kp3:nmkm3) {
j <- 0
numgqtests <- numgqtests + 1
for (myalt in c('greater', 'two.sided', 'less')) {
j <- j + 1
gqarr[mypoint-kp3+1,j] <- gqtest(mylm, point=mypoint, alternative=myalt)$p.value
}
if (gqarr[mypoint-kp3+1,2] < 0.01) numsignificant1 <- numsignificant1 + 1
if (gqarr[mypoint-kp3+1,2] < 0.05) numsignificant5 <- numsignificant5 + 1
if (gqarr[mypoint-kp3+1,2] < 0.10) numsignificant10 <- numsignificant10 + 1
}
gqarr
}
bitmap(file='test0.png')
plot(x[,1], type='l', main='Actuals and Interpolation', ylab='value of Actuals and Interpolation (dots)', xlab='time or index')
points(x[,1]-mysum$resid)
grid()
dev.off()
bitmap(file='test1.png')
plot(mysum$resid, type='b', pch=19, main='Residuals', ylab='value of Residuals', xlab='time or index')
grid()
dev.off()
bitmap(file='test2.png')
hist(mysum$resid, main='Residual Histogram', xlab='values of Residuals')
grid()
dev.off()
bitmap(file='test3.png')
densityplot(~mysum$resid,col='black',main='Residual Density Plot', xlab='values of Residuals')
dev.off()
bitmap(file='test4.png')
qqnorm(mysum$resid, main='Residual Normal Q-Q Plot')
qqline(mysum$resid)
grid()
dev.off()
(myerror <- as.ts(mysum$resid))
bitmap(file='test5.png')
dum <- cbind(lag(myerror,k=1),myerror)
dum
dum1 <- dum[2:length(myerror),]
dum1
z <- as.data.frame(dum1)
z
plot(z,main=paste('Residual Lag plot, lowess, and regression line'), ylab='values of Residuals', xlab='lagged values of Residuals')
lines(lowess(z))
abline(lm(z))
grid()
dev.off()
bitmap(file='test6.png')
acf(mysum$resid, lag.max=length(mysum$resid)/2, main='Residual Autocorrelation Function')
grid()
dev.off()
bitmap(file='test7.png')
pacf(mysum$resid, lag.max=length(mysum$resid)/2, main='Residual Partial Autocorrelation Function')
grid()
dev.off()
bitmap(file='test8.png')
opar <- par(mfrow = c(2,2), oma = c(0, 0, 1.1, 0))
plot(mylm, las = 1, sub='Residual Diagnostics')
par(opar)
dev.off()
if (n > n25) {
bitmap(file='test9.png')
plot(kp3:nmkm3,gqarr[,2], main='Goldfeld-Quandt test',ylab='2-sided p-value',xlab='breakpoint')
grid()
dev.off()
}
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a, 'Multiple Linear Regression - Estimated Regression Equation', 1, TRUE)
a<-table.row.end(a)
myeq <- colnames(x)[1]
myeq <- paste(myeq, '[t] = ', sep='')
for (i in 1:k){
if (mysum$coefficients[i,1] > 0) myeq <- paste(myeq, '+', '')
myeq <- paste(myeq, mysum$coefficients[i,1], sep=' ')
if (rownames(mysum$coefficients)[i] != '(Intercept)') {
myeq <- paste(myeq, rownames(mysum$coefficients)[i], sep='')
if (rownames(mysum$coefficients)[i] != 't') myeq <- paste(myeq, '[t]', sep='')
}
}
myeq <- paste(myeq, ' + e[t]')
a<-table.row.start(a)
a<-table.element(a, myeq)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('http://www.xycoon.com/ols1.htm','Multiple Linear Regression - Ordinary Least Squares',''), 6, TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',header=TRUE)
a<-table.element(a,'Parameter',header=TRUE)
a<-table.element(a,'S.D.',header=TRUE)
a<-table.element(a,'T-STAT<br />H0: parameter = 0',header=TRUE)
a<-table.element(a,'2-tail p-value',header=TRUE)
a<-table.element(a,'1-tail p-value',header=TRUE)
a<-table.row.end(a)
for (i in 1:k){
a<-table.row.start(a)
a<-table.element(a,rownames(mysum$coefficients)[i],header=TRUE)
a<-table.element(a,mysum$coefficients[i,1])
a<-table.element(a, round(mysum$coefficients[i,2],6))
a<-table.element(a, round(mysum$coefficients[i,3],4))
a<-table.element(a, round(mysum$coefficients[i,4],6))
a<-table.element(a, round(mysum$coefficients[i,4]/2,6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a, 'Multiple Linear Regression - Regression Statistics', 2, TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Multiple R',1,TRUE)
a<-table.element(a, sqrt(mysum$r.squared))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'R-squared',1,TRUE)
a<-table.element(a, mysum$r.squared)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Adjusted R-squared',1,TRUE)
a<-table.element(a, mysum$adj.r.squared)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'F-TEST (value)',1,TRUE)
a<-table.element(a, mysum$fstatistic[1])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'F-TEST (DF numerator)',1,TRUE)
a<-table.element(a, mysum$fstatistic[2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'F-TEST (DF denominator)',1,TRUE)
a<-table.element(a, mysum$fstatistic[3])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'p-value',1,TRUE)
a<-table.element(a, 1-pf(mysum$fstatistic[1],mysum$fstatistic[2],mysum$fstatistic[3]))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Multiple Linear Regression - Residual Statistics', 2, TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Residual Standard Deviation',1,TRUE)
a<-table.element(a, mysum$sigma)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Sum Squared Residuals',1,TRUE)
a<-table.element(a, sum(myerror*myerror))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable3.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a, 'Multiple Linear Regression - Actuals, Interpolation, and Residuals', 4, TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a, 'Time or Index', 1, TRUE)
a<-table.element(a, 'Actuals', 1, TRUE)
a<-table.element(a, 'Interpolation<br />Forecast', 1, TRUE)
a<-table.element(a, 'Residuals<br />Prediction Error', 1, TRUE)
a<-table.row.end(a)
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,i, 1, TRUE)
a<-table.element(a,x[i])
a<-table.element(a,x[i]-mysum$resid[i])
a<-table.element(a,mysum$resid[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable4.tab')
if (n > n25) {
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Goldfeld-Quandt test for Heteroskedasticity',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-values',header=TRUE)
a<-table.element(a,'Alternative Hypothesis',3,header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'breakpoint index',header=TRUE)
a<-table.element(a,'greater',header=TRUE)
a<-table.element(a,'2-sided',header=TRUE)
a<-table.element(a,'less',header=TRUE)
a<-table.row.end(a)
for (mypoint in kp3:nmkm3) {
a<-table.row.start(a)
a<-table.element(a,mypoint,header=TRUE)
a<-table.element(a,gqarr[mypoint-kp3+1,1])
a<-table.element(a,gqarr[mypoint-kp3+1,2])
a<-table.element(a,gqarr[mypoint-kp3+1,3])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable5.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Description',header=TRUE)
a<-table.element(a,'# significant tests',header=TRUE)
a<-table.element(a,'% significant tests',header=TRUE)
a<-table.element(a,'OK/NOK',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'1% type I error level',header=TRUE)
a<-table.element(a,numsignificant1)
a<-table.element(a,numsignificant1/numgqtests)
if (numsignificant1/numgqtests < 0.01) dum <- 'OK' else dum <- 'NOK'
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'5% type I error level',header=TRUE)
a<-table.element(a,numsignificant5)
a<-table.element(a,numsignificant5/numgqtests)
if (numsignificant5/numgqtests < 0.05) dum <- 'OK' else dum <- 'NOK'
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'10% type I error level',header=TRUE)
a<-table.element(a,numsignificant10)
a<-table.element(a,numsignificant10/numgqtests)
if (numsignificant10/numgqtests < 0.1) dum <- 'OK' else dum <- 'NOK'
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable6.tab')
}
 





Copyright

Creative Commons License

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