R/lowerTriInd.r

In ldstatsHD: Linear Dependence Statistics for High-Dimensional Data

Defines functions lowerTriInd

Documented in lowerTriInd

lowerTriInd <- function(p){

  i1  <- rep(0,p*(p-1)/2)
  i2  <- rep(0,p*(p-1)/2)
  count <- 1
  for (j in 1:(p-1))
  {
   for (i in (j+1):p){
     i1[count] <- j
     i2[count] <- i
     count <- count+1
   }
  }
 return(list(i1,i2))

}

Try the ldstatsHD package in your browser