Michelson's Data

"Michelson" <-
structure(list(Speed = c(299850, 299740, 299900, 300070, 299930, 
299850, 299950, 299980, 299980, 299880, 3e+05, 299980, 299930, 
299650, 299760, 299810, 3e+05, 3e+05, 299960, 299960, 299960, 
299940, 299960, 299940, 299880, 299800, 299850, 299880, 299900, 
299840, 299830, 299790, 299810, 299880, 299880, 299830, 299800, 
299790, 299760, 299800, 299880, 299880, 299880, 299860, 299720, 
299720, 299620, 299860, 299970, 299950, 299880, 299910, 299850, 
299870, 299840, 299840, 299850, 299840, 299840, 299840, 299890, 
299810, 299810, 299820, 299800, 299770, 299760, 299740, 299750, 
299760, 299910, 299920, 299890, 299860, 299880, 299720, 299840, 
299850, 299850, 299780, 299890, 299840, 299780, 299810, 299760, 
299810, 299790, 299810, 299820, 299850, 299870, 299870, 299810, 
299740, 299810, 299940, 299950, 299800, 299810, 299870), Run = structure(c(1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5), .Label = c("1", 
"2", "3", "4", "5"), class = "factor")), .Names = c("Speed", 
"Run"), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", 
"9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", 
"20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", 
"31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", 
"42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", 
"53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", 
"64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", 
"75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", 
"86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", 
"97", "98", "99", "100"), class = "data.frame")