Online training class for Clinical R programming batch starts on Monday, 02Feb2026.
Click here for details.
lab <- tribble(
~USUBJID, ~HGB_V1, ~HGB_V2, ~HGB_V3,
1001, 12.5, 13.1, 12.8,
1002, 13.0, 14, 13.5,
1003, 11.2, 11.8, 12.0
)
lab01 <- lab %>%
mutate(
maxval=max(HGB_V1,HGB_V2,HGB_V3)
)
lab02 <- lab %>%
rowwise() %>%
mutate(
maxval=max(HGB_V1,HGB_V2,HGB_V3)
) lab <- data.frame(
USUBJID = c(1001, 1002, 1003),
HGB_V1 = c(12.5, 13.0, 11.2),
HGB_V2 = c(13.1, 14, 11.8),
HGB_V3 = c(12.8, 13.5, 12.0)
, stringsAsFactors = FALSE
)
lab01 <- lab
lab01$maxval <- pmax(lab01$HGB_V1, lab01$HGB_V2, lab01$HGB_V3)
lab02 <- lab
lab02$maxval <- apply(lab02[, c("HGB_V1", "HGB_V2", "HGB_V3")], 1, max)