family <- data.frame(
fid = c(1, 1, 1, 1),
pid = c(1, 2, 3, 4),
role = c("o", "m", "f", "pgf")
)
threshs <- data.frame(
pid = c(1, 2, 3, 4),
lower = c(-Inf, -Inf, 0.8, 0.7),
upper = c(0.8, 0.8, 0.8, 0.7)
)
convert_format(family, threshs)
Run the code above in your browser using DataLab