Home » date » 2008 » Dec » 12 »

Central tendency: Personenwagens

*The author of this computation has been verified*

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

Title produced by software: Central Tendency

Date of computation: Fri, 12 Dec 2008 04:40:19 -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/Dec/12/t1229082079pdcqxiz17nrmmpr.htm/, Retrieved Fri, 12 Dec 2008 12:41:23 +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/2008/Dec/12/t1229082079pdcqxiz17nrmmpr.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},
}

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

41086 39690 43129 37863 35953 29133 24693 22205 21725 27192 21790 13253 37702 30364 32609 30212 29965 28352 25814 22414 20506 28806 22228 13971 36845 35338 35022 34777 26887 23970 22780 17351 21382 24561 17409 11514 31514 27071 29462 26105 22397 23843 21705 18089 20764 25316 17704 15548 28029 29383 36438 32034 22679 24319 18004 17537 20366 22782 19169 13807 29743 25591 29096 26482 22405 27044 17970 18730 19684 19785 18479 10698 31956 29506 34506 27165 26736 23691 18157 17328 18205 20995 17382 9367 31124 26551 30651 25859 25100 25778 20418 18688 20424 24776 19814 12738 31566 30111 30019 31934 25826 26835 20205 17789

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	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Central Tendency - Ungrouped Data
Measure	Value	S.E.	Value/S.E.
Arithmetic Mean	24898.6826923077	680.430977550212	36.5925178508944
Geometric Mean	23892.5623549308
Harmonic Mean	22813.9645909685
Quadratic Mean	25838.5756240325
Winsorized Mean ( 1 / 34 )	24891.8365384615	672.850179811025	36.9946197316208
Winsorized Mean ( 2 / 34 )	24880.6826923077	663.662288214186	37.4899751487429
Winsorized Mean ( 3 / 34 )	24863.2884615385	646.12702924043	38.4804958411461
Winsorized Mean ( 4 / 34 )	24876.9038461538	641.373846695241	38.7869009226603
Winsorized Mean ( 5 / 34 )	24862.3365384615	628.945350149531	39.5302016821502
Winsorized Mean ( 6 / 34 )	24848.3173076923	623.043957679533	39.8821254927782
Winsorized Mean ( 7 / 34 )	24921.8173076923	600.120916488585	41.5279931476382
Winsorized Mean ( 8 / 34 )	25011.4326923077	572.416354721309	43.6944760330703
Winsorized Mean ( 9 / 34 )	24986.0769230769	567.413688266217	44.0350267182029
Winsorized Mean ( 10 / 34 )	24965.5	563.008404051053	44.3430325735176
Winsorized Mean ( 11 / 34 )	24939.6923076923	557.823300845186	44.7089468473349
Winsorized Mean ( 12 / 34 )	24735.5769230769	521.530191283803	47.4288494443392
Winsorized Mean ( 13 / 34 )	24684.5769230769	508.426311445019	48.5509431109494
Winsorized Mean ( 14 / 34 )	24685.5192307692	505.435776268541	48.8400710630616
Winsorized Mean ( 15 / 34 )	24708.4519230769	501.560476950486	49.2631558078611
Winsorized Mean ( 16 / 34 )	24657.0673076923	493.065533840855	50.0076878536207
Winsorized Mean ( 17 / 34 )	24662.4615384615	490.095755249415	50.3217203460792
Winsorized Mean ( 18 / 34 )	24606.7307692308	479.525443046063	51.3147552983274
Winsorized Mean ( 19 / 34 )	24529.0865384615	467.175846034959	52.5050401185039
Winsorized Mean ( 20 / 34 )	24526.5865384615	453.338554872969	54.1021412690879
Winsorized Mean ( 21 / 34 )	24538.0961538462	444.084288410097	55.2554926941844
Winsorized Mean ( 22 / 34 )	24525.6153846154	440.307608609419	55.7010937468745
Winsorized Mean ( 23 / 34 )	24602.3557692308	425.573975397812	57.8098220085786
Winsorized Mean ( 24 / 34 )	24708.7403846154	409.578935728001	60.3271756168249
Winsorized Mean ( 25 / 34 )	24679.6538461538	400.087538911006	61.685634882129
Winsorized Mean ( 26 / 34 )	24627.6538461538	392.004848092199	62.8248705749718
Winsorized Mean ( 27 / 34 )	24717.7403846154	378.694038941461	65.2710046709668
Winsorized Mean ( 28 / 34 )	24739.8173076923	371.121146638842	66.6623757006441
Winsorized Mean ( 29 / 34 )	24684.6057692308	361.055751224907	68.3678509080288
Winsorized Mean ( 30 / 34 )	24675.6634615385	359.581870334451	68.6232135079206
Winsorized Mean ( 31 / 34 )	24613.6634615385	346.536103763854	71.0277030133384
Winsorized Mean ( 32 / 34 )	24553.3557692308	321.190270502156	76.4448927137285
Winsorized Mean ( 33 / 34 )	24524.1634615385	301.144074436255	81.436646254614
Winsorized Mean ( 34 / 34 )	24377.0480769231	256.679459114100	94.9707785775213
Trimmed Mean ( 1 / 34 )	24872.2254901961	652.47913449299	38.1195722212988
Trimmed Mean ( 2 / 34 )	24851.83	629.415603902027	39.4839750491288
Trimmed Mean ( 3 / 34 )	24836.5204081633	608.856341209424	40.7920862889074
Trimmed Mean ( 4 / 34 )	24826.8541666667	593.075847191358	41.8611789440419
Trimmed Mean ( 5 / 34 )	24813.0106382979	576.767257714031	43.0208377927731
Trimmed Mean ( 6 / 34 )	24801.8586956522	561.783104258801	44.1484596237100
Trimmed Mean ( 7 / 34 )	24792.9111111111	546.180798893335	45.3932308886475
Trimmed Mean ( 8 / 34 )	24771.1477272727	533.544711705266	46.4275011706170
Trimmed Mean ( 9 / 34 )	24734.8255813953	524.666650000688	47.143887611997
Trimmed Mean ( 10 / 34 )	24700.2619047619	515.370982779123	47.927149044299
Trimmed Mean ( 11 / 34 )	24666.6219512195	505.409363192217	48.805233435769
Trimmed Mean ( 12 / 34 )	24634.35	494.75949728957	49.7905550776768
Trimmed Mean ( 13 / 34 )	24623.1025641026	488.47460809527	50.4081525549844
Trimmed Mean ( 14 / 34 )	24616.6315789474	483.09632501484	50.9559487503681
Trimmed Mean ( 15 / 34 )	24616.6315789474	477.131864568588	51.5929314450737
Trimmed Mean ( 16 / 34 )	24600.2083333333	470.585042737401	52.2757973569103
Trimmed Mean ( 17 / 34 )	24594.9285714286	464.031232136488	53.0027439277931
Trimmed Mean ( 18 / 34 )	24588.8529411765	456.591685898424	53.8530457312064
Trimmed Mean ( 19 / 34 )	24587.2878787879	449.226080816091	54.7325476609041
Trimmed Mean ( 20 / 34 )	24592.265625	442.148119911825	55.6199710402575
Trimmed Mean ( 21 / 34 )	24597.7741935484	435.577038704906	56.4716961818844
Trimmed Mean ( 22 / 34 )	24602.7	428.867397032332	57.3666829659826
Trimmed Mean ( 23 / 34 )	24608.9827586207	421.111865136916	58.4381129955091
Trimmed Mean ( 24 / 34 )	24609.5178571429	413.807340352086	59.4709553392745
Trimmed Mean ( 25 / 34 )	24601.5555555556	407.161231100013	60.4221465022355
Trimmed Mean ( 26 / 34 )	24595.3076923077	400.239106079152	61.4515356414065
Trimmed Mean ( 27 / 34 )	24592.72	392.714936381522	62.6223189436019
Trimmed Mean ( 28 / 34 )	24582.6875	385.281337931618	63.8045113525926
Trimmed Mean ( 29 / 34 )	24570	376.901708121018	65.1894100519993
Trimmed Mean ( 30 / 34 )	24570	367.833010506922	66.7966150350109
Trimmed Mean ( 31 / 34 )	24551.1666666667	356.053242695189	68.9536387334197
Trimmed Mean ( 32 / 34 )	24545.925	343.284098512685	71.5032391723003
Trimmed Mean ( 33 / 34 )	24545.2894736842	332.077620594077	73.914313857626
Trimmed Mean ( 34 / 34 )	24547.1388888889	321.586469530920	76.3313796276765
Median	24734.5
Midrange	26248
Midmean - Weighted Average at Xnp	24504.5471698113
Midmean - Weighted Average at X(n+1)p	24595.3076923077
Midmean - Empirical Distribution Function	24504.5471698113
Midmean - Empirical Distribution Function - Averaging	24595.3076923077
Midmean - Empirical Distribution Function - Interpolation	24595.3076923077
Midmean - Closest Observation	24504.5471698113
Midmean - True Basic - Statistics Graphics Toolkit	24595.3076923077
Midmean - MS Excel (old versions)	24601.5555555556
Number of observations	104

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Dec/12/t1229082079pdcqxiz17nrmmpr/1uow31229082016.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Dec/12/t1229082079pdcqxiz17nrmmpr/1uow31229082016.ps (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Dec/12/t1229082079pdcqxiz17nrmmpr/283ye1229082016.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Dec/12/t1229082079pdcqxiz17nrmmpr/283ye1229082016.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