Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_bidataseries.wasp
Title produced by softwareBivariate Data Series
Date of computationSun, 13 Oct 2019 19:12:22 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2019/Oct/13/t1570986805hkvfeaze41hi3sv.htm/, Retrieved Thu, 02 May 2024 02:38:25 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Thu, 02 May 2024 02:38:25 +0200
QR Codes:

Original text written by user:
IsPrivate?This computation is private
User-defined keywords
Estimated Impact0
Dataseries X:
38
52
78
159
Dataseries Y:
1
0.8
0.6
0.4




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center







Bivariate Dataseries
Name of dataseries xTime/s
Source of x
Description of x
Name of dataseries y[I-]
Source of y
Description of y
Number of observations4

\begin{tabular}{lllllllll}
\hline
Bivariate Dataseries \tabularnewline
Name of dataseries x & Time/s \tabularnewline
Source of x &  \tabularnewline
Description of x &  \tabularnewline
Name of dataseries y & [I-] \tabularnewline
Source of y &  \tabularnewline
Description of y &  \tabularnewline
Number of observations & 4 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&T=1

[TABLE]
[ROW][C]Bivariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries x[/C][C]Time/s[/C][/ROW]
[ROW][C]Source of x[/C][C][/C][/ROW]
[ROW][C]Description of x[/C][C][/C][/ROW]
[ROW][C]Name of dataseries y[/C][C][I-][/C][/ROW]
[ROW][C]Source of y[/C][C][/C][/ROW]
[ROW][C]Description of y[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]4[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Bivariate Dataseries
Name of dataseries xTime/s
Source of x
Description of x
Name of dataseries y[I-]
Source of y
Description of y
Number of observations4







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  38.00   48.50   65.00   81.75   98.25  159.00 
Summary Statistics of dataseries y
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   0.40    0.55    0.70    0.70    0.85    1.00 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  38.00   48.50   65.00   81.75   98.25  159.00 
\tabularnewline Summary Statistics of dataseries y \tabularnewline
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   0.40    0.55    0.70    0.70    0.85    1.00 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  38.00   48.50   65.00   81.75   98.25  159.00 
[/C][/ROW] [ROW][C]Summary Statistics of dataseries y[/C][/ROW] [ROW][C]
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   0.40    0.55    0.70    0.70    0.85    1.00 
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  38.00   48.50   65.00   81.75   98.25  159.00 
Summary Statistics of dataseries y
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   0.40    0.55    0.70    0.70    0.85    1.00 



Parameters (Session):
par1 = Time/s ; par4 = [I-] ;
Parameters (R input):
par1 = Time/s ; par2 = ; par3 = ; par4 = [I-] ; par5 = ; par6 = ;
R code (references can be found in the software module):
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('
',RC.texteval('summary(x)'),'
',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('
',RC.texteval('summary(y)'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')