SK.test: Srivastava and Kubokawa test for equal means
In highD2pop: Two-Sample Tests for Equality of Means in High Dimension

Description Usage Arguments Value Author(s) References See Also Examples

Performs the test from Srivastava and Kubokawa (2013) for the equality of two p by 1 population mean vectors given samples of sizes n and m.

1	SK.test(X, Y)

`X`	the `n` by `p` data matrix for sample one.
`Y`	the `m` by `p` data matrix for sample two.

`TSvalue`	the value of the test statistic.
`pvalue`	the two-sided p-value for the test statistic.

Karl Gregory kgregory@mail.uni-mannheim.de, http://www.stat.tamu.edu/~kbgregory.

Srivastava, M. S. and Kubokawa, T. (2013). Tests for multivariate analysis of variance in high dimension under non-normality. Journal of Multivariate Analysis 115, 204216.

SK.sim

## Not run: 
	
data(chr1qseg)
	
	impute <- function(x) 	
	{ 	
		x[which(is.na(x))] <- mean(x,na.rm=TRUE)
		return(x)
	}
	
	X <- apply(chr1qseg$X,2,impute)
	Y <- apply(chr1qseg$Y,2,impute)
	
	SK.test(X,Y)
	
	
## End(Not run)