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 computationFri, 12 Nov 2010 15:51:29 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Nov/12/t1289576998iss01q3t48s2ltz.htm/, Retrieved Tue, 30 Apr 2024 08:09:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=94222, Retrieved Tue, 30 Apr 2024 08:09:39 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact130
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
- RMPD    [Bivariate Data Series] [] [2010-11-12 15:51:29] [1d094c42a82a95b45a19e32ad4bfff5f] [Current]
-   PD      [Bivariate Data Series] [] [2010-11-14 16:33:49] [d39e5c40c631ed6c22677d2e41dbfc7d]
Feedback Forum

Post a new message
Dataseries X:
90
80
100
96
100
91
81
80
100
94
100
80
100
90
100
100
100
90
97
90
86
100
100
82
90
94
100
95
100
88
80
81
100
100
100
100
95
100
90
90
100
85
98
91
90
70
100
83
100
100
100
100
100
100
86
100
100
100
100
100
76
100
100
100
100
80
100
100
100
89
100
90
90
95
95
99
90
90
100
100
90
100
81
100
100
98
96
90
90
100
100
88
73
85
100
100
99
90
100
100
100
91
96
80
100
85
90
100
94
95
96
80
100
82
90
100
90
100
100
94
90
79
95
100
91
100
100
76
87
95
71
100
100
100
92
93
80
100
80
90
100
100
100
99
85
100
100
85
100
100
Dataseries Y:
32
30
60
67
40
59
61
20
30
51
80
70
10
55
87
90
57
90
72
20
19

70
61
53
81
75
65
71
39
60
50
60
41
37
35
70
80
70
60
60
60
72
69
30
50
80
56
80
60
50
65

80
37
71
70
49
61
90
17
50
73
70
20
45
80
70
90
58

90
60
78
31
80
70
65
30
71
50
20
55
38
90
86
65
70
70
100
80
39
62
75
60
86
53
74
69
50
65
44
80
20
70
28
40
60
81
59
64
55
69
70
80
50
55
50
70
22
50
46
60
71
60
91
80
56
86
70

80
74
65
91
50
90
79
60
60
100
67
50
83
80
70
87
51
60
100




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=94222&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=94222&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=94222&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Bivariate Dataseries
Name of dataseries xPraten met vrienden
Source of xExcel studSHW2010
Description of x
Name of dataseries yPraten met vreemden
Source of yExcel studSHW2010
Description of y
Number of observations150

\begin{tabular}{lllllllll}
\hline
Bivariate Dataseries \tabularnewline
Name of dataseries x & Praten met vrienden \tabularnewline
Source of x & Excel studSHW2010 \tabularnewline
Description of x &  \tabularnewline
Name of dataseries y & Praten met vreemden \tabularnewline
Source of y & Excel studSHW2010 \tabularnewline
Description of y &  \tabularnewline
Number of observations & 150 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=94222&T=1

[TABLE]
[ROW][C]Bivariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries x[/C][C]Praten met vrienden[/C][/ROW]
[ROW][C]Source of x[/C][C]Excel studSHW2010[/C][/ROW]
[ROW][C]Description of x[/C][C][/C][/ROW]
[ROW][C]Name of dataseries y[/C][C]Praten met vreemden[/C][/ROW]
[ROW][C]Source of y[/C][C]Excel studSHW2010[/C][/ROW]
[ROW][C]Description of y[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]150[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=94222&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=94222&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 xPraten met vrienden
Source of xExcel studSHW2010
Description of x
Name of dataseries yPraten met vreemden
Source of yExcel studSHW2010
Description of y
Number of observations150



Parameters (Session):
par1 = Praten met vrienden ; par2 = Excel studSHW2010 ; par4 = Praten met vreemden ; par5 = Excel studSHW2010 ;
Parameters (R input):
par1 = Praten met vrienden ; par2 = Excel studSHW2010 ; par3 = ; par4 = Praten met vreemden ; par5 = Excel studSHW2010 ; 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')