Hudak_data <-
structure(list(y = c(0.05, 0.05, 0.05, 0.07, 0.07, 0.08, 0.08, 
0.13, 0.16, 0.04, 0.04, 0.05, 0.05, 0.06, 0.07, 0.07, 0.09, 0.1, 
0.13, 0.04, 0.04, 0.05, 0.05, 0.05, 0.06, 0.07, 0.09, 0.11, 0.12, 
0.19, 0.04, 0.04, 0.05, 0.04, 0.05, 0.07, 0.06, 0.09, 0.09, 0.12, 
0.18, 0.04, 0.04, 0.05, 0.04, 0.05, 0.07, 0.05, 0.1, 0.09, 0.12, 
0.16, 0.04, 0.04, 0.05, 0.04, 0.05, 0.06, 0.05, 0.1, 0.08, 0.1, 
0.17, 0.04, 0.04, 0.04, 0.05, 0.04, 0.06, 0.06, 0.09, 0.09, 0.11, 
0.14, 0.03, 0.04, 0.03, 0.06, 0.05, 0.06, 0.06, 0.07, 0.09, 0.1, 
0.13, 0.02, 0.05, 0.04, 0.04, 0.04, 0.06, 0.06, 0.07, 0.08, 0.08, 
0.11, 0.17, 0.02, 0.04, 0.04, 0.04, 0.04, 0.05, 0.06, 0.07, 0.08, 
0.08, 0.1, 0.15, 0.03, 0.03, 0.04, 0.04, 0.04, 0.05, 0.05, 0.06, 
0.07, 0.08, 0.1, 0.16, 0.03, 0.04, 0.03, 0.03, 0.04, 0.03, 0.06, 
0.06, 0.07, 0.08, 0.11, 0.16, 0.02, 0.05, 0.02, 0.04, 0.03, 0.04, 
0.04, 0.06, 0.06, 0.05, 0.09, 0.12, 0.03, 0.03, 0.04, 0.03, 0.04, 
0.05, 0.04, 0.04, 0.06, 0.04, 0.07, 0.08, 0.02, 0.04, 0.03, 0.04, 
0.03, 0.04, 0.06, 0.05, 0.06, 0.06, 0.07, 0.09, 0.02, 0.03, 0.02, 
0.03, 0.03, 0.04, 0.04, 0.05, 0.06, 0.04, 0.07, 0.07, 0.03, 0.03, 
0.01, 0.03, 0.05, 0.03, 0.03, 0.05, 0.04, 0.04, 0.08, 0.06, 0.02, 
0.02, 0.03, 0.04, 0.03, 0.03, 0.02, 0.05, 0.05, 0.04, 0.05, 0.07, 
0.02, 0.02, 0.03, 0.02, 0.03, 0.03, 0.03, 0.04, 0.04, 0.04, 0.05, 
0.06, 0.02, 0.02, 0.03, 0.02, 0.03, 0.03, 0.03, 0.04, 0.04, 0.03, 
0.05, 0.05, 0.02, 0.02, 0.03, 0.02, 0.03, 0.02, 0.03, 0.04, 0.03, 
0.04, 0.04, 0.05), crack0 = c(0.9, 0.95, 1, 1.05, 1.12, 1.19, 
1.27, 1.35, 1.48, 0.9, 0.94, 0.98, 1.03, 1.08, 1.14, 1.21, 1.28, 
1.37, 1.47, 0.9, 0.94, 0.98, 1.03, 1.08, 1.13, 1.19, 1.26, 1.35, 
1.46, 1.58, 0.9, 0.94, 0.98, 1.03, 1.07, 1.12, 1.19, 1.25, 1.34, 
1.43, 1.55, 0.9, 0.94, 0.98, 1.03, 1.07, 1.12, 1.19, 1.24, 1.34, 
1.43, 1.55, 0.9, 0.94, 0.98, 1.03, 1.07, 1.12, 1.18, 1.23, 1.33, 
1.41, 1.51, 0.9, 0.94, 0.98, 1.02, 1.07, 1.11, 1.17, 1.23, 1.32, 
1.41, 1.52, 0.9, 0.93, 0.97, 1, 1.06, 1.11, 1.17, 1.23, 1.3, 
1.39, 1.49, 0.9, 0.92, 0.97, 1.01, 1.05, 1.09, 1.15, 1.21, 1.28, 
1.36, 1.44, 1.55, 0.9, 0.92, 0.96, 1, 1.04, 1.08, 1.13, 1.19, 
1.26, 1.34, 1.42, 1.52, 0.9, 0.93, 0.96, 1, 1.04, 1.08, 1.13, 
1.18, 1.24, 1.31, 1.39, 1.49, 0.9, 0.93, 0.97, 1, 1.03, 1.07, 
1.1, 1.16, 1.22, 1.29, 1.37, 1.48, 0.9, 0.92, 0.97, 0.99, 1.03, 
1.06, 1.1, 1.14, 1.2, 1.26, 1.31, 1.4, 0.9, 0.93, 0.96, 1, 1.03, 
1.07, 1.12, 1.16, 1.2, 1.26, 1.3, 1.37, 0.9, 0.92, 0.96, 0.99, 
1.03, 1.06, 1.1, 1.16, 1.21, 1.27, 1.33, 1.4, 0.9, 0.92, 0.95, 
0.97, 1, 1.03, 1.07, 1.11, 1.16, 1.22, 1.26, 1.33, 0.9, 0.93, 
0.96, 0.97, 1, 1.05, 1.08, 1.11, 1.16, 1.2, 1.24, 1.32, 0.9, 
0.92, 0.94, 0.97, 1.01, 1.04, 1.07, 1.09, 1.14, 1.19, 1.23, 1.28, 
0.9, 0.92, 0.94, 0.97, 0.99, 1.02, 1.05, 1.08, 1.12, 1.16, 1.2, 
1.25, 0.9, 0.92, 0.94, 0.97, 0.99, 1.02, 1.05, 1.08, 1.12, 1.16, 
1.19, 1.24, 0.9, 0.92, 0.94, 0.97, 0.99, 1.02, 1.04, 1.07, 1.11, 
1.14, 1.18, 1.22), specimen = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 
6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 
7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 
9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 
11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 
12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 
13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 
14L, 14L, 14L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 
15L, 15L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 
16L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 
18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 19L, 
19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 
20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 
21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L), cycle = c(0.01, 
0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.01, 0.02, 0.03, 
0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.01, 0.02, 0.03, 0.04, 
0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.01, 0.02, 0.03, 0.04, 
0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.01, 0.02, 0.03, 0.04, 
0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.01, 0.02, 0.03, 0.04, 
0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.01, 0.02, 0.03, 0.04, 
0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.01, 0.02, 0.03, 0.04, 
0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.01, 0.02, 0.03, 0.04, 
0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.01, 0.02, 0.03, 
0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.01, 0.02, 
0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.01, 
0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 
0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 
0.12, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 
0.11, 0.12, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 
0.1, 0.11, 0.12, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 
0.09, 0.1, 0.11, 0.12, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 
0.08, 0.09, 0.1, 0.11, 0.12, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 
0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.01, 0.02, 0.03, 0.04, 0.05, 
0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.01, 0.02, 0.03, 0.04, 
0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.01, 0.02, 0.03, 
0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12)), .Names = c("y", 
"crack0", "specimen", "cycle"), class = "data.frame", row.names = c(NA, 
-241L))