Problem3.28 <- data.frame(
"Material" = c(
'1',
'1',
'1',
'1',
'2',
'2',
'2',
'2',
'3',
'3',
'3',
'3',
'4',
'4',
'4',
'4',
'5',
'5',
'5',
'5'
),
"FailureTime" = c(
110,
157,
194,
178,
1,
2,
4,
18,
880,
1256,
5276,
4355,
495,
7040,
5307,
10050,
7,
5,
29,
2
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.