voropm2 <- data.frame(
response = c(
1.1263, 1.0329, 1.1139, 1.1146, 1.0664, 1.0163, 0.9594, 0.9887, 0.9853,
0.9912, 1.0323, 1.0479, 1.0047, 1.0859, 1.0641, 1.1227, 1.0657, 1.0907,
1.0185, 1.0374, 1.1512, 0.9747, 1.0399, 0.9841, 0.9324, 1.0415, 1.0172,
0.8712, 0.9155, 0.8077, 0.5323, 0.5167, 0.5096, 0.032, 0.0317, 0.031, 0.002,
0.0043, 0.0043, 0.0043, 0.0042, 0.004, 0.0042, 0.0031, 0.0053
),
dose = c(
1, 1, 1, 1.93, 1.93, 1.93, 3.73, 3.73, 3.73, 7.2, 7.2, 7.2, 13.89, 13.89,
13.89, 26.83, 26.83, 26.83, 51.79, 51.79, 51.79, 100, 100, 100, 193.07,
193.07, 193.07, 372.76, 372.76, 372.76, 719.69, 719.69, 719.69, 1389.5,
1389.5, 1389.5, 2682.7, 2682.7, 2682.7, 5179.47, 5179.47, 5179.47, 10000,
10000, 10000
),
log_dose = c(
0, 0, 0, 0.66, 0.66, 0.66, 1.32, 1.32, 1.32, 1.97, 1.97, 1.97, 2.63, 2.63,
2.63, 3.29, 3.29, 3.29, 3.95, 3.95, 3.95, 4.61, 4.61, 4.61, 5.26, 5.26,
5.26, 5.92, 5.92, 5.92, 6.58, 6.58, 6.58, 7.24, 7.24, 7.24, 7.89, 7.89,
7.89, 8.55, 8.55, 8.55, 9.21, 9.21, 9.21
),
weight = c(
0.87, 1.04, 0.94, 0.96, 0.91, 0.93, 0.88, 1.06, 0.91, 1.18, 0.78, 1.13,
1.12, 1.31, 0.88, 0.94, 0.9, 1.22, 0.91, 1.11, 0.83, 1.16, 0.98, 1.13, 1.13,
0.94, 0.94, 1.19, 0.82, 1.15, 0.95, 1.11, 0.92, 1.17, 1.03, 0.86, 1.14, 0.9,
0.89, 1.12, 0.98, 0.96, 1.14, 0.91, 0.85
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.