Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_bidataseries.wasp
Title produced by softwareBivariate Data Series
Date of computationMon, 05 Jul 2021 04:51:11 +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/2021/Jul/05/t16254647139irvncd3eh424th.htm/, Retrieved Sat, 04 May 2024 21:25:46 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Sat, 04 May 2024 21:25:46 +0200
QR Codes:

Original text written by user:SPOT BASIS VS MEALSTOX, ALL WKLY DATA SINCE 2014
IsPrivate?This computation is/was private until YYYY-MM-DD
User-defined keywords
Estimated Impact0
Dataseries 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
Dataseries 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




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 x
Source of x
Description of x
Name of dataseries y
Source of y
Description of y
Number of observations127

\begin{tabular}{lllllllll}
\hline
Bivariate Dataseries \tabularnewline
Name of dataseries x &  \tabularnewline
Source of x &  \tabularnewline
Description of x &  \tabularnewline
Name of dataseries y &  \tabularnewline
Source of y &  \tabularnewline
Description of y &  \tabularnewline
Number of observations & 127 \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][/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][/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]127[/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 x
Source of x
Description of x
Name of dataseries y
Source of y
Description of y
Number of observations127







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  493.2   800.6   932.5   980.3  1145.2  1494.5 
Summary Statistics of dataseries y
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
-153.30  -33.35   20.00   22.21   60.85  448.30 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  493.2   800.6   932.5   980.3  1145.2  1494.5 
\tabularnewline Summary Statistics of dataseries y \tabularnewline
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
-153.30  -33.35   20.00   22.21   60.85  448.30 
\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. 
  493.2   800.6   932.5   980.3  1145.2  1494.5 
[/C][/ROW] [ROW][C]Summary Statistics of dataseries y[/C][/ROW] [ROW][C]
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
-153.30  -33.35   20.00   22.21   60.85  448.30 
[/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. 
  493.2   800.6   932.5   980.3  1145.2  1494.5 
Summary Statistics of dataseries y
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
-153.30  -33.35   20.00   22.21   60.85  448.30 



Parameters (Session):
Parameters (R input):
par1 = ; par2 = ; par3 = ; par4 = ; 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')