data-raw/bloodpre.R

In jjt7549/intervalreg: Regression for Interval-valued Data

example1 <- data.frame(PulseRate_L = c(44,60,56,70,54,70,72,76,86,86,53,50,73,60,42),
                       PulseRate_U = c(68,72,90,112,72,100,100,98,96,100,55,55,81,75,52),
                       SystolicPressure_L = c(90,90,140,110,90,134,130,110,138,110,160,180,125,175,105),
                       SystolicPressure_U = c(110,130,180,142,100,142,160,190,180,150,190,200,138,194,115),
                       DiastolicPressure_L = c(50,70,90,80,50,80,76,70,90,28,205,110,78,90,70),
                       DiastolicPressure_U = c(70,90,100,108,70,110,90,110,110,100,219,125,99,100,82))

save(example1, file = "data/example1.rdata")