# NOT RUN {
set.seed(5193)
n=30
X <- matrix(nr=n,nc=60,rnorm(n*60))
y <- X[,1]+X[,2]+X[,3] + rnorm(n,mean=0) #H0: first coefficient=0. So H0 is false
FLhd(y, X, nperm=2000, lambda=100,flip="FALSE", statistic="partialcor")
# }
Run the code above in your browser using DataLab