Home » date » 2010 » Nov » 28 »

monthly dummy

*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: Sun, 28 Nov 2010 15:26:32 +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/Nov/28/t1290958001cekcrwaotyzw7lt.htm/, Retrieved Sun, 28 Nov 2010 16:26:41 +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/Nov/28/t1290958001cekcrwaotyzw7lt.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 «
62.027 56.493 65.566 62.653 53.470 59.600 42.542 42.018 44.038 44.988 43.309 26.843 69.770 64.886 79.354 63.025 54.003 55.926 45.629 40.361 43.039 44.570 43.269 25.563 68.707 60.223 74.283 61.232 61.531 65.305 51.699 44.599 35.221 55.066 45.335 28.702 69.517 69.240 71.525 77.740 62.107 65.450 51.493 43.067 49.172 54.483 38.158 27.898 58.648 56.000 62.381 59.849 48.345 55.376 45.400 38.389 44.098 48.290 41.267 31.238
 
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 time4 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24


Multiple Linear Regression - Estimated Regression Equation
Yt[t] = + 28.0488 + 37.685M1[t] + 33.3196M2[t] + 42.573M3[t] + 36.851M4[t] + 27.8424M5[t] + 32.2826M6[t] + 19.3038M7[t] + 13.638M8[t] + 15.0648M9[t] + 21.4306M10[t] + 14.2188M11[t] + e[t]


Multiple Linear Regression - Ordinary Least Squares
VariableParameterS.D.T-STAT
H0: parameter = 0
2-tail p-value1-tail p-value
(Intercept)28.04882.23579912.545300
M137.6853.16189711.918500
M233.31963.16189710.537900
M342.5733.16189713.464400
M436.8513.16189711.654700
M527.84243.1618978.805600
M632.28263.16189710.209900
M719.30383.1618976.105100
M813.6383.1618974.31328e-054e-05
M915.06483.1618974.76451.8e-059e-06
M1021.43063.1618976.777800
M1114.21883.1618974.49694.4e-052.2e-05


Multiple Linear Regression - Regression Statistics
Multiple R0.937837518790557
R-squared0.879539211651228
Adjusted R-squared0.851933614321301
F-TEST (value)31.8609012925698
F-TEST (DF numerator)11
F-TEST (DF denominator)48
p-value0
Multiple Linear Regression - Residual Statistics
Residual Standard Deviation4.99939819294949
Sum Squared Residuals1199.71115


Multiple Linear Regression - Actuals, Interpolation, and Residuals
Time or IndexActualsInterpolation
Forecast
Residuals
Prediction Error
162.02765.7338-3.70680000000002
256.49361.3684-4.8754
365.56670.6218-5.0558
462.65364.8998-2.24679999999999
553.4755.8912-2.42120000000001
659.660.3314-0.731400000000003
742.54247.3526-4.8106
842.01841.68680.331199999999996
944.03843.11360.924400000000001
1044.98849.4794-4.4914
1143.30942.26761.04140000000000
1226.84328.0488-1.2058
1369.7765.73384.03620000000001
1464.88661.36843.5176
1579.35470.62188.7322
1663.02564.8998-1.8748
1754.00355.8912-1.88819999999999
1855.92660.3314-4.4054
1945.62947.3526-1.7236
2040.36141.6868-1.3258
2143.03943.1136-0.0745999999999968
2244.5749.4794-4.9094
2343.26942.26761.00140000000000
2425.56328.0488-2.4858
2568.70765.73382.9732
2660.22361.3684-1.14540000000000
2774.28370.62183.6612
2861.23264.8998-3.6678
2961.53155.89125.6398
3065.30560.33144.9736
3151.69947.35264.3464
3244.59941.68682.9122
3335.22143.1136-7.8926
3455.06649.47945.5866
3545.33542.26763.0674
3628.70228.04880.6532
3769.51765.73383.78320000000000
3869.2461.36847.8716
3971.52570.62180.903200000000004
4077.7464.899812.8402
4162.10755.89126.2158
4265.4560.33145.1186
4351.49347.35264.1404
4443.06741.68681.38020000000000
4549.17243.11366.0584
4654.48349.47945.0036
4738.15842.2676-4.1096
4827.89828.0488-0.150800000000001
4958.64865.7338-7.08579999999999
505661.3684-5.3684
5162.38170.6218-8.2408
5259.84964.8998-5.0508
5348.34555.8912-7.5462
5455.37660.3314-4.9554
5545.447.3526-1.9526
5638.38941.6868-3.29779999999999
5744.09843.11360.9844
5848.2949.4794-1.1894
5941.26742.2676-1.00060000000000
6031.23828.04883.1892


Goldfeld-Quandt test for Heteroskedasticity
p-valuesAlternative Hypothesis
breakpoint indexgreater2-sidedless
150.8423480997234160.3153038005531680.157651900276584
160.728996852639790.542006294720420.27100314736021
170.5994595849894210.8010808300211580.400540415010579
180.5050452783581720.9899094432836550.494954721641827
190.4011075521058170.8022151042116340.598892447894183
200.2926216120897080.5852432241794160.707378387910292
210.2000885487760590.4001770975521180.799911451223941
220.1495300816004640.2990601632009280.850469918399536
230.09403458549521360.1880691709904270.905965414504786
240.05907494622760240.1181498924552050.940925053772398
250.04005315529209410.08010631058418810.959946844707906
260.02248856246661260.04497712493322530.977511437533387
270.01530564517302920.03061129034605850.98469435482697
280.01047133378232530.02094266756465060.989528666217675
290.01717449497433130.03434898994866250.982825505025669
300.02197138652365030.04394277304730060.97802861347635
310.02471195755313470.04942391510626930.975288042446865
320.01667961619718560.03335923239437130.983320383802814
330.03540541867189770.07081083734379540.964594581328102
340.05032130593079230.1006426118615850.949678694069208
350.03620399379574290.07240798759148580.963796006204257
360.02163753378948080.04327506757896150.97836246621052
370.02189720186717640.04379440373435280.978102798132824
380.05159600540870190.1031920108174040.948403994591298
390.04730144366419910.09460288732839810.9526985563358
400.3762392380513230.7524784761026460.623760761948677
410.6513008481472850.6973983037054310.348699151852715
420.8036058591047180.3927882817905630.196394140895282
430.811006518342710.377986963314580.18899348165729
440.7644977242612260.4710045514775490.235502275738775
450.7460338252595990.5079323494808020.253966174740401


Meta Analysis of Goldfeld-Quandt test for Heteroskedasticity
Description# significant tests% significant testsOK/NOK
1% type I error level00OK
5% type I error level90.290322580645161NOK
10% type I error level130.419354838709677NOK
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/10s85z1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/10s85z1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/1lpqn1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/1lpqn1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/2lpqn1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/2lpqn1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/3vy7q1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/3vy7q1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/4vy7q1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/4vy7q1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/5vy7q1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/5vy7q1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/6o77t1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/6o77t1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/7o77t1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/7o77t1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/8zy6w1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/8zy6w1290957983.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/9zy6w1290957983.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Nov/28/t1290958001cekcrwaotyzw7lt/9zy6w1290957983.ps (open in new window)


 
Parameters (Session):
par1 = 1 ; par2 = 0 ; par3 = 0 ; par4 = 12 ;
 
Parameters (R input):
par1 = 1 ; par2 = Include Monthly Dummies ; par3 = No Linear Trend ; par4 = 12 ;
 
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