highD2pop (version 1.0)

SK.test: Srivastava and Kubokawa test for equal means

Description

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.

Usage

SK.test(X, Y)

Arguments

X

the n by p data matrix for sample one.

Y

the m by p data matrix for sample two.

Value

TSvalue

the value of the test statistic.

pvalue

the two-sided p-value for the test statistic.

References

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.

See Also

SK.sim

Examples

## 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)