motors <- structure(list(temp = c(150L, 150L, 150L, 150L, 150L, 150L, 150L,
150L, 150L, 150L, 170L, 170L, 170L, 170L, 170L, 170L, 170L, 170L,
170L, 170L, 190L, 190L, 190L, 190L, 190L, 190L, 190L, 190L, 190L,
190L, 220L, 220L, 220L, 220L, 220L, 220L, 220L, 220L, 220L, 220L
), time = c(8064L, 8064L, 8064L, 8064L, 8064L, 8064L, 8064L,
8064L, 8064L, 8064L, 1764L, 2772L, 3444L, 3542L, 3780L, 4860L,
5196L, 5448L, 5448L, 5448L, 408L, 408L, 1344L, 1344L, 1440L,
1680L, 1680L, 1680L, 1680L, 1680L, 408L, 408L, 504L, 504L, 504L,
528L, 528L, 528L, 528L, 528L), cens = c(0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L,
1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 0L,
0L, 0L)), .Names = c("temp", "time", "cens"), class = "data.frame", row.names = c(NA,
40L))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.