R/mkRLongM.R

In salbm: Sensitivity Analysis for Binary Missing Data

mkRLongM <- function(trtR,K,trt) {
  trtRL <- matrix(NA, nrow=nrow(trtR)*K, ncol = 5 )
  cnt   <- 0 
  for ( i in 1:nrow(trtR) ) {
    alpha  <- trtR[i,1]
    type   <- trtR[i,2]
    for ( j in 1:K ) {
       cnt         <- cnt + 1
       Est         <- trtR[i,j+2]
       trtRL[cnt,] <- c( trt, alpha, type, Est, j )
    }
  }
  colnames(trtRL) <- c("trt","alpha","type","Est","k")
  return(trtRL)
}