set.seed(1234)
dat = matrix(rnorm(1000), 100, 10)
svd.obj = svd(dat)
colnames(svd.obj$v) = paste0("V",1:10)
rownames(svd.obj$v) = paste0("Sample",1:10)
svd.radial(dat, group=c(rep("Group1",5), rep("Group2",5)))
Run the code above in your browser using DataLab