Nothing
HeatX <- data.frame(
trial = 1:6,
T.cold.in = c(14.3, 14.1, 14.1, 14.2, 14.1, 14.1),
T.cold.out = c(18.6, 18.7, 19.4, 18.4, 17.4, 16.9),
T.hot.in = c(38.2, 35.9, 35.9, 35.8, 35.7, 35.8),
T.hot.out = c(33.9, 32.8, 33.4, 31.8, 30.9, 30.4),
m.cold = c(10, 7.5, 5, 5, 7.5, 10),
m.hot = c(10, 10, 10, 5, 5, 5)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.