TEST_DT <- data.table(
AMD_ID = c(1, 2, 3, 4),
PM_BMI = c(30, 21, 24, 20),
LAB_GGT = c(90, 80, 70, 80),
SDC_GENDER = c(1, 2, 1, 2)
)
TEST_DT
LABEL <- c("q123", "q124", "q125", "q126")
TEST_DT_NEW <- rbind(TEST_DT, as.list(LABEL, ))
TEST_DT_NEW
TEST_DT_NEW[1, 1:4] <- TEST_DT_NEW[5, 1:4]
TEST_DT_NEW