Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
43 30 30 54 30 16 42 0 30 44 70 30 5 30 62 91 41 73 60 20 4 60 62 60 76 65 60 88 16 65 35 70 21 60 100 65 80 65 60 31 55 74 32 10 20 40 55 70 80 50 55 29 70 50 60 60 27 38 70 15 40 37 10 75 60 55 91 29 50 10 57 45 70 38 70 40 61 15 25 54 36 50 68 14 68 100 74 59 50 60 60 70 45 60 21 0 65 33 70 20 60 65 60 53 71 32 70 60 60 50 25 20 80 53 39 53 39 70 60 77 80 50 69 70 36 30 57 80 91 8 60 63 60 18 39 41 50 65 80 68 58 30 60 100
Data Y:
10 20 40 67 38 61 29 0 30 39 70 65 5 30 50 90 45 75 76 15 10 60 67 60 80 70 70 87 27 65 56 82 30 38 56 70 80 71 50 31 40 71 71 10 20 40 55 80 80 72 60 29 70 60 63 70 38 40 80 24 40 47 70 75 60 65 91 68 90 20 61 13 80 40 70 39 93 10 25 56 18 60 74 35 71 100 64 50 40 35 60 70 55 65 30 25 80 26 78 10 70 65 80 60 74 49 70 66 65 40 40 20 90 48 25 35 40 77 70 82 80 52 71 70 50 80 72 80 91 18 70 76 65 35 62 76 50 68 80 90 79 30 60 100
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')
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