#' Generates the initial values
#' @export
startingValue_genU1<-function(lst){
 
  
    omega_start=lst$omega
    omega0_start=lst$omega0
    O_start=lst$O
    rnk=length(lst$omega)-rank(lst$omega)+1
    rnk1=length(lst$omega0)-rank(lst$omega0)+1
  startpoint=list()
  startpoint[["omega"]]=omega_start[rnk]
  startpoint[["omega0"]]=omega0_start[rnk1]
  startpoint$O=O_start
    startpoint[["gamma"]]=lst$gamma[,rnk]
    startpoint[["gamma0"]]=lst$gamma0[,rnk1]
  startpoint$beta_start=lst$beta
  
  
  
  return(startpoint)
}