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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.