Problem3.24 <- data.frame(
"RoddingLevel" = c(
'10',
'10',
'10',
'15',
'15',
'15',
'20',
'20',
'20',
'25',
'25',
'25'
),
"Strength" = c(
1530,
1530,
1440,
1610,
1650,
1500,
1560,
1730,
1530,
1500,
1490,
1510
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.