knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(ClinAD)
a <- lapply(
  X = split(dm[1:3], f = seq_len(nrow(dm))),
  FUN = Domain
)

do.call(rbind, lapply(a, slot, "df"))
as.data.frame(t(unique(t(do.call(cbind, lapply(a, slot, "columns"))))))


FCACollin/ClinAD documentation built on Feb. 1, 2021, 12:22 a.m.