# NOT RUN {
# Example to clean a bit messy data frame
iopva <- data.frame(
id = c("a", "e", "j", "h"),
va_r = c(37L, 36L, 33L, 38L),
iop_r = c(38L, 40L, 33L, 34L),
va_l = c(30L, 39L, 37L, 40L),
iop_l = c(31L, 34L, 33L, 31L)
)
myop_iop <- myop(iopva)
hyperop(myop_iop, cols = matches("va|iop"))
# }
Run the code above in your browser using DataLab