Function to compute the P-value for the observed Skillings-Mack SM statistic.
Usage
pSkilMack(x, b = NA, trt = NA, method = NA, n.mc = 10000)
Arguments
x
Either a matrix or a vector containing the data.
b
If x is a vector, b is a required vector of block labels. Otherwise, not used.
trt
If x is a vector, trt is a required vector of treatment labels. Otherwise, not used.
method
Either "Exact", "Monte Carlo" or "Asymptotic", indicating the desired distribution. When method=NA, "Exact" will be used if the number of permutations is 10,000 or less. Otherwise, "Monte Carlo" will be used.
n.mc
If method="Monte Carlo", the number of Monte Carlo samples used to estimate the distribution. Otherwise, not used.
Details
The data entry is intended to be flexible, so that the data can be entered in either of two ways. The following are equivalent:
pSkilMack(x=matrix(c(1,2,3,4,5,6),ncol=2,byrow=T))pSkilMack(x=c(1,2,3,4,5,6),b=c(1,1,2,2,3,3),trt=c(1,2,1,2,1,2))
Value
Returns a list with "NSM3Ch7p" class containing the following components:
k
number of treatments in the data
n
number of blocks in the data
ss
number of treatments per block
obs.stat
the observed D statistic
p.val
upper tail P-value
Author(s)
Grant Schneider
Examples
##Hollander, Wolfe, Chicken Example 7.8 Effect of Rhythmicity of a Metronome on Speech Fluency
rhythmicity<-matrix(c(3, 5, 15, 1, 3, 18, 5, 4, 21, 2, NA, 6, 0, 2, 17, 0, 2, 10, 0, 3, 8,
0, 2, 13),ncol=3,byrow=TRUE)
#pSkilMack(rhythmicity)
pSkilMack(rhythmicity,n.mc=5000)
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(NSM3)
Loading required package: combinat
Attaching package: 'combinat'
The following object is masked from 'package:utils':
combn
Loading required package: MASS
Loading required package: partitions
Loading required package: survival
fANCOVA 0.5-1 loaded
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/NSM3/pSkilMack.Rd_%03d_medium.png", width=480, height=480)
> ### Name: pSkilMack
> ### Title: Skillings-Mack
> ### Aliases: pSkilMack
> ### Keywords: Skillings-Mack
>
> ### ** Examples
>
> ##Hollander, Wolfe, Chicken Example 7.8 Effect of Rhythmicity of a Metronome on Speech Fluency
> rhythmicity<-matrix(c(3, 5, 15, 1, 3, 18, 5, 4, 21, 2, NA, 6, 0, 2, 17, 0, 2, 10, 0, 3, 8,
+ 0, 2, 13),ncol=3,byrow=TRUE)
> #pSkilMack(rhythmicity)
> pSkilMack(rhythmicity,n.mc=5000)
Number of blocks: n= 8
Number of treatments: k= 3
Number of treatments per block: s= 3 3 3 2 3 3 3 3
Skillings-Mack SM Statistic: 13.281
Monte Carlo (Using 5000 Iterations) upper-tail probability: 2e-04
>
>
>
>
>
> dev.off()
null device
1
>