Blog & Share Statistical Computations at FreeStatistics.org

Home » date » 2010 » Mar » 17 »

*Unverified author*

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

Title produced by software: Central Tendency

Date of computation: Wed, 17 Mar 2010 13:02:24 -0600

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/Mar/17/t12688525848f48ihxahkrrned.htm/, Retrieved Wed, 17 Mar 2010 20:03:06 +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/Mar/17/t12688525848f48ihxahkrrned.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:

KDGP1W52

Dataseries X:

» Textbox « » Textfile « » CSV «

2953 2635 2404 2413 2136 1565 1451 2037 2477 2785 2994 2681 3098 2708 2517 2445 2087 1801 1216 2173 2286 3121 3458 3511 3524 2767 2744 2603 2527 1846 1066 2327 3066 3048 3806 4042 3583 3438 2957 2885 2744 1837 1447 2504 3248 3098 4318 3561 3316 3379 2717 2354 2445 1542 1606 2590 3588 3202 4704 4005 3810 3488 2781 2944 2817 1960 1937 2903 3357 3552 4581 3905 4581 4037 3345 3175 2808 2050 1719 3143 3756 4776 4540 4309 4563 3506 3665 3361 3094 2440 1633 2935 4159 4159 4894 4921 4577 4155 3851 3429 3370 2726

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	3030.37254901961	88.61514507918	34.1970048834416
Geometric Mean	2888.43095922629
Harmonic Mean	2732.65189930145
Quadratic Mean	3158.52415275385
Winsorized Mean ( 1 / 34 )	3031.57843137255	88.2483462433786	34.3528072810771
Winsorized Mean ( 2 / 34 )	3033.79411764706	86.9057739093095	34.909005249904
Winsorized Mean ( 3 / 34 )	3031.79411764706	86.4715824061275	35.0611615201831
Winsorized Mean ( 4 / 34 )	3030.53921568627	84.9410311645654	35.6781542928868
Winsorized Mean ( 5 / 34 )	3031.66666666667	84.7466233175237	35.77330338352
Winsorized Mean ( 6 / 34 )	3033.8431372549	84.295125424174	35.9907304483927
Winsorized Mean ( 7 / 34 )	3034.73529411765	83.8125247112866	36.2086132659953
Winsorized Mean ( 8 / 34 )	3039.67647058824	82.3931771212973	36.8923323118527
Winsorized Mean ( 9 / 34 )	3027.32352941176	77.877356005984	38.8729623689221
Winsorized Mean ( 10 / 34 )	3029.97058823529	77.18738083407	39.2547402890744
Winsorized Mean ( 11 / 34 )	3014.76470588235	74.4787114928288	40.4782070668963
Winsorized Mean ( 12 / 34 )	3025.47058823529	72.854746954016	41.5274325246767
Winsorized Mean ( 13 / 34 )	3027.89215686275	72.3451330058196	41.8534327197819
Winsorized Mean ( 14 / 34 )	3022.95098039216	68.4787218629347	44.1443838049843
Winsorized Mean ( 15 / 34 )	3024.12745098039	68.0987635574431	44.4079641538493
Winsorized Mean ( 16 / 34 )	3024.91176470588	66.5471167986342	45.4551888981006
Winsorized Mean ( 17 / 34 )	3016.41176470588	63.0327703686715	47.8546595217572
Winsorized Mean ( 18 / 34 )	3013.41176470588	60.8195458103751	49.546765345818
Winsorized Mean ( 19 / 34 )	3026.82352941176	56.9817659305698	53.119159787007
Winsorized Mean ( 20 / 34 )	3034.07843137255	55.8533622567028	54.3222164035154
Winsorized Mean ( 21 / 34 )	3029.3431372549	53.7659233051221	56.3431807924762
Winsorized Mean ( 22 / 34 )	3020.5	49.8636030287458	60.5752456006582
Winsorized Mean ( 23 / 34 )	3005.16666666667	47.4458014332423	63.3389378171855
Winsorized Mean ( 24 / 34 )	3010.34313725490	46.5244271841184	64.7045717584356
Winsorized Mean ( 25 / 34 )	3006.17647058824	45.7230727428218	65.7474725615458
Winsorized Mean ( 26 / 34 )	3003.88235294118	45.4482907856431	66.0945065483098
Winsorized Mean ( 27 / 34 )	3004.94117647059	43.5440558932683	69.009216409148
Winsorized Mean ( 28 / 34 )	3008.78431372549	42.2399672987645	71.2307443905975
Winsorized Mean ( 29 / 34 )	3011.05882352941	41.6368516667736	72.3171590308363
Winsorized Mean ( 30 / 34 )	3008.70588235294	40.6711950312253	73.9763333740995
Winsorized Mean ( 31 / 34 )	3018.73529411765	37.3982303169905	80.7186668601855
Winsorized Mean ( 32 / 34 )	3016.53921568627	36.2097302993211	83.3074201533845
Winsorized Mean ( 33 / 34 )	3023.98039215686	34.7139151878161	87.1114760693492
Winsorized Mean ( 34 / 34 )	3022.64705882353	31.1206769541164	97.1266487319683
Trimmed Mean ( 1 / 34 )	3031.11	86.1433218420314	35.1868251094196
Trimmed Mean ( 2 / 34 )	3030.62244897959	83.7650508255545	36.180034741351
Trimmed Mean ( 3 / 34 )	3028.9375	81.8810980218728	36.9919013444456
Trimmed Mean ( 4 / 34 )	3027.90425531915	79.9288663233372	37.8824871989342
Trimmed Mean ( 5 / 34 )	3027.17391304348	78.2248107989602	38.6983858717587
Trimmed Mean ( 6 / 34 )	3026.15555555556	76.3369066940969	39.6421034936901
Trimmed Mean ( 7 / 34 )	3024.67045454545	74.2910637491191	40.7137857759012
Trimmed Mean ( 8 / 34 )	3022.96511627907	72.053380135612	41.9545219195759
Trimmed Mean ( 9 / 34 )	3020.42857142857	69.780607108509	43.2846416301853
Trimmed Mean ( 10 / 34 )	3019.4756097561	68.0725944614628	44.3566993978095
Trimmed Mean ( 11 / 34 )	3018.1375	66.223816759909	45.5748044686416
Trimmed Mean ( 12 / 34 )	3018.53846153846	64.5709570081391	46.7476184557397
Trimmed Mean ( 13 / 34 )	3017.76315789474	62.9271978919585	47.956420418974
Trimmed Mean ( 14 / 34 )	3016.68918918919	61.0878608264066	49.3827930521535
Trimmed Mean ( 15 / 34 )	3016.05555555556	59.582050082668	50.6202044302082
Trimmed Mean ( 16 / 34 )	3015.27142857143	57.8641083913769	52.1095289013522
Trimmed Mean ( 17 / 34 )	3014.36764705882	56.0844986182045	53.7468947984923
Trimmed Mean ( 18 / 34 )	3014.18181818182	54.5505215206746	55.2548671242207
Trimmed Mean ( 19 / 34 )	3014.25	53.075446076227	56.7917977678592
Trimmed Mean ( 20 / 34 )	3013.16129032258	51.9185496499243	58.0363147784305
Trimmed Mean ( 21 / 34 )	3011.38333333333	50.6871321197357	59.4111997936615
Trimmed Mean ( 22 / 34 )	3009.87931034483	49.5233730197042	60.7769448407173
Trimmed Mean ( 23 / 34 )	3009	48.7235176155331	61.7566248755555
Trimmed Mean ( 24 / 34 )	3009.31481481481	48.0994472966212	62.5644364738097
Trimmed Mean ( 25 / 34 )	3009.23076923077	47.4387961284655	63.4339615423986
Trimmed Mean ( 26 / 34 )	3009.48	46.7095081873278	64.4297085709086
Trimmed Mean ( 27 / 34 )	3009.9375	45.8005079705834	65.7184305015397
Trimmed Mean ( 28 / 34 )	3010.34782608696	44.9588670558781	66.9578221876784
Trimmed Mean ( 29 / 34 )	3010.47727272727	44.0848270417693	68.2882858965268
Trimmed Mean ( 30 / 34 )	3010.42857142857	43.0270576736596	69.9659408333538
Trimmed Mean ( 31 / 34 )	3010.42857142857	41.8039362565113	72.0130409001777
Trimmed Mean ( 32 / 34 )	3009.86842105263	40.8751729008768	73.635613196099
Trimmed Mean ( 33 / 34 )	3009.27777777778	39.8435952334719	75.527265050864
Trimmed Mean ( 34 / 34 )	3007.94117647059	38.7408074583494	77.6427073623711
Median	2975.5
Midrange	2993.5
Midmean - Weighted Average at Xnp	2998.41176470588
Midmean - Weighted Average at X(n+1)p	3009.23076923077
Midmean - Empirical Distribution Function	3009.23076923077
Midmean - Empirical Distribution Function - Averaging	3009.23076923077
Midmean - Empirical Distribution Function - Interpolation	2998.41176470588
Midmean - Closest Observation	3009.23076923077
Midmean - True Basic - Statistics Graphics Toolkit	3009.23076923077
Midmean - MS Excel (old versions)	3009.23076923077
Number of observations	102

Charts produced by software:

http://www.freestatistics.org/blog/date/2010/Mar/17/t12688525848f48ihxahkrrned/12r491268852542.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Mar/17/t12688525848f48ihxahkrrned/12r491268852542.ps (open in new window)

http://www.freestatistics.org/blog/date/2010/Mar/17/t12688525848f48ihxahkrrned/2g9tq1268852542.png (open in new window)

http://www.freestatistics.org/blog/date/2010/Mar/17/t12688525848f48ihxahkrrned/2g9tq1268852542.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')

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.

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