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 computationTue, 16 Nov 2010 14:29:07 +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/16/t1289918109qj5gfhaxb703ptw.htm/, Retrieved Sun, 05 May 2024 03:16:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=95852, Retrieved Sun, 05 May 2024 03:16:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact109
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]
-  MPD  [Bivariate Data Series] [Mini tutorial Alg...] [2010-11-15 16:43:36] [49c7a512c56172bc46ae7e93e5b58c1c]
-   PD      [Bivariate Data Series] [W6] [2010-11-16 14:29:07] [476d588d86fe88306e0383abd6004235] [Current]
Feedback Forum

Post a new message
Dataseries X:
72
70
90
81
80
40
49
80
90
86
100
40
100
75
83
100
77
55
97
60
40
100
100
59
65
91
100
85
62
68
75
80
80
34
42
94
85
95
90
80
61
65
73
81
40
90
95
67
90
90
90
85
91
100
60
100
90
85
81
80
45
90
93
75
80
85
70
80
96
62
82
50
75
59
78
95
70
80
75
95
70
90
59
16
60
87
80
70
80
100
100
81
49
75
70
91
75
85
84
100
90
87
86
60
100
78
80
90
81
71
92
50
81
90
90
85
80
95
100
79
80
50
70
81
91
100
57
79
95
90
81
70
90
40
60
100
80
81
100
87
100
88
100
93
60
85
100
Dataseries Y:
68
70
90
95
75
69
39
80
100
80
81
55
100
75
70
100
61
83
90
60
44
90
100
82
80
88
100
83
75
55
75
80
70
100
60
95
95
90
90
80
76
65
78
70
60
65
100
65
90
90
90
80
91
100
90
80
100
88
61
90
58
90
88
90
80
85
60
95
100
61
80
90
75
85
95
78
90
80
100
30
70
67
35
100
96
74
70
80
100
100
74
59
35
80
91
75
82
100
90
50
90
60
100
80
65
100
72
98
93
45
88
82
90
100
75
100
100
80
71
71
60
100
80
85
100
61
73
80
60
100
83
70
91
45
70
95
80
78
100
100
100
82
90
87
75
100




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 0 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=95852&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=95852&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=95852&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 time0 seconds
R Server'George Udny Yule' @ 72.249.76.132







Bivariate Dataseries
Name of dataseries xspreken binnen vriendengroep
Source of xDatasheet studSHW2010
Description of xScore
Name of dataseries ypresenteren voor vriendengroep
Source of yDatasheet studSHW2010
Description of yScores
Number of observations147

\begin{tabular}{lllllllll}
\hline
Bivariate Dataseries \tabularnewline
Name of dataseries x & spreken binnen vriendengroep \tabularnewline
Source of x & Datasheet studSHW2010 \tabularnewline
Description of x & Score \tabularnewline
Name of dataseries y & presenteren voor vriendengroep \tabularnewline
Source of y & Datasheet studSHW2010 \tabularnewline
Description of y & Scores \tabularnewline
Number of observations & 147 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=95852&T=1

[TABLE]
[ROW][C]Bivariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries x[/C][C]spreken binnen vriendengroep[/C][/ROW]
[ROW][C]Source of x[/C][C]Datasheet studSHW2010[/C][/ROW]
[ROW][C]Description of x[/C][C]Score[/C][/ROW]
[ROW][C]Name of dataseries y[/C][C]presenteren voor vriendengroep[/C][/ROW]
[ROW][C]Source of y[/C][C]Datasheet studSHW2010[/C][/ROW]
[ROW][C]Description of y[/C][C]Scores[/C][/ROW]
[ROW][C]Number of observations[/C][C]147[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=95852&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=95852&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 xspreken binnen vriendengroep
Source of xDatasheet studSHW2010
Description of xScore
Name of dataseries ypresenteren voor vriendengroep
Source of yDatasheet studSHW2010
Description of yScores
Number of observations147



Parameters (Session):
par1 = spreken binnen vriendengroep ; par2 = Datasheet studSHW2010 ; par3 = Score ; par4 = presenteren voor vriendengroep ; par5 = Datasheet studSHW2010 ; par6 = Scores ;
Parameters (R input):
par1 = spreken binnen vriendengroep ; par2 = Datasheet studSHW2010 ; par3 = Score ; par4 = presenteren voor vriendengroep ; par5 = Datasheet studSHW2010 ; par6 = Scores ;
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')