FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_admissions1.wasp
Title produced by softwareNice Picture Generator
Date of computationTue, 08 Jul 2008 03:58:39 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Jul/08/t12155112783u84guewl35nj0l.htm/, Retrieved Fri, 24 May 2024 11:56:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=13808, Retrieved Fri, 24 May 2024 11:56:14 +0000
QR Codes:

Original text written by user:
IsPrivate?This computation is/was private until 2015-08-08
User-defined keywords
Estimated Impact227

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Nice Picture Generator] [UKEMCI1] [2008-07-08 09:58:39] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
30	26	37	35	43	5	32	0	1	1	1	0
32	39	40	34	42	2	29	1	1	1	1	1
35	46	49	33	47	1	39	1	1	1	1	1
34	25	30	32	33	8	27	0	1	0	0	NA
31	40	46	34	38	5	31	0	1	0	0	0
32	30	37	40	38	8	29	0	0	0	0	0
29	25	31	32	33	1	30	0	1	0	0	1
34	27	34	26	31	6	28	0	NA	NA	1	0
33	40	41	20	32	6	33	0	1	1	1	0
33	38	50	47	40	5	34	0	1	0	0	0
33	26	29	39	44	1	30	1	1	1	1	1
33	28	36	25	40	4	31	1	1	1	1	1
34	36	42	41	37	10	28	0	0	0	0	0
32	45	46	39	38	9	34	1	1	1	1	1
25	16	19	37	30	8	16	0	1	0	0	NA
34	41	44	35	38	8	29	0	0	NA	1	0
31	40	46	39	42	2	36	0	1	1	1	0
34	27	36	34	34	5	34	1	1	1	1	1
35	39	44	23	32	10	33	0	1	1	1	0
31	29	30	38	32	13	25	1	1	1	1	1
30	33	40	33	37	5	26	0	0	0	0	NA

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time72 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

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

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

As an alternative you can also use a QR Code:  
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 time72 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 3 ; par2 = 5 ; par3 = 7 ; par4 = 8 ; par5 = Cloze Attempted ; par6 = Cloze Audio 10 ; par7 = Error Detection ; par8 = Overall Result ;
Parameters (R input):
R code (references can be found in the software module):
library(GenKern)
x <- as.data.frame(t(x))
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
par4 <- as.numeric(par4)
bitmap(file='test1.png')
par(mfrow=c(2,2))
op <- KernSur(as.numeric(x[,par3]),as.numeric(x[,par1]), xgridsize=150, ygridsize=150,na.rm=T)
image(op$xords, op$yords, op$zden, col=terrain.colors(100), axes=TRUE, xlab=par7, ylab=par5)
contour(op$xords, op$yords, op$zden, add=TRUE)
box()
lines(stats::lowess(cbind(as.numeric(x[,par3]),as.numeric(x[,par1]))),col='white')
op <- KernSur(as.numeric(x[,par4]),as.numeric(x[,par1]), xgridsize=150, ygridsize=150,na.rm=T)
image(op$xords, op$yords, op$zden, col=terrain.colors(100), axes=TRUE, xlab=par8, ylab=par5)
contour(op$xords, op$yords, op$zden, add=TRUE)
box()
lines(stats::lowess(cbind(as.numeric(x[,par4]),as.numeric(x[,par1]))),col='white')
op <- KernSur(as.numeric(x[,par3]),as.numeric(x[,par2]), xgridsize=150, ygridsize=150,na.rm=T)
image(op$xords, op$yords, op$zden, col=terrain.colors(100), axes=TRUE, xlab=par7, ylab=par6)
contour(op$xords, op$yords, op$zden, add=TRUE)
box()
lines(stats::lowess(cbind(as.numeric(x[,par3]),as.numeric(x[,par2]))),col='white')
op <- KernSur(as.numeric(x[,par4]),as.numeric(x[,par2]), xgridsize=150, ygridsize=150,na.rm=T)
image(op$xords, op$yords, op$zden, col=terrain.colors(100), axes=TRUE, xlab=par8, ylab=par6)
contour(op$xords, op$yords, op$zden, add=TRUE)
box()
lines(stats::lowess(cbind(as.numeric(x[,par4]),as.numeric(x[,par2]))),col='white')
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Kendall Rank Correlations',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'',header=TRUE)
a<-table.element(a,'tau',header=TRUE)
a<-table.element(a,'p-value',header=TRUE)
a<-table.row.end(a)
r <- cor.test(as.numeric(x[,par3]),as.numeric(x[,par1]),method='kendall')
a<-table.row.start(a)
dum <- 'tau('
dum <- paste(dum,par7,sep='')
dum <- paste(dum,par5,sep=',')
dum <- paste(dum,')',sep='')
a<-table.element(a,dum,header=TRUE)
a<-table.element(a,r$estimate)
a<-table.element(a,r$p.value)
a<-table.row.end(a)
r <- cor.test(as.numeric(x[,par4]),as.numeric(x[,par1]),method='kendall')
a<-table.row.start(a)
dum <- 'tau('
dum <- paste(dum,par8,sep='')
dum <- paste(dum,par5,sep=',')
dum <- paste(dum,')',sep='')
a<-table.element(a,dum,header=TRUE)
a<-table.element(a,r$estimate)
a<-table.element(a,r$p.value)
a<-table.row.end(a)
r <- cor.test(as.numeric(x[,par3]),as.numeric(x[,par2]),method='kendall')
a<-table.row.start(a)
dum <- 'tau('
dum <- paste(dum,par7,sep='')
dum <- paste(dum,par6,sep=',')
dum <- paste(dum,')',sep='')
a<-table.element(a,dum,header=TRUE)
a<-table.element(a,r$estimate)
a<-table.element(a,r$p.value)
a<-table.row.end(a)
r <- cor.test(as.numeric(x[,par4]),as.numeric(x[,par2]),method='kendall')
a<-table.row.start(a)
dum <- 'tau('
dum <- paste(dum,par8,sep='')
dum <- paste(dum,par6,sep=',')
dum <- paste(dum,')',sep='')
a<-table.element(a,dum,header=TRUE)
a<-table.element(a,r$estimate)
a<-table.element(a,r$p.value)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')