Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
362 361 361 356 364 375 391 379 389 387 379 385 399 388 392 395 395 370 376 367 356 362 346 347 350 361 358 334 331 337 337 341 344 342 353 355 354 353 365 366 354 353 363 368 366 376 383 382 386 389 388 382 379 374 380 383 384 385 378 378 378 383 381 382 382 390 401 392 401 406 408 421 412 407 411 405 416 410 397 409 406 406 412 426 423 425 425 423 434 434 440 422 431 442 448 448 475 481 488 476 474 455 455 434 447 455 459 465 464 468 467 468 467 454 470 477 462 467 469 467 469 466 469 482 474 477 468 469 480 474 474 471 443 441 440 436 442 437 444 440 444 440 438 427 421 424 422 436 435 433 420 417 411 430 428 428 426 432 426 426 424 424 431 441 444 447 440 442 439 439 453 459 462 466 464 473 469 474 480 482 486 486 484 484 487 490 491 495 497 496 489 485 490 493 487 495 506 492 500 499 518 517 505 522 519 519 522 519 543 537 537 520 523 526 537 534 536 557 554 550 549 575 595 636 628 594 590 590 605 618 630 638 645 640 640 634 647 682 679 677 697 702 679 685 695 685 688 685 694 694 697 700 695 693 693 722 725 715
Name of dataseries
Source
Description
Season
12
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
if (par4 != 'No season') { par4 <- as.numeric(par4) if (par4 < 4) par4 <- 12 } summary(x) n <- length(x) bitmap(file='test1.png') if (par4=='No season') { plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n') axis(1,at=seq(1,n,10)) } if (par4!='No season') { plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n') axis(1,at=seq(1,n,par4)) grid(nx=0,ny=NULL,col='black') abline(v=seq(1,n,par4),col='black',lty='dotted') } dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Univariate Dataseries',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Name of dataseries',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Source',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Description',header=TRUE) a<-table.element(a,par3) 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.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