FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software ModuleIan.Hollidayrwasp_May_mock1.wasp
Title produced by softwareMC Mock - Q1
Date of computationTue, 01 Jun 2010 19:54:38 +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/Jun/01/t1275422257vkaxokl74e9y150.htm/, Retrieved Sat, 27 Apr 2024 08:37:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=76841, Retrieved Sat, 27 Apr 2024 08:37:34 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact174

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [MC Mock - Q1] [1] [2010-06-01 19:54:38] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=76841&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=76841&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=76841&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 time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Identify the sample least likely to be from a standard normal distribution.
The sample called nx1
The sample called nx2
The sample called nx3
Avoid Guessing Penalty

\begin{tabular}{lllllllll}
\hline
Identify the sample least likely to be from a standard normal  distribution. \tabularnewline
The sample called nx1 \tabularnewline
The sample called nx2 \tabularnewline
The sample called nx3 \tabularnewline
Avoid Guessing Penalty \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=76841&T=1

[TABLE]
[ROW][C]Identify the sample least likely to be from a standard normal  distribution.[/C][/ROW]
[ROW][C]The sample called nx1[/C][/ROW]
[ROW][C]The sample called nx2[/C][/ROW]
[ROW][C]The sample called nx3[/C][/ROW]
[ROW][C]Avoid Guessing Penalty[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=76841&T=1

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

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Identify the sample least likely to be from a standard normal distribution.
The sample called nx1
The sample called nx2
The sample called nx3
Avoid Guessing Penalty






Means of the three samples
Samplenx1nx2nx3
Value-0.1-0.117-2.212

\begin{tabular}{lllllllll}
\hline
Means of the three samples \tabularnewline
Sample & nx1 & nx2 & nx3 \tabularnewline
Value & -0.1 & -0.117 & -2.212 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=76841&T=2

[TABLE]
[ROW][C]Means of the three samples[/C][/ROW]
[ROW][C]Sample[/C][C]nx1[/C][C]nx2[/C][C]nx3[/C][/ROW]
[ROW][C]Value[/C][C]-0.1[/C][C]-0.117[/C][C]-2.212[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=76841&T=2

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

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Means of the three samples
Samplenx1nx2nx3
Value-0.1-0.117-2.212






Standard deviations of the three samples
Samplenx1nx2nx3
Value1.1141.1481.932

\begin{tabular}{lllllllll}
\hline
Standard deviations of the three samples \tabularnewline
Sample & nx1 & nx2 & nx3 \tabularnewline
Value & 1.114 & 1.148 & 1.932 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=76841&T=3

[TABLE]
[ROW][C]Standard deviations of the three samples[/C][/ROW]
[ROW][C]Sample[/C][C]nx1[/C][C]nx2[/C][C]nx3[/C][/ROW]
[ROW][C]Value[/C][C]1.114[/C][C]1.148[/C][C]1.932[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=76841&T=3

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

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Standard deviations of the three samples
Samplenx1nx2nx3
Value1.1141.1481.932


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 157163 ;
Parameters (R input):
par1 = 157163 ;
R code (references can be found in the software module):
library(digest)
myran <- runif(1)
if (myran <= 1) {
nx1 <- rnorm(100)
nx2 <- rnorm(100, sd=1.0, mean=0.0)
nx3 <- rnorm(100, sd=2.0, mean=-2.0)
answer <- 'nx3'
}
if (myran < 0.66) {
nx2 <- rnorm(100)
nx3 <- rnorm(100, sd=1.0, mean=0.0)
nx1 <- rnorm(100, sd=2.0, mean=-2.0)
answer <- 'nx1'
}
if (myran < 0.33) {
nx3 <- rnorm(100)
nx1 <- rnorm(100, sd=1.0, mean=0.0)
nx2 <- rnorm(100, sd=2.0, mean=-2.0)
answer <- 'nx2'
}
answer <- digest(answer,ser=F)
allmeans<- c(mean(nx1),mean(nx2),mean(nx3))
names(allmeans)<-c('Sample 1', 'Sample 2', 'Sample 3')
allmeans
allsd<- c(sd(nx1), sd(nx2), sd(nx3))
names(allsd)<- c('Sample 1', 'Sample 2', 'Sample 3')
allsd
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Identify the sample least likely to be from a standard normal  distribution.',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink(paste('https://automated.biganalytics.eu/Ian.Holliday/rwasp_May_mock2.wasp?par1=',par1,'&par2=nx1&par3=',answer,'&par0=1',sep=''),'The sample called nx1','',target=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink(paste('https://automated.biganalytics.eu/Ian.Holliday/rwasp_May_mock2.wasp?par1=',par1,'&par2=nx2&par3=',answer,'&par0=1',sep=''),'The sample called nx2','',target=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink(paste('https://automated.biganalytics.eu/Ian.Holliday/rwasp_May_mock2.wasp?par1=',par1,'&par2=nx3&par3=',answer,'&par0=1',sep=''),'The sample called nx3','',target=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink(paste('https://automated.biganalytics.eu/Ian.Holliday/rwasp_May_mock2.wasp?par1=',par1,'&par2=wnga&par3=',answer,'&par0=1',sep=''),'Avoid Guessing Penalty','',target=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Means of the three samples',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample',1,TRUE)
a<-table.element(a,'nx1',1,TRUE)
a<-table.element(a,'nx2',1,TRUE)
a<-table.element(a,'nx3',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Value',1,TRUE)
a<-table.element(a,round(mean(nx1),3))
a<-table.element(a,round(mean(nx2),3))
a<-table.element(a,round(mean(nx3),3))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable2.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Standard deviations of the three samples',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample',1,TRUE)
a<-table.element(a,'nx1',1,TRUE)
a<-table.element(a,'nx2',1,TRUE)
a<-table.element(a,'nx3',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Value',1,TRUE)
a<-table.element(a,round(sd(nx1),3))
a<-table.element(a,round(sd(nx2),3))
a<-table.element(a,round(sd(nx3),3))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable3.tab')
bitmap(file='hist1.png')
hist(nx1)
dev.off()
bitmap(file='hist2.png')
hist(nx2)
dev.off()
bitmap(file='hist3.png')
hist(nx3)
dev.off()
bitmap(file='pairs.png')
pairs(x=cbind(nx1, nx2, nx3))
dev.off()