#test <- c(94,82,100,113,112,119,70,94,111,84,89,77,75,85,88,71,90,92,99,93,93,93,114,
#96,95,91,122,108,127,89,118,77,104,108,121,96,91,106,93,107,80,87,79,93,97,98,93,124,76,88)
#follup <- c(85,104,74,104,108,126,104,117,93,82,119,104,97,108,127,94,99,113,113,112,121,100,
# 86,95,119,108,71,92,97,90,105,121,108,93,80,98,88,105,72,121,99,103,104,107,72,106,103,116,109,95)
lesi <- data.frame(test=c(94,82,100,113,112,119,70,94,111,84,89,77,75,85,88,71,90,92,99,93,93,93,114,
96,95,91,122,108,127,89,118,77,104,108,121,96,91,106,93,107,80,87,79,93,97,98,93,124,76,88),
follup=c(85,104,74,104,108,126,104,117,93,82,119,104,97,108,127,94,99,113,113,112,121,100,
86,95,119,108,71,92,97,90,105,121,108,93,80,98,88,105,72,121,99,103,104,107,72,106,103,116,109,95))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.