Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
15 15 14 10 10 12 18 12 14 18 9 11 11 17 8 16 21 24 21 14 7 18 18 13 11 13 13 18 14 12 9 12 8 5 10 11 11 12 12 15 12 16 14 17 13 10 17 12 13 13 11 13 12 12 12 9 7 17 12 12 9 9 13 10 11 12 10 13 6 7 13 11 18 9 9 11 11 15 8 11 14 14 12 12 8 11 10 17 16 13 15 11 12 16 20 16 11 15 15 12 9 24 15 18 17 12 15 11 11 15 12 14 11 20 11 12 17 12 11 10 11 12 9 8 6 12 15 13 17 14 16 15 16 11 11 16 15 14 9 13 11 14 11 12 8 7 11 13 9 12 10 12
Data Y:
69 53 43 60 49 62 45 50 75 82 60 59 21 62 54 47 59 37 43 48 79 62 16 38 58 60 67 55 47 59 49 47 57 39 49 26 53 75 65 49 48 45 31 61 49 69 54 80 57 34 69 44 70 51 66 18 74 59 48 55 44 56 65 77 46 70 39 55 44 45 45 49 65 45 71 48 41 40 64 56 52 41 42 54 40 40 51 48 80 38 57 28 51 46 58 67 72 26 54 53 64 47 43 66 54 62 52 64 55 57 74 32 38 66 37 26 64 28 66 65 48 44 64 39 50 66 48 70 66 61 31 61 54 34 62 47 52 37 46 38 63 34 46 40 30 35 51 56 68 39 44 58
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation