x <- replicate(1000, rnorm(100))
x <- floor(abs(x))
freq <- apply(x,2,sum)/(2*dim(x)[1])
minfreq <- pmin(freq,1-freq)
respc <- prcomp(x)
V <- respc$rotation*sqrt(dim(x)[2])
sdevList(V,K=3,maf=minfreq,minmaf=0.05)
Run the code above in your browser using DataLab