thermometry <-
structure(list(body.temp = c(96.299999999999997, 96.700000000000003, 
96.900000000000006, 97, 97.099999999999994, 97.099999999999994, 
97.099999999999994, 97.200000000000003, 97.299999999999997, 97.400000000000006, 
97.400000000000006, 97.400000000000006, 97.400000000000006, 97.5, 
97.5, 97.599999999999994, 97.599999999999994, 97.599999999999994, 
97.700000000000003, 97.799999999999997, 97.799999999999997, 97.799999999999997, 
97.799999999999997, 97.900000000000006, 97.900000000000006, 98, 
98, 98, 98, 98, 98, 98.099999999999994, 98.099999999999994, 98.200000000000003, 
98.200000000000003, 98.200000000000003, 98.200000000000003, 98.299999999999997, 
98.299999999999997, 98.400000000000006, 98.400000000000006, 98.400000000000006, 
98.400000000000006, 98.5, 98.5, 98.599999999999994, 98.599999999999994, 
98.599999999999994, 98.599999999999994, 98.599999999999994, 98.599999999999994, 
98.700000000000003, 98.700000000000003, 98.799999999999997, 98.799999999999997, 
98.799999999999997, 98.900000000000006, 99, 99, 99, 99.099999999999994, 
99.200000000000003, 99.299999999999997, 99.400000000000006, 99.5, 
96.400000000000006, 96.700000000000003, 96.799999999999997, 97.200000000000003, 
97.200000000000003, 97.400000000000006, 97.599999999999994, 97.700000000000003, 
97.700000000000003, 97.799999999999997, 97.799999999999997, 97.799999999999997, 
97.900000000000006, 97.900000000000006, 97.900000000000006, 98, 
98, 98, 98, 98, 98.099999999999994, 98.200000000000003, 98.200000000000003, 
98.200000000000003, 98.200000000000003, 98.200000000000003, 98.200000000000003, 
98.299999999999997, 98.299999999999997, 98.299999999999997, 98.400000000000006, 
98.400000000000006, 98.400000000000006, 98.400000000000006, 98.400000000000006, 
98.5, 98.599999999999994, 98.599999999999994, 98.599999999999994, 
98.599999999999994, 98.700000000000003, 98.700000000000003, 98.700000000000003, 
98.700000000000003, 98.700000000000003, 98.700000000000003, 98.799999999999997, 
98.799999999999997, 98.799999999999997, 98.799999999999997, 98.799999999999997, 
98.799999999999997, 98.799999999999997, 98.900000000000006, 99, 
99, 99.099999999999994, 99.099999999999994, 99.200000000000003, 
99.200000000000003, 99.299999999999997, 99.400000000000006, 99.900000000000006, 
100, 100.8), gender = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("female", 
"male"), class = "factor"), heart.rate = c(70L, 71L, 74L, 80L, 
73L, 75L, 82L, 64L, 69L, 70L, 68L, 72L, 78L, 70L, 75L, 74L, 69L, 
73L, 77L, 58L, 73L, 65L, 74L, 76L, 72L, 78L, 71L, 74L, 67L, 64L, 
78L, 73L, 67L, 66L, 64L, 71L, 72L, 86L, 72L, 68L, 70L, 82L, 84L, 
68L, 71L, 77L, 78L, 83L, 66L, 70L, 82L, 73L, 78L, 78L, 81L, 78L, 
80L, 75L, 79L, 81L, 71L, 83L, 63L, 70L, 75L, 69L, 62L, 75L, 66L, 
68L, 57L, 61L, 84L, 61L, 77L, 62L, 71L, 68L, 69L, 79L, 76L, 87L, 
78L, 73L, 89L, 81L, 73L, 64L, 65L, 73L, 69L, 57L, 79L, 78L, 80L, 
79L, 81L, 73L, 74L, 84L, 83L, 82L, 85L, 86L, 77L, 72L, 79L, 59L, 
64L, 65L, 82L, 64L, 70L, 83L, 89L, 69L, 73L, 84L, 76L, 79L, 81L, 
80L, 74L, 77L, 66L, 68L, 77L, 79L, 78L, 77L)), row.names = c(NA, 
-130L), class = "data.frame")