Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1671 1385 1632 1313 1300 1431 1398 1198 1292 1434 1660 1837 1455 1315 1642 1069 1209 1586 1122 1063 1125 1414 1347 1403 1299 1547 1515 1247 1639 1296 1063 1282 1365 1268 1532 1455 1393 1515 1510 1225 1577 1417 1224 1693 1633 1639 1914 1586 1552 2081 1500 1437 1470 1849 1387 1592 1589 1798 1935 1887 2027 2080 1556 1682 1785 1869 1781 2082 2570 1862 1936 1504 1765 1607 1577 1493 1615 1700 1335 1523 1621 1539 1637 1523 1418 1819 1594 1359 1261 1722 1407 1380 1642 1681 1542 1704 1431
Data Y:
2319 2383 2513 2553 2341 2540 2371 2122 2301 2512 3145 2741 2548 1987 2281 2016 2434 2637 1831 1851 1839 2609 2417 2394 2372 2717 2998 2538 3007 2475 2175 2465 2279 2323 2746 2601 2486 2718 2646 2551 2712 2606 2365 3533 3509 2912 3599 2719 2869 4085 2686 2545 3071 3388 2652 3190 2884 3295 3818 3226 3953 3810 2877 3515 3708 3450 3360 4110 4384 3729 4263 3505 3674 3911 2951 3317 3417 3498 2768 2899 3171 3004 3481 3016 2595 3509 2833 3125 2556 3628 2876 2575 2903 3438 2926 3068 3015
Sample Range:
(leave blank to include all observations)
From:
To:
color left
(?)
grey
grey
white
blue
red
black
brown
yellow
color right
(?)
grey
grey
white
blue
red
black
brown
yellow
print densities
(?)
TRUE
TRUE
FALSE
Name of X series
Name of Y series
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
if (par3 == 'TRUE') par3 <- TRUE if (par3 == 'FALSE') par3 <- FALSE library(Hmisc) z <- data.frame(cbind(x,y)) names(z) <- list(par4,par5) bitmap(file='plot.png') out <- histbackback(z, probability=par3, main = main, ylab = ylab) barplot(-out$left, col=par1, horiz=TRUE, space=0, add=TRUE, axes=FALSE) barplot(out$right, col=par2, horiz=TRUE, space=0, add=TRUE, axes=FALSE) dev.off()
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