## 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)
#
#
# GCT.test(X,Y)
#
# ## End(Not run)
Run the code above in your browser using DataLab