Problem5.9 <- data.frame(
"DepthOfCut" = c(
0.15,
0.15,
0.15,
0.18,
0.18,
0.18,
0.2,
0.2,
0.2,
0.25,
0.25,
0.25,
0.15,
0.15,
0.15,
0.18,
0.18,
0.18,
0.2,
0.2,
0.2,
0.25,
0.25,
0.25,
0.15,
0.15,
0.15,
0.18,
0.18,
0.18,
0.2,
0.2,
0.2,
0.25,
0.25,
0.25
),
"FeedRate" = c(
0.2,
0.2,
0.2,
0.2,
0.2,
0.2,
0.2,
0.2,
0.2,
0.2,
0.2,
0.2,
0.25,
0.25,
0.25,
0.25,
0.25,
0.25,
0.25,
0.25,
0.25,
0.25,
0.25,
0.25,
0.3,
0.3,
0.3,
0.3,
0.3,
0.3,
0.3,
0.3,
0.3,
0.3,
0.3,
0.3
),
"SurfaceFinish" = c(
74,
64,
60,
79,
68,
73,
82,
88,
92,
99,
104,
96,
92,
86,
88,
98,
104,
88,
99,
108,
95,
104,
110,
99,
99,
98,
102,
104,
99,
95,
108,
110,
99,
114,
107,
111
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.