Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
849.46 911.93 984.20 946.65 969.18 899.54 988.84 880.13 836.42 876.78 868.84 863.87 885.55 792.98 785.66 729.56 672.49 493.21 576.50 679.14 739.60 710.26 719.43 786.23 832.74 833.73 821.45 764.06 807.42 828.93 804.86 766.85 758.54 711.30 795.33 745.38 703.52 695.08 729.65 741.11 778.90 953.28 1029.75 784.60 890.59 919.01 883.12 781.78 670.40 686.87 649.08 565.85 1279.62 1240.37 1232.59 1269.13 1132.67 1116.30 1201.30 1302.47 1314.46 1242.01 1187.80 1111.50 1092.00 997.42 965.39 949.20 933.82 888.22 1248.47 1249.77 1290.07 1406.03 1446.90 1494.10 1494.48 1427.50 1431.89 1345.15 1283.16 1382.74 1309.63 1265.04 1123.16 1012.05 939.90 988.92 763.31 796.35 914.30 994.83 977.79 956.73 908.42 932.47 913.67 915.07 895.93 826.27 876.35 853.76 827.65 816.91 739.92 754.61 876.80 1030.65 1093.61 1111.43 1062.86 1082.70 1074.12 1083.63 1140.90 1228.01 1313.60 1347.50 1342.30 1256.90 1265.07 1297.37 943.73 1043.49 1201.53 1149.40 914.00
Data Y:
65.0 55.3 53.0 31.3 27.7 62.3 42.7 18.3 33.3 -8.7 7.3 -12.3 31.7 20.0 13.3 418.7 448.3 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 20.0 100.0 93.3 150.0 160.0 115.0 100.0 110.0 111.7 90.0 86.7 60.0 75.0 76.7 221.7 250.0 286.7 370.0 400.0 -13.3 0.0 -1.7 -10.0 -8.3 -11.7 -16.7 -20.0 -25.8 -1.7 5.0 6.7 15.0 43.3 66.7 86.7 95.0 111.7 -95.0 -108.3 -143.3 -108.3 -131.7 -70.0 -76.7 -125.0 -106.7 -90.0 -81.7 -35.0 50.0 90.0 91.7 123.3 98.3 110.0 23.3 6.7 -21.7 -30.0 -51.7 -56.7 -40.0 -31.7 -31.7 -30.0 -25.0 -10.0 36.7 55.0 63.3 55.0 61.7 -140.0 -150.0 -153.3 -145.0 -101.7 -60.0 -25.0 1.7 26.7 28.3 -27.5 -53.3 -58.3 -60.0 -75.0 -53.3 -50.0 -53.3 -90.0 -45.0 -36.7 -48.3
Name of dataseries x
Source of x
Description of x
Name of dataseries y
Source of y
Description of y
Chart options
Label y-axis:
Label x-axis:
R Code
bitmap(file='test1.png') op <- par(mfrow=c(2,2)) plot(x,type='b',main='Plot of x',xlab=xlab,ylab=ylab) plot(y,type='b',main='Plot of y',xlab=xlab,ylab=ylab) hist(x) hist(y) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Bivariate Dataseries',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Name of dataseries x',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Source of x',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Description of x',header=TRUE) a<-table.element(a,par3) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Name of dataseries y',header=TRUE) a<-table.element(a,par4) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Source of y',header=TRUE) a<-table.element(a,par5) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Description of y',header=TRUE) a<-table.element(a,par6) 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') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('summary(x)'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Summary Statistics of dataseries y',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('summary(y)'),'</pre>',sep='')) 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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation