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
Sample Range:
(leave blank to include all observations)
From:
To:
R Code
num <- 50 res <- array(NA,dim=c(num,3)) 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] } } } } iqd <- 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) } iqdiff <- qvalue3 - qvalue1 return(c(iqdiff,iqdiff/2,iqdiff/(qvalue3 + qvalue1))) } range <- max(x) - min(x) lx <- length(x) biasf <- (lx-1)/lx varx <- var(x) bvarx <- varx*biasf sdx <- sqrt(varx) mx <- mean(x) bsdx <- sqrt(bvarx) x2 <- x*x mse0 <- sum(x2)/lx xmm <- x-mx xmm2 <- xmm*xmm msem <- sum(xmm2)/lx axmm <- abs(x - mx) medx <- median(x) axmmed <- abs(x - medx) xmmed <- x - medx xmmed2 <- xmmed*xmmed msemed <- sum(xmmed2)/lx qarr <- array(NA,dim=c(8,3)) for (j in 1:8) { qarr[j,] <- iqd(x,j) } sdpo <- 0 adpo <- 0 for (i in 1:(lx-1)) { for (j in (i+1):lx) { ldi <- x[i]-x[j] aldi <- abs(ldi) sdpo = sdpo + ldi * ldi adpo = adpo + aldi } } denom <- (lx*(lx-1)/2) sdpo = sdpo / denom adpo = adpo / denom gmd <- 0 for (i in 1:lx) { for (j in 1:lx) { ldi <- abs(x[i]-x[j]) gmd = gmd + ldi } } gmd <- gmd / (lx*(lx-1)) sumx <- sum(x) pk <- x / sumx ck <- cumsum(pk) dk <- array(NA,dim=lx) for (i in 1:lx) { if (ck[i] <= 0.5) dk[i] <- ck[i] else dk[i] <- 1 - ck[i] } bigd <- sum(dk) * 2 / (lx-1) iod <- 1 - sum(pk*pk) res[1,] <- c('Absolute range','http://www.xycoon.com/absolute.htm', range) res[2,] <- c('Relative range (unbiased)','http://www.xycoon.com/relative.htm', range/sd(x)) res[3,] <- c('Relative range (biased)','http://www.xycoon.com/relative.htm', range/sqrt(varx*biasf)) res[4,] <- c('Variance (unbiased)','http://www.xycoon.com/unbiased.htm', varx) res[5,] <- c('Variance (biased)','http://www.xycoon.com/biased.htm', bvarx) res[6,] <- c('Standard Deviation (unbiased)','http://www.xycoon.com/unbiased1.htm', sdx) res[7,] <- c('Standard Deviation (biased)','http://www.xycoon.com/biased1.htm', bsdx) res[8,] <- c('Coefficient of Variation (unbiased)','http://www.xycoon.com/variation.htm', sdx/mx) res[9,] <- c('Coefficient of Variation (biased)','http://www.xycoon.com/variation.htm', bsdx/mx) res[10,] <- c('Mean Squared Error (MSE versus 0)','http://www.xycoon.com/mse.htm', mse0) res[11,] <- c('Mean Squared Error (MSE versus Mean)','http://www.xycoon.com/mse.htm', msem) res[12,] <- c('Mean Absolute Deviation from Mean (MAD Mean)', 'http://www.xycoon.com/mean2.htm', sum(axmm)/lx) res[13,] <- c('Mean Absolute Deviation from Median (MAD Median)', 'http://www.xycoon.com/median1.htm', sum(axmmed)/lx) res[14,] <- c('Median Absolute Deviation from Mean', 'http://www.xycoon.com/mean3.htm', median(axmm)) res[15,] <- c('Median Absolute Deviation from Median', 'http://www.xycoon.com/median2.htm', median(axmmed)) res[16,] <- c('Mean Squared Deviation from Mean', 'http://www.xycoon.com/mean1.htm', msem) res[17,] <- c('Mean Squared Deviation from Median', 'http://www.xycoon.com/median.htm', msemed) load(file='createtable') mylink1 <- hyperlink('http://www.xycoon.com/difference.htm','Interquartile Difference','') mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_1.htm','(Weighted Average at Xnp)',''),sep=' ') res[18,] <- c('', mylink2, qarr[1,1]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_2.htm','(Weighted Average at X(n+1)p)',''),sep=' ') res[19,] <- c('', mylink2, qarr[2,1]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_3.htm','(Empirical Distribution Function)',''),sep=' ') res[20,] <- c('', mylink2, qarr[3,1]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_4.htm','(Empirical Distribution Function - Averaging)',''),sep=' ') res[21,] <- c('', mylink2, qarr[4,1]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_5.htm','(Empirical Distribution Function - Interpolation)',''),sep=' ') res[22,] <- c('', mylink2, qarr[5,1]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_6.htm','(Closest Observation)',''),sep=' ') res[23,] <- c('', mylink2, qarr[6,1]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_7.htm','(True Basic - Statistics Graphics Toolkit)',''),sep=' ') res[24,] <- c('', mylink2, qarr[7,1]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_8.htm','(MS Excel (old versions))',''),sep=' ') res[25,] <- c('', mylink2, qarr[8,1]) mylink1 <- hyperlink('http://www.xycoon.com/deviation.htm','Semi Interquartile Difference','') mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_1.htm','(Weighted Average at Xnp)',''),sep=' ') res[26,] <- c('', mylink2, qarr[1,2]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_2.htm','(Weighted Average at X(n+1)p)',''),sep=' ') res[27,] <- c('', mylink2, qarr[2,2]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_3.htm','(Empirical Distribution Function)',''),sep=' ') res[28,] <- c('', mylink2, qarr[3,2]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_4.htm','(Empirical Distribution Function - Averaging)',''),sep=' ') res[29,] <- c('', mylink2, qarr[4,2]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_5.htm','(Empirical Distribution Function - Interpolation)',''),sep=' ') res[30,] <- c('', mylink2, qarr[5,2]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_6.htm','(Closest Observation)',''),sep=' ') res[31,] <- c('', mylink2, qarr[6,2]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_7.htm','(True Basic - Statistics Graphics Toolkit)',''),sep=' ') res[32,] <- c('', mylink2, qarr[7,2]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_8.htm','(MS Excel (old versions))',''),sep=' ') res[33,] <- c('', mylink2, qarr[8,2]) mylink1 <- hyperlink('http://www.xycoon.com/variation1.htm','Coefficient of Quartile Variation','') mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_1.htm','(Weighted Average at Xnp)',''),sep=' ') res[34,] <- c('', mylink2, qarr[1,3]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_2.htm','(Weighted Average at X(n+1)p)',''),sep=' ') res[35,] <- c('', mylink2, qarr[2,3]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_3.htm','(Empirical Distribution Function)',''),sep=' ') res[36,] <- c('', mylink2, qarr[3,3]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_4.htm','(Empirical Distribution Function - Averaging)',''),sep=' ') res[37,] <- c('', mylink2, qarr[4,3]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_5.htm','(Empirical Distribution Function - Interpolation)',''),sep=' ') res[38,] <- c('', mylink2, qarr[5,3]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_6.htm','(Closest Observation)',''),sep=' ') res[39,] <- c('', mylink2, qarr[6,3]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_7.htm','(True Basic - Statistics Graphics Toolkit)',''),sep=' ') res[40,] <- c('', mylink2, qarr[7,3]) mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_8.htm','(MS Excel (old versions))',''),sep=' ') res[41,] <- c('', mylink2, qarr[8,3]) res[42,] <- c('Number of all Pairs of Observations', 'http://www.xycoon.com/pair_numbers.htm', lx*(lx-1)/2) res[43,] <- c('Squared Differences between all Pairs of Observations', 'http://www.xycoon.com/squared_differences.htm', sdpo) res[44,] <- c('Mean Absolute Differences between all Pairs of Observations', 'http://www.xycoon.com/mean_abs_differences.htm', adpo) res[45,] <- c('Gini Mean Difference', 'http://www.xycoon.com/gini_mean_difference.htm', gmd) res[46,] <- c('Leik Measure of Dispersion', 'http://www.xycoon.com/leiks_d.htm', bigd) res[47,] <- c('Index of Diversity', 'http://www.xycoon.com/diversity.htm', iod) res[48,] <- c('Index of Qualitative Variation', 'http://www.xycoon.com/qualitative_variation.htm', iod*lx/(lx-1)) res[49,] <- c('Coefficient of Dispersion', 'http://www.xycoon.com/dispersion.htm', sum(axmm)/lx/medx) res[50,] <- c('Observations', '', lx) res a<-table.start() a<-table.row.start(a) a<-table.element(a,'Variability - Ungrouped Data',2,TRUE) a<-table.row.end(a) for (i in 1:num) { a<-table.row.start(a) if (res[i,1] != '') { a<-table.element(a,hyperlink(res[i,2],res[i,1],''),header=TRUE) } else { a<-table.element(a,res[i,2],header=TRUE) } a<-table.element(a,res[i,3]) 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