Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
171380 177473.4 165059.4 158175.7 153155.4 144994.8 106958.9 97058.6 99808.1 119600.6 149046.5 188476 178732.3 181605.1 173177.1 179099.9 179348.89339697 144680.08230441 148367.70434949 168071.0425 193012.88904801 191411.36288073 196388.75630231 191021.81435966 174411.97514088 170438.0524583 203938.35976364 216839.63785332 188331.62729734 204329.32479922 231760.56242659 241635.15924967
Data Y:
217829 240241.7 239051.7 246464.5 228891.1 197867.6 162481.3 148509.1 145747.7 159647.4 185979 216834.9 210560 222582 201903.3 204623.8 195642.43812383 163769.45144036 138633.38717802 163999.575 171293.7542423 188909.78914584 194603.50086402 192177.71723536 178592.93454859 163221.72832722 175648.43522185 189041.70871173 158366.10619425 164943.77237346 185048.7637639 181858.23081587
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