Problem6.16 <- data.frame(
"FlowRate" = c(
55,
55,
55,
55,
59,
59,
59,
59,
55,
55,
55,
55,
59,
59,
59,
59
),
"DepTime" = c(
10,
10,
10,
10,
10,
10,
10,
10,
15,
15,
15,
15,
15,
15,
15,
15
),
"Thickness" = c(
14.037,
16.165,
13.972,
13.907,
13.88,
13.86,
14.032,
13.914,
14.821,
14.757,
14.843,
14.878,
14.888,
14.921,
14.415,
14.932
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.