"ex1_5.bodytemp" <-
structure(list(temperature = c(96.3, 96.7, 96.9, 97, 97.1, 97.1, 
97.1, 97.2, 97.3, 97.4, 97.4, 97.4, 97.4, 97.5, 97.5, 97.6, 97.6, 
97.6, 97.7, 97.8, 97.8, 97.8, 97.8, 97.9, 97.9, 98, 98, 98, 98, 
98, 98, 98.1, 98.1, 98.2, 98.2, 98.2, 98.2, 98.3, 98.3, 98.4, 
98.4, 98.4, 98.4, 98.5, 98.5, 98.6, 98.6, 98.6, 98.6, 98.6, 98.6, 
98.7, 98.7, 98.8, 98.8, 98.8, 98.9, 99, 99, 99, 99.1, 99.2, 99.3, 
99.4, 99.5, 96.4, 96.7, 96.8, 97.2, 97.2, 97.4, 97.6, 97.7, 97.7, 
97.8, 97.8, 97.8, 97.9, 97.9, 97.9, 98, 98, 98, 98, 98, 98.1, 
98.2, 98.2, 98.2, 98.2, 98.2, 98.2, 98.3, 98.3, 98.3, 98.4, 98.4, 
98.4, 98.4, 98.4, 98.5, 98.6, 98.6, 98.6, 98.6, 98.7, 98.7, 98.7, 
98.7, 98.7, 98.7, 98.8, 98.8, 98.8, 98.8, 98.8, 98.8, 98.8, 98.9, 
99, 99, 99.1, 99.1, 99.2, 99.2, 99.3, 99.4, 99.9, 100, 100.8), 
    gender = structure(as.integer(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
    2, 2, 2, 2, 2, 2, 2)), .Label = c("male", "female"), class = "factor"), 
    heart.rate = as.integer(c(70, 71, 74, 80, 73, 75, 82, 64, 
    69, 70, 68, 72, 78, 70, 75, 74, 69, 73, 77, 58, 73, 65, 74, 
    76, 72, 78, 71, 74, 67, 64, 78, 73, 67, 66, 64, 71, 72, 86, 
    72, 68, 70, 82, 84, 68, 71, 77, 78, 83, 66, 70, 82, 73, 78, 
    78, 81, 78, 80, 75, 79, 81, 71, 83, 63, 70, 75, 69, 62, 75, 
    66, 68, 57, 61, 84, 61, 77, 62, 71, 68, 69, 79, 76, 87, 78, 
    73, 89, 81, 73, 64, 65, 73, 69, 57, 79, 78, 80, 79, 81, 73, 
    74, 84, 83, 82, 85, 86, 77, 72, 79, 59, 64, 65, 82, 64, 70, 
    83, 89, 69, 73, 84, 76, 79, 81, 80, 74, 77, 66, 68, 77, 79, 
    78, 77))), .Names = c("temperature", "gender", "heart.rate"
), 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", "101", "102", "103", "104", "105", "106", 
"107", "108", "109", "110", "111", "112", "113", "114", "115", 
"116", "117", "118", "119", "120", "121", "122", "123", "124", 
"125", "126", "127", "128", "129", "130"), class = "data.frame")