Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.183 1.188 1.208 1.209 1.209 1.208 1.206 1.209 1.211 1.204 1.211 1.208 1.213 1.207 1.207 1.228 1.227 1.229 1.225 1.217 1.208 1.212 1.209 1.207 1.206 1.198 1.197 1.195 1.197 1.197 1.189 1.19 1.19 1.186 1.186 1.193 1.191 1.188 1.196 1.19 1.185 1.188 1.195 1.192 1.202 1.202 1.191 1.191 1.192 1.192 1.192 1.195 1.203 1.207 1.219 1.217 1.214 1.207 1.206 1.197 1.203 1.208 1.201 1.21 1.21 1.206 1.222 1.226 1.231 1.218 1.21 1.211 1.213 1.209 1.225 1.235 1.235 1.232 1.237 1.243 1.243 1.241 1.254 1.264 1.262 1.259 1.269 1.276 1.278 1.272 1.291 1.283 1.282 1.288 1.277 1.277 1.275 1.284 1.285 1.276 1.276 1.283 1.287 1.274 1.282 1.296 1.285 1.279 1.274 1.266 1.257 1.257 1.256 1.261 1.265 1.259 1.255 1.263 1.258 1.256 1.257 1.257 1.253 1.271 1.279 1.279 1.279 1.274 1.278 1.275 1.274 1.272 1.269 1.266 1.254 1.253 1.248 1.264 1.268 1.263 1.264 1.259 1.274 1.266 1.277 1.276 1.278 1.279 1.285 1.284 1.288 1.286 1.278 1.272 1.273 1.279 1.288 1.292 1.281 1.281 1.283 1.276 1.281 1.282 1.285 1.282 1.285 1.281 1.279 1.273 1.271 1.271 1.271 1.268 1.272 1.268 1.267 1.265 1.268 1.273 1.282 1.277 1.268 1.271 1.266 1.269 1.274 1.268 1.272 1.266 1.262 1.254 1.254 1.253 1.255 1.252 1.252 1.254 1.256 1.262 1.256 1.254 1.258 1.265 1.268 1.272 1.276 1.277 1.276 1.27 1.276 1.278 1.286 1.283 1.282 1.279 1.277 1.284 1.281 1.289 1.295 1.308 1.311 1.315 1.316 1.320 1.324 1.331 1.333 1.327 1.330 1.328 1.318 1.324 1.327 1.319 1.311 1.310 1.316 1.320 1.318 1.319 1.316 1.317 1.317 1.327 1.323 1.311 1.308 1.301 1.302 1.299 1.298 1.289 1.294 1.295 1.291 1.292 1.296 1.294 1.304 1.301 1.298 1.290 1.292 1.297 1.295 1.302 1.302 1.293 1.296 1.299 1.299 1.301 1.296 1.302 1.308 1.314 1.312 1.313 1.315 1.315 1.311 1.313 1.316 1.323 1.321 1.323 1.316 1.308 1.310 1.314 1.315 1.316 1.316 1.322 1.318 1.323 1.333 1.330 1.330 1.329 1.335 1.333 1.327 1.335 1.335 1.335 1.332 1.337 1.336 1.335 1.337 1.343 1.342 1.347 1.353 1.355 1.355 1.358 1.360 1.361 1.356 1.358 1.365 1.360 1.364 1.361 1.359 1.361 1.356 1.362 1.356 1.354 1.353 1.349 1.355 1.354 1.357 1.352 1.348 1.344 1.345 1.349 1.345 1.344 1.345 1.351 1.342 1.345 1.344 1.348 1.353 1.351 1.347 1.335 1.336 1.335 1.329 1.330 1.331 1.340 1.340 1.343 1.340 1.344 1.346 1.346 1.344 1.347 1.351 1.359 1.360 1.362 1.364 1.360 1.362 1.367 1.375 1.379 1.378 1.378 1.377 1.378 1.382 1.380 1.382 1.383 1.374 1.372 1.365 1.366 1.371 1.366 1.366 1.369 1.382 1.379 1.379 1.373 1.365 1.365 1.359 1.348 1.341 1.345 1.348 1.351 1.349 1.357 1.362 1.366 1.366 1.363 1.361 1.371 1.363 1.358 1.359 1.367 1.370 1.380 1.382 1.389 1.390 1.386 1.388 1.387 1.398 1.403 1.405 1.411 1.411 1.413 1.418 1.418 1.423 1.417 1.420 1.411 1.414 1.409 1.404 1.415 1.420 1.417 1.423 1.415 1.420 1.430 1.429 1.417 1.425 1.423 1.431 1.438 1.439 1.441 1.445 1.442 1.448 1.449 1.455 1.472 1.467 1.468 1.458 1.461 1.470 1.464 1.465 1.465 1.479 1.481 1.483 1.481 1.485 1.487 1.475 1.474 1.476 1.467 1.474 1.472 1.455 1.465 1.472 1.467 1.468 1.468 1.451 1.439 1.442 1.439 1.435 1.438 1.440 1.452 1.469 1.472 1.469 1.475 1.473 1.472 1.471 1.468 1.466 1.479 1.490 1.489 1.479 1.469 1.467 1.448 1.449 1.457 1.466 1.471 1.476 1.477 1.481 1.487 1.489 1.483 1.469 1.462 1.457 1.451 1.454 1.454 1.459 1.463 1.467 1.464 1.474 1.466 1.474 1.485 1.482 1.487 1.504 1.512 1.517 1.520 1.521 1.520 1.532 1.542 1.534 1.538 1.548 1.558 1.556 1.577 1.577 1.569 1.542 1.557 1.571 1.579 1.580 1.581 1.566 1.563 1.553 1.572 1.569 1.569 1.573 1.588 1.583 1.587 1.583 1.593 1.587 1.578 1.590 1.593 1.594 1.577 1.560 1.563 1.557 1.554 1.546 1.546 1.553 1.543 1.535 1.546 1.543 1.547 1.544 1.547 1.550 1.558 1.564 1.575 1.576 1.574 1.576 1.576 1.566 1.555 1.551 1.552 1.559 1.547 1.540 1.560 1.578 1.553 1.552 1.542 1.534 1.546 1.548 1.549 1.548 1.561 1.552 1.557 1.560 1.573 1.575 1.576 1.578 1.581 1.589 1.567 1.565 1.569 1.572 1.571 1.584 1.585 1.599 1.589 1.585 1.582 1.586 1.592 1.574 1.568 1.573 1.575 1.571 1.559 1.561 1.557 1.557 1.549 1.548 1.547 1.507 1.501 1.491 1.490 1.491 1.473 1.470 1.468 1.473 1.481 1.481 1.477 1.460 1.477 1.477 1.474 1.462 1.452 1.444 1.449 1.425 1.421 1.414 1.409 1.393 1.407 1.415 1.427 1.422 1.450 1.424 1.457 1.473 1.469 1.470 1.464 1.435 1.430 1.408 1.390 1.383 1.363 1.363 1.373 1.368 1.358 1.364 1.375 1.363 1.351 1.340 1.342 1.318 1.284 1.281 1.260 1.246 1.253 1.277 1.304 1.276 1.282 1.282 1.287 1.277 1.289 1.275 1.253 1.253 1.268 1.266 1.265 1.263 1.254 1.260 1.277 1.281 1.294 1.290 1.273 1.261 1.270 1.262 1.262 1.267 1.285 1.284 1.293 1.322 1.334 1.351 1.369 1.368 1.367 1.406 1.462 1.394 1.397 1.398 1.401 1.427 1.410 1.392 1.387 1.358 1.333 1.360 1.362 1.368 1.339 1.326 1.317 1.309 1.327 1.318 1.293 1.291 1.298 1.280 1.299 1.317 1.326 1.311 1.282 1.276 1.285 1.282 1.283 1.280 1.301 1.297 1.294 1.283 1.282 1.277 1.263 1.260 1.271 1.259 1.280 1.276 1.280 1.278 1.264 1.260 1.262 1.256 1.255 1.256 1.266 1.264 1.260 1.256 1.257 1.278 1.279 1.278 1.291 1.304 1.294 1.313 1.367 1.355 1.356 1.351 1.349 1.361 1.330 1.319 1.331 1.325 1.339 1.343 1.350 1.326 1.323 1.327 1.328 1.317 1.320 1.306 1.297 1.293 1.295 1.305 1.323 1.313 1.299 1.327 1.328 1.322 1.340 1.332 1.336 1.343 1.357 1.368 1.362 1.356 1.352 1.349 1.361 1.369 1.377 1.397 1.401 1.391 1.390 1.386 1.410 1.422 1.424 1.421 1.410 1.418 1.387 1.396 1.410 1.397 1.400 1.385 1.389 1.384 1.392 1.393 1.390 1.386 1.398 1.403 1.394 1.410 1.406 1.413 1.410 1.405 1.401 1.390 1.402 1.390 1.399 1.390 1.398 1.399 1.409 1.413 1.409 1.422 1.422 1.419 1.423 1.423 1.427 1.423 1.410 1.405 1.414 1.430 1.438 1.441 1.437 1.436 1.420 1.417 1.417 1.429 1.429 1.407 1.410 1.412 1.411 1.418 1.424 1.433 1.432 1.432 1.427 1.427 1.436 1.427 1.431 1.422 1.434 1.426 1.433 1.447 1.452 1.455 1.459 1.456 1.461 1.467 1.471 1.471 1.466 1.478 1.476 1.477 1.478 1.477 1.467 1.465 1.455 1.464 1.454 1.454 1.462 1.472 1.469 1.476 1.475 1.477 1.486 1.488 1.486 1.487 1.492 1.497 1.492 1.500 1.502 1.502 1.487 1.479 1.479 1.480 1.477 1.466 1.476 1.487 1.486 1.498 1.497 1.504 1.492 1.487 1.497 1.488 1.496 1.486 1.482 1.497 1.497 1.508 1.507 1.492 1.502 1.507 1.509 1.512 1.507 1.479 1.477 1.477 1.473 1.476 1.465 1.454 1.456 1.434 1.434 1.437 1.428 1.428 1.440 1.441 1.443 1.434 1.441 1.439 1.444 1.435 1.430 1.427 1.453 1.448 1.456 1.449 1.437 1.437 1.428 1.413 1.406 1.414 1.415 1.409 1.407 1.400 1.397 1.391 1.394 1.398 1.385 1.369 1.368 1.376 1.374 1.372 1.357 1.361 1.365 1.373 1.357 1.352 1.363 1.358 1.355 1.349 1.357 1.353 1.355 1.364 1.367 1.358 1.366 1.356 1.361 1.366 1.377 1.371 1.372 1.376 1.366 1.355 1.347 1.352 1.334 1.336 1.335 1.347 1.348 1.348 1.347 1.340 1.334 1.330 1.338 1.359 1.358 1.362 1.354 1.354 1.343 1.349 1.337 1.334 1.331 1.332 1.329 1.325 1.326 1.332 1.324 1.309 1.292 1.273 1.275 1.297 1.270 1.267 1.259 1.249 1.235 1.243 1.227 1.233 1.250 1.236 1.222 1.231 1.226 1.238 1.231 1.216 1.222 1.227 1.206 1.196 1.194 1.201 1.205 1.213 1.225 1.226 1.228 1.236 1.237 1.239 1.226 1.227 1.226 1.229 1.234 1.220 1.227 1.233 1.255 1.253 1.258 1.257 1.266 1.264 1.257 1.257 1.270 1.283 1.300 1.296 1.284 1.282 1.285 1.290 1.293 1.303 1.299 1.307 1.303 1.307 1.322 1.321 1.318 1.318 1.325 1.313 1.302 1.279 1.280 1.282 1.286 1.288 1.284 1.271 1.270 1.261 1.261 1.269 1.271 1.270 1.268 1.280 1.282 1.283 1.287 1.274 1.270 1.272 1.273 1.280 1.285 1.299 1.308 1.306 1.307 1.312 1.336 1.332 1.341 1.348 1.346 1.361 1.365 1.373 1.371 1.378 1.386 1.397 1.387 1.394 1.383 1.396 1.410 1.409 1.390 1.386 1.386 1.402 1.393 1.403 1.391 1.380 1.386 1.386 1.393 1.402 1.401 1.424 1.408 1.392 1.395 1.377 1.370 1.371 1.363 1.361 1.348 1.365 1.367 1.365 1.350 1.334 1.332 1.323 1.315 1.300 1.312 1.316 1.325 1.328 1.336 1.320 1.321 1.324 1.327 1.344 1.336 1.324 1.326 1.315 1.316 1.311 1.306 1.310 1.314 1.320 1.314 1.328 1.336
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation