R/unpivotRp.R

Defines functions unpivotRp

unpivotRp <- function(qr,nvars){
  rank <- qr$rank
  Rp <- matrix(0, rank, nvars)
  if (rank > 0L) {
    R <- qr.R(qr)
    pivot <- qr$pivot
    Rp[,pivot] <- R[seq_len(rank),]
  }
  return(Rp)
}
patperry/r-mbest documentation built on May 24, 2019, 8:20 p.m.