R/expandOrdinal.R

In DoseResponse/bmd: Benchmark dose estimation for dose-response data

expandOrdinal <- function(object){
  df.small <- object$data
  df.small$row.orig <- 1:nrow(df.small)
  df.long <- reshape2:::melt(df.small, measure.vars = object$levels)
  idx <- rep(1:nrow(df.long), df.long$value)
  df.long.expand <- df.long[idx,] 
  df.long.expand
}