Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_backtobackhist.wasp
Title produced by softwareBack to Back Histogram
Date of computationThu, 06 Aug 2020 01:59:01 +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/2020/Aug/06/t1596672126rtqag0rblc5jnxv.htm/, Retrieved Thu, 28 Mar 2024 23:28:55 +0100
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Thu, 28 Mar 2024 23:28:55 +0100
QR Codes:

Original text written by user:
IsPrivate?This computation is private
User-defined keywords
Estimated Impact0
Dataseries X:
153
153
153
155
160
162
162
163
164
165
165
166
167
169
169
171
172
172
173
175
175
176
179
179
183
183
184
190
Dataseries Y:
138
141
145
146
147
149
150
150
150
151
152
152
153
155
155
155
156
156
157
157
157
157
157
158
159
160
160
161
161
162
163
163
163
163
164
164
165
165
165
165
165
166
166
167
168
168
168
169
169
170
170
171
172
172
172
172
173
175
175
175
175
177
177
177
178
180
180
180
180
180
181
181
181
181
183
184
185
186




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 time2 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]2 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 time2 seconds
R ServerBig Analytics Cloud Computing Center







Summary statistics (variable X)
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  153.0   162.8   169.0   169.2   175.2   190.0 
Summary statistics (variable Y)
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  138.0   157.0   165.0   165.3   175.0   186.0 

\begin{tabular}{lllllllll}
\hline
Summary statistics (variable X) \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  153.0   162.8   169.0   169.2   175.2   190.0 
\tabularnewline Summary statistics (variable Y) \tabularnewline
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  138.0   157.0   165.0   165.3   175.0   186.0 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=&T=1

[TABLE]
[ROW][C]Summary statistics (variable X)[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  153.0   162.8   169.0   169.2   175.2   190.0 
[/C][/ROW] [ROW][C]Summary statistics (variable Y)[/C][/ROW] [ROW][C]
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  138.0   157.0   165.0   165.3   175.0   186.0 
[/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:

Summary statistics (variable X)
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  153.0   162.8   169.0   169.2   175.2   190.0 
Summary statistics (variable Y)
> summary(y)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  138.0   157.0   165.0   165.3   175.0   186.0 



Parameters (Session):
par1 = blue ; par2 = red ; par3 = FALSE ; par4 = KSHS 9A Maths Students (%) ; par5 = Census @ School Students (%) ;
Parameters (R input):
par1 = blue ; par2 = red ; par3 = FALSE ; par4 = KSHS 9A Maths Students (%) ; par5 = Census @ School Students (%) ;
R code (references can be found in the software module):
par5 <- 'Census @ School Students (%)'
par4 <- 'KSHS 9A Maths Students (%)'
par3 <- 'FALSE'
par2 <- 'red'
par1 <- 'blue'
if (par3 == 'TRUE') par3 <- TRUE
if (par3 == 'FALSE') par3 <- FALSE
library(Hmisc)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary statistics (variable 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 (variable 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='mytable.tab')
summary(x)
summary(y)
z <- data.frame(cbind(x,y))
names(z) <- list(par4,par5)
bitmap(file='plot.png')
out <- histbackback(z, probability=par3, main = main, ylab = ylab)
barplot(-out$left, col=par1, horiz=TRUE, space=0, add=TRUE, axes=FALSE)
barplot(out$right, col=par2, horiz=TRUE, space=0, add=TRUE, axes=FALSE)
dev.off()