# NOT RUN {
data(simGaussian)
data(linearrelation)
Y<-as.matrix(simGaussian[,1])
X<-as.matrix(simGaussian[,-1])
# Suppose obtain beta from lasso
data(initbetaGaussian)
beta<-as.matrix(initbetaGaussian)
edgeind<-sort(unique(linearrelation[,1]))
# }
# NOT RUN {
hyperparameter<-get.ab(beta=beta, structure=linearrelation, edgeind=edgeind)
# }
Run the code above in your browser using DataLab