Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
650.02 624.99 585.99 579.98 599.33 605.91 604.64 609.90 621.25 600.25 625.04 642.59 641.24 632.32 624.60 596.06 614.98 596.97 605.23 600.40 591.53 570.98 580.45 564.51 571.48 580.07 585.98 576.52 610.82 634.96 641.33 642.00 677.14 678.63 685.09 706.15 709.68 733.99 754.50 767.65 744.75 681.79 675.15 687.92 687.92 663.03 647.18 667.97 698.37 684.21 701.96 715.63 700.01 737.97 739.99 704.51 753.67 775.60 785.37 792.89 799.71 806.19 831.52 814.30 810.31 794.19 783.05 790.05 799.87 801.42 845.72 880.23 909.18 873.32 871.22 879.73 875.04 880.93 880.37 893.49 923.00 896.60 885.35 906.57 890.41 856.91 870.21 846.90 879.58 889.07 903.11 876.39 872.35 871.99 1011.41 1015.20 1027.04 1016.03 1033.56 1031.89 1059.59 1069.87 1060.79 1100.62 1118.40 1105.00 1130.18 1150.53 1123.83 1180.97 1177.44
Name of dataseries
Source
Description
Season
No season
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
par4 <- 'No season' par3 <- 'Wekelijkse sluit prijs van het aandeel van Google inc. op de NYSE' par2 <- 'http://finance.yahoo.com/q/hp?s=GOOG+Historical+Prices' par1 <- 'GOOG WEEKLY STOCK PRICE' 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