Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1 218 2 5 3 2 4 2 5 2 6 5 8 3 9 2 10 11 13 1 15 7 17 6 18 1 19 4 20 1 23 5 25 3 26 1 27 2 29 2 30 2 31 2 33 1 35 2 37 2 38 2 39 1 40 4 42 1 43 1 44 4 45 7 46 3 48 7 49 2 52 7 53 2 54 1 56 2 58 4 59 1 60 5 62 1 63 2 64 3 65 7 66 1 68 1 69 4 71 7 73 4 74 2 75 2 76 1 77 2 78 1 79 2 80 1 81 6 83 5 84 2 85 2 87 1 88 5 90 3 91 2 92 1 93 1 94 3 96 2 97 2 98 4 100 1 101 1 102 1 103 1 105 5 106 1 107 1 108 2 109 2 110 6 112 3 113 3 115 5 117 1 118 2 119 4 120 1 121 2 122 1 123 2 124 3 125 1 126 1 127 4 129 3 130 2 131 4 135 3 137 2 138 5 139 1 140 1 141 1 144 9 145 3 146 2 148 13 150 2 152 7 153 1 154 2 155 2 156 2 158 1 159 2 160 6 162 9 163 5 164 1 165 2 166 3 167 3 168 2 169 7 170 2 171 1 172 4 173 5 174 1 176 2 177 7 179 1 180 1 181 2 182 2 183 3 184 2 185 3 186 4 187 1 188 4 189 2 190 4 191 3 193 1 194 3 195 8 196 2 198 18 199 1 200 3 201 2 202 5 203 1 204 2 205 7 206 1 207 1 208 3 209 1 210 5 211 1 213 8 214 6 215 5 216 2 217 5 219 2 220 3 221 3 222 1 223 2 224 1 225 6 226 2 227 4 228 2 229 1 230 2 231 5 232 1 233 2 234 1 235 4 236 3 237 6 238 5 239 3 240 12 242 10 243 3 244 3 245 4 246 2 247 5 248 15 249 5 250 2 251 12 252 5 253 4 254 1 255 4 256 3 257 3 258 5 259 4 260 6 262 3 263 12 264 1 265 6 266 5 267 5 269 6 270 5 271 6 272 2 273 9 274 3 275 4 277 9 278 3 279 14 280 1 281 4 282 3 283 5 284 2 285 9 287 17 288 10 289 4 290 20 291 24 292 3 293 5 294 11 295 6 296 2 297 10 298 6 299 9 300 1 301 1 302 18 304 2 305 9 306 8 308 2 309 10 310 7 312 5 313 6 314 4 315 8 316 3 317 4 318 4 319 12 320 5 321 2 322 31 323 28 324 7 325 2 326 1 327 9 328 3 329 6 330 26 331 59 332 1 333 1 334 8 335 9 336 4 337 10 338 14 339 3 340 9 341 4 342 10 343 4 344 11 345 5 346 3 347 2 348 8 349 1 350 15 351 5 352 18 354 3 355 6 356 8 357 5 358 3 359 3 360 40 361 2 362 9 363 5 364 119 365 41 366 8 367 24 368 14 369 6 370 14 371 11 372 23 373 28 374 4 375 317 376 3 377 7 378 1 379 14 380 119 381 24 382 21 383 7 384 3 385 12 386 2 387 8 388 14 389 3 390 20 391 8 392 4 393 5 394 16 395 8 396 5 397 2 398 13 399 7 400 12 402 38 403 1 404 5 405 19 406 3 407 1 408 14 409 7 410 412 412 18 413 21 414 91 415 23 416 11 417 176 418 18 419 15 420 4 421 28 422 2 423 15 424 448 425 251 426 55 427 5 428 2 429 10 430 148 431 11 432 26 433 2 434 6 435 3 436 1 437 2 438 7 440 6 442 17 444 7 445 1 446 6 447 12 448 41 449 1 450 26 451 2 452 22 453 4 455 30 456 8 457 4 458 36 459 8 460 370 461 1 462 21 463 105 464 6 465 1 466 19 467 102 468 3 470 7 471 27 472 1 473 1 474 12 475 402 476 53 477 1 478 3 480 2 481 1 482 3 484 12 486 4 487 3 489 1 490 2 491 1 492 102 495 3 496 6 497 14 498 40 499 3 500 38 501 22 503 5 504 2 505 2 507 109 508 37 509 1 510 27 511 2 512 35 513 61 514 9 515 28 516 11 517 2 519 2 520 2 521 7 522 2 524 3 526 10 527 3 529 2 530 8 531 2 533 1 534 5 537 27 538 5 540 1 541 2 542 116 543 2 545 21 546 4 547 3 548 1 549 4 550 12 552 2 553 3 554 4 556 2 557 87 558 11 560 1 563 5 565 4 566 3 567 5 569 2 571 50 574 5 576 2 577 4 578 2 579 27 580 5 582 2 583 5 584 2 585 2 586 99 587 16 590 2 591 20 592 6 595 7 597 5 598 1 600 1 602 1 606 3 607 1 608 1 609 2 612 1 613 2 614 2 615 1 616 1 617 2 620 1 621 55 622 1 623 1 624 12 626 1 627 1 628 13 629 1 630 2 631 3 633 3 634 1 635 65 636 2 639 1 646 2 647 1 648 1 649 1 658 4 661 2 664 2 668 1 670 1 673 7 675 6 680 1 684 1 687 1 688 2 700 1 701 1 702 1 710 2 712 2 718 1 724 1 728 1 735 2 743 1 749 2 750 1 757 1 765 2 766 1 780 1 782 3 784 1 787 1 789 4 794 1 795 2 796 1 824 2 825 1 831 2 836 1 853 2 856 1 859 1 877 1 886 1 930 1 945 1
Sample Range:
(leave blank to include all observations)
From:
To:
Number of bins
(leave empty to use default)
(?)
Colour
grey
grey
white
blue
red
black
brown
yellow
Bins are closed on right side
FALSE
FALSE
TRUE
Scale of data
Unknown
Unknown
Interval/Ratio
3-point Likert
4-point Likert
5-point Likert
6-point Likert
7-point Likert
8-point Likert
9-point Likert
10-point Likert
11-point Likert
Chart options
Title:
Label x-axis:
R Code
par1 <- as.numeric(par1) if (par3 == 'TRUE') par3 <- TRUE if (par3 == 'FALSE') par3 <- FALSE if (par4 == 'Unknown') par1 <- as.numeric(par1) if (par4 == 'Interval/Ratio') par1 <- as.numeric(par1) if (par4 == '3-point Likert') par1 <- c(1:3 - 0.5, 3.5) if (par4 == '4-point Likert') par1 <- c(1:4 - 0.5, 4.5) if (par4 == '5-point Likert') par1 <- c(1:5 - 0.5, 5.5) if (par4 == '6-point Likert') par1 <- c(1:6 - 0.5, 6.5) if (par4 == '7-point Likert') par1 <- c(1:7 - 0.5, 7.5) if (par4 == '8-point Likert') par1 <- c(1:8 - 0.5, 8.5) if (par4 == '9-point Likert') par1 <- c(1:9 - 0.5, 9.5) if (par4 == '10-point Likert') par1 <- c(1:10 - 0.5, 10.5) bitmap(file='test1.png') if(is.numeric(x[1])) { if (is.na(par1)) { myhist<-hist(x,col=par2,main=main,xlab=xlab,right=par3) } else { if (par1 < 0) par1 <- 3 if (par1 > 50) par1 <- 50 myhist<-hist(x,breaks=par1,col=par2,main=main,xlab=xlab,right=par3) } } else { barplot(mytab <- sort(table(x),T),col=par2,main='Frequency Plot',xlab=xlab,ylab='Absolute Frequency') } dev.off() if(is.numeric(x[1])) { myhist n <- length(x) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Frequency Table (Histogram)',6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Bins',header=TRUE) a<-table.element(a,'Midpoint',header=TRUE) a<-table.element(a,'Abs. Frequency',header=TRUE) a<-table.element(a,'Rel. Frequency',header=TRUE) a<-table.element(a,'Cumul. Rel. Freq.',header=TRUE) a<-table.element(a,'Density',header=TRUE) a<-table.row.end(a) crf <- 0 if (par3 == FALSE) mybracket <- '[' else mybracket <- ']' mynumrows <- (length(myhist$breaks)-1) for (i in 1:mynumrows) { a<-table.row.start(a) if (i == 1) dum <- paste('[',myhist$breaks[i],sep='') else dum <- paste(mybracket,myhist$breaks[i],sep='') dum <- paste(dum,myhist$breaks[i+1],sep=',') if (i==mynumrows) dum <- paste(dum,']',sep='') else dum <- paste(dum,mybracket,sep='') a<-table.element(a,dum,header=TRUE) a<-table.element(a,myhist$mids[i]) a<-table.element(a,myhist$counts[i]) rf <- myhist$counts[i]/n crf <- crf + rf a<-table.element(a,round(rf,6)) a<-table.element(a,round(crf,6)) a<-table.element(a,round(myhist$density[i],6)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') } else { mytab reltab <- mytab / sum(mytab) n <- length(mytab) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Frequency Table (Categorical Data)',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Category',header=TRUE) a<-table.element(a,'Abs. Frequency',header=TRUE) a<-table.element(a,'Rel. Frequency',header=TRUE) a<-table.row.end(a) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,labels(mytab)$x[i],header=TRUE) a<-table.element(a,mytab[i]) a<-table.element(a,round(reltab[i],4)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable1.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