Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0 0 0 0 0 0 0 0 0 0 0 0 0 0 196 229 249 258 265 268 278 279 280 286 291 296 296 296 298 300 303 306 307 308 311 316 317 318 319 322 322 324 325 325 326 327 328 329 331 332 333 335 336 337 337 339 339 340 341 341 341 342 343 344 344 345 346 346 348 350 351 353 354 355 355 355 356 356 356 356 356 358 358 358 358 358 359 359 360 360 361 361 361 362 362 362 365 365 366 367 369 369 371 371 372 372 373 374 375 375 376 376 377 377 377 379 379 379 379 383 384 387 387 387 389 389 389 390 392 392 394 394 396 397 398 400 400 401 401 402 403 403 404 404 406 407 408 408 410 410 411 411 414 416 416 418 418 419 419 419 421 421 422 422 425 427 429 429 429 429 430 430 432 432 433 434 434 434 435 435 435 436 436 436 436 436 437 439 439 440 440 440 442 442 443 444 446 446 446 447 448 450 451 451 452 454 455 456 457 458 459 459 466 468 468 468 469 470 470 470 471 471 472 472 472 472 474 475 475 479 481 483 484 485 488 488 488 489 490 492 494 494 499 502 503 507 514 517 523 523 525 526 529 530 531 534 549 572 588 589 594 628 694 698
Sample Range:
(leave blank to include all observations)
From:
To:
lowest quantile
highest quantile
step size
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par1 <- as(par1,'numeric') par2 <- as(par2,'numeric') par3 <- as(par3,'numeric') library(Hmisc) myseq <- seq(par1, par2, par3) hd <- hdquantile(x, probs = myseq, se = TRUE, na.rm = FALSE, names = TRUE, weights=FALSE) bitmap(file='test1.png') plot(myseq,hd,col=2,main=main,xlab=xlab,ylab=ylab) grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Harrell-Davis Quantiles',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'quantiles',header=TRUE) a<-table.element(a,'value',header=TRUE) a<-table.element(a,'standard error',header=TRUE) a<-table.row.end(a) length(hd) for (i in 1:length(hd)) { a<-table.row.start(a) a<-table.element(a,as(labels(hd)[i],'numeric'),header=TRUE) a<-table.element(a,as.matrix(hd[i])[1,1]) a<-table.element(a,as.matrix(attr(hd,'se')[i])[1,1]) 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