Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.386 1.388 1.391 1.394 1.402 1.414 1.419 1.419 1.42 1.424 1.431 1.438 1.44 1.437 1.437 1.439 1.439 1.438 1.437 1.437 1.43 1.43 1.432 1.427 1.422 1.417 1.416 1.414 1.414 1.415 1.414 1.414 1.415 1.415 1.414 1.414 1.415 1.42 1.425 1.425 1.425 1.424 1.426 1.428 1.429 1.433 1.435 1.44 1.442 1.442 1.444 1.444 1.445 1.448 1.447 1.445 1.445 1.447 1.447 1.447 1.446 1.447 1.446 1.445 1.447 1.447 1.447 1.445 1.448 1.45 1.449 1.452 1.454 1.455 1.459 1.465 1.463 1.463 1.465 1.467 1.466 1.466 1.466 1.462 1.463 1.464 1.464 1.464 1.461 1.462 1.458 1.458 1.459 1.459 1.458 1.457 1.458 1.456 1.456 1.456 1.457 1.457 1.455 1.456 1.455 1.455 1.457 1.457 1.456 1.451 1.449 1.445 1.445 1.447 1.446 1.446 1.444 1.446 1.445 1.445 1.444 1.446 1.446 1.445 1.446 1.442 1.442 1.443 1.439 1.434 1.429 1.427 1.425 1.425 1.426 1.426 1.426 1.424 1.425 1.423 1.423 1.425 1.423 1.422 1.418 1.417 1.415 1.415 1.415 1.417 1.416 1.416 1.416 1.407 1.408 1.409 1.403 1.4 1.397 1.397 1.391 1.391 1.392 1.388 1.386 1.384 1.381 1.376 1.375 1.377 1.376 1.374 1.371 1.369 1.366 1.367 1.367 1.367 1.367 1.367 1.367 1.365 1.366 1.367 1.367 1.371 1.375 1.38 1.385 1.385 1.387 1.391 1.394 1.396 1.397 1.402 1.402 1.404 1.408 1.415 1.419 1.429 1.434 1.435 1.437 1.437 1.437 1.436 1.438 1.436 1.436 1.437 1.437 1.437 1.436 1.437 1.435 1.435 1.437 1.437 1.44 1.445 1.451 1.45 1.45 1.452 1.454 1.457 1.459 1.466 1.469 1.469 1.47 1.474 1.475 1.475 1.475 1.473 1.473 1.475 1.476 1.476 1.476 1.476 1.475 1.474 1.476 1.476 1.477 1.476 1.478 1.478 1.478 1.479 1.477 1.476 1.475 1.476 1.473 1.473 1.475 1.474 1.474 1.472 1.472 1.471 1.471 1.472 1.472 1.473 1.469 1.468 1.467 1.467 1.483 1.487 1.486 1.484 1.485 1.484 1.484 1.486 1.486 1.486 1.493 1.496 1.498 1.499 1.5 1.501 1.502 1.5 1.497 1.494 1.494 1.496 1.493 1.492 1.489 1.489 1.484 1.485 1.486 1.486 1.485 1.483 1.485 1.481 1.482 1.483 1.483 1.483 1.48 1.479 1.475 1.475 1.477 1.475 1.474 1.472 1.473 1.471 1.471 1.473 1.475 1.474 1.472 1.474 1.472 1.472 1.474 1.474 1.473 1.471 1.472 1.468 1.468 1.47 1.468 1.466 1.463 1.46 1.452 1.452 1.454 1.449 1.446 1.445 1.447 1.443 1.443 1.445 1.445 1.442 1.437 1.437 1.434 1.434 1.436 1.434 1.434 1.433 1.434 1.433 1.433 1.435 1.441 1.443 1.442 1.444 1.443 1.443 1.444 1.445 1.449 1.449 1.453 1.452 1.452 1.455 1.454 1.454 1.453 1.453 1.451 1.452 1.455 1.454 1.455 1.453 1.457 1.456 1.456 1.458 1.459 1.458 1.457 1.461 1.46 1.46 1.462 1.463 1.462 1.462 1.464 1.464 1.464 1.466 1.469 1.474 1.473 1.478 1.477 1.478 1.48 1.482 1.482 1.48 1.482 1.48 1.48 1.482 1.481 1.479 1.474 1.475 1.468 1.467 1.468 1.466 1.464 1.462 1.464 1.46 1.46 1.461 1.458 1.455 1.453 1.45 1.444 1.444 1.446 1.444 1.443 1.437 1.435 1.432 1.43 1.434 1.434 1.433 1.432 1.434 1.435 1.436 1.436 1.438 1.442 1.44 1.442 1.438 1.437 1.44 1.439 1.439 1.437 1.433 1.422 1.422 1.424 1.418 1.409 1.402 1.395 1.391 1.391 1.392 1.392 1.391 1.389 1.391 1.39 1.391 1.393 1.391 1.392 1.387 1.384 1.381 1.382 1.383 1.384 1.383 1.381 1.384 1.382 1.382 1.384 1.384 1.384 1.382 1.389 1.394 1.397 1.396 1.398 1.399 1.398 1.4 1.396 1.397 1.399 1.398 1.399 1.399 1.401 1.398 1.399 1.401 1.399 1.395 1.392 1.393 1.39 1.39 1.391 1.392 1.392 1.39 1.391 1.39 1.391 1.393 1.394 1.393 1.392 1.396 1.394 1.394 1.396 1.397 1.396 1.395 1.396 1.395 1.396 1.397 1.399 1.396 1.398 1.404 1.407 1.408 1.411 1.411 1.412 1.416 1.419 1.418 1.419 1.421 1.421 1.421 1.42 1.427 1.426 1.429 1.429 1.429 1.429 1.427 1.429 1.426 1.428 1.428 1.429 1.428 1.427 1.429 1.427 1.428 1.43 1.43 1.429 1.426 1.421 1.418 1.418 1.419 1.419 1.419 1.417 1.418 1.417 1.419 1.421 1.424 1.429 1.427 1.43 1.427 1.428 1.43 1.429 1.433 1.437 1.442 1.441 1.443 1.444 1.445 1.444 1.442 1.444 1.443 1.444 1.446 1.445 1.444 1.442 1.444 1.442 1.442 1.444 1.443 1.442 1.439 1.441 1.435 1.436 1.438 1.434 1.426 1.421 1.418 1.412 1.413 1.414 1.413 1.412 1.411 1.414 1.41 1.411 1.413 1.413 1.412 1.411 1.413 1.411 1.413 1.414 1.41 1.409 1.407 1.408 1.405 1.405 1.407 1.407 1.407 1.404 1.401 1.392 1.393 1.394 1.392 1.391 1.388 1.39 1.386 1.388 1.39 1.389 1.386 1.382 1.38 1.376 1.378 1.379 1.379 1.378 1.378 1.381 1.379 1.38 1.382 1.384 1.384 1.383 1.391 1.392 1.394 1.396 1.398 1.402 1.403 1.408 1.405 1.406 1.408 1.408 1.407 1.405 1.409 1.406 1.407 1.408 1.408 1.407 1.405 1.407 1.403 1.404 1.405 1.404 1.399 1.396 1.398 1.399 1.4 1.401 1.402 1.402 1.4 1.404 1.403 1.404 1.404 1.404 1.44 1.438 1.441 1.438 1.439 1.44 1.44 1.437 1.434 1.437 1.435 1.435 1.437 1.434 1.431 1.426 1.426 1.423 1.425 1.426 1.427 1.424 1.422 1.427 1.424 1.426 1.427 1.429 1.427 1.425 1.427 1.425 1.426 1.428 1.427 1.427 1.425 1.428 1.426 1.428 1.429 1.434 1.434 1.435 1.439 1.437 1.438 1.439 1.439 1.439 1.438 1.442 1.441 1.441 1.442 1.442 1.44 1.438 1.439 1.435 1.435 1.437 1.438 1.434 1.429 1.43 1.424 1.424 1.425 1.423 1.42 1.415 1.413 1.409 1.409 1.411 1.41 1.406 1.4 1.4 1.4 1.401 1.402 1.407 1.408 1.407 1.41 1.41 1.411 1.412 1.418 1.419 1.416 1.419 1.417 1.418 1.42 1.419 1.419 1.417 1.419 1.417 1.418 1.42 1.421 1.421 1.425 1.429 1.428 1.428 1.429 1.43 1.429 1.428 1.431 1.429 1.43 1.431 1.431 1.429 1.428 1.428 1.424 1.424 1.425 1.422 1.42 1.418 1.42 1.418 1.419 1.421 1.421 1.421 1.423 1.428 1.427 1.428 1.43 1.431 1.429 1.428 1.43 1.428 1.429 1.43 1.43 1.429 1.427 1.43 1.428 1.429 1.43 1.431 1.427 1.424 1.422 1.419 1.42 1.421 1.421 1.421 1.42 1.423 1.427 1.428 1.43 1.43 1.429 1.434 1.442 1.445 1.447 1.448 1.448 1.448 1.447 1.449 1.447 1.448 1.449 1.449 1.444 1.439 1.439 1.432 1.433 1.435 1.433 1.427 1.424 1.424 1.42 1.421 1.422 1.42 1.42 1.419 1.42 1.414 1.415 1.416 1.416 1.418 1.418 1.419 1.417 1.418 1.42 1.419 1.422 1.425 1.427 1.425 1.426 1.427 1.425 1.421 1.418 1.42 1.419 1.421 1.421 1.421 1.419 1.417 1.419 1.418 1.418 1.419 1.415 1.412 1.408 1.41 1.409 1.409 1.411 1.411 1.414 1.413 1.421 1.421 1.421 1.424 1.425 1.426 1.422 1.424 1.427 1.426 1.428 1.427 1.427 1.422 1.419 1.415 1.415 1.416 1.413 1.409 1.408 1.409 1.408 1.407 1.41 1.409 1.407 1.404 1.405 1.406 1.406 1.408 1.408 1.412 1.414 1.411 1.406 1.406 1.409 1.405 1.4 1.393 1.387 1.378 1.378 1.378 1.374 1.37 1.361 1.355 1.351 1.35 1.352 1.35 1.349 1.351 1.356 1.355 1.355 1.357 1.357 1.357 1.355 1.358 1.357 1.358 1.361 1.365 1.366 1.364 1.366 1.364 1.364 1.367 1.372 1.373 1.371 1.374 1.365 1.365 1.368 1.362 1.36 1.356 1.357 1.352 1.352 1.354 1.347 1.344 1.342 1.342 1.33 1.33 1.332 1.323 1.319 1.313 1.313 1.304 1.304 1.305 1.299 1.291 1.283 1.28 1.27 1.27 1.271 1.261 1.252 1.24 1.236 1.228 1.228 1.229 1.227 1.225 1.221 1.223 1.222 1.222 1.223 1.217 1.212 1.207 1.208 1.206 1.206 1.208 1.207 1.206 1.203 1.205 1.198 1.2 1.201 1.197 1.191 1.186 1.187 1.184 1.185 1.187 1.187 1.186 1.185 1.186 1.184 1.184 1.187 1.188 1.189 1.188 1.19 1.19 1.192 1.194 1.201 1.21 1.219 1.222 1.225 1.225 1.229 1.237 1.249 1.255 1.26 1.267 1.268 1.271 1.276 1.279 1.28 1.282 1.28 1.28 1.282 1.283 1.283 1.282 1.289 1.291 1.291 1.293 1.293 1.293 1.291 1.293 1.292 1.292 1.294 1.294 1.294 1.292 1.293 1.292 1.291 1.293 1.292 1.287 1.283 1.284 1.278 1.278 1.28 1.279 1.28 1.277 1.278 1.276 1.277 1.278 1.277 1.275 1.273 1.27 1.268 1.268 1.269 1.27 1.269 1.268 1.268 1.261 1.262 1.263 1.264 1.269 1.272 1.282 1.288 1.289 1.291 1.294 1.299 1.3 1.304 1.31 1.31 1.309 1.312 1.312 1.312 1.31 1.306 1.306 1.307 1.306 1.307 1.312 1.313 1.312 1.312 1.313 1.31 1.309 1.309 1.311 1.31 1.31 1.312 1.313 1.313 1.308 1.309 1.308 1.309 1.309 1.31 1.313 1.312 1.31 1.306 1.306 1.304 1.309 1.31 1.31 1.309 1.303 1.302 1.304 1.302 1.301 1.302 1.302 1.301 1.302 1.304 1.305 1.305 1.304 1.305 1.299 1.299 1.301 1.297 1.296 1.295 1.295 1.293 1.293 1.295 1.295 1.295 1.293 1.294 1.294 1.293 1.295 1.294 1.289 1.285 1.284 1.28 1.28 1.281 1.28 1.275 1.267 1.262 1.254 1.254 1.255 1.251 1.245 1.242 1.242 1.239 1.24 1.239 1.233 1.225 1.22 1.22 1.218 1.219 1.22 1.218 1.215 1.21 1.209 1.203 1.203 1.204 1.201 1.197 1.194 1.194 1.193 1.193 1.194 1.194 1.194 1.192 1.19 1.181 1.181 1.181 1.172 1.163 1.157 1.156 1.155 1.155 1.157 1.165 1.174 1.175 1.181 1.186 1.188 1.19 1.196 1.197 1.199 1.2 1.199 1.199 1.201 1.2 1.198 1.198 1.199 1.193 1.194 1.196 1.194 1.193 1.193 1.189 1.185 1.184 1.186 1.185 1.182 1.181 1.184 1.181 1.181 1.185 1.184 1.187 1.19 1.193 1.196 1.197 1.2 1.201 1.199 1.195 1.193 1.187 1.188 1.19 1.186 1.179 1.172 1.172 1.17 1.17 1.172 1.172 1.17 1.169 1.175 1.173 1.173 1.175 1.18 1.187 1.196 1.199 1.198 1.198 1.202 1.206 1.207 1.208 1.208 1.203 1.204 1.206 1.199 1.195 1.191 1.191 1.186 1.186 1.188 1.184 1.181 1.181 1.182 1.18 1.18 1.182 1.177 1.172 1.168 1.162 1.157 1.157 1.159 1.158 1.151 1.143 1.139 1.129 1.129 1.131 1.122 1.113 1.107 1.101 1.094 1.094 1.096 1.087 1.081 1.078 1.071 1.07 1.07 1.071 1.068 1.064 1.067
Chart options
Title:
Y-axis minimum
Y-axis maximum
R Code
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')
Compute
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
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation