# NOT RUN {
mat.ov <- repOverlap(AS_DATA, .norm = T)
mat.gen.pca <- pca.segments(AS_DATA, T, .genes = HUMAN_TRBV)
mat.ov.pca <- prcomp(mat.ov, scale. = T)
mat.gen.pca.dist <- pca2euclid(mat.gen.pca)
mat.ov.pca.dist <- pca2euclid(mat.ov.pca)
permutDistTest(mat.gen.pca.dist, list(<list of groups here>))
permutDistTest(mat.ov.pca.dist, list(<list of groups here>))
# }
Run the code above in your browser using DataLab