dataSet <- structure(list(Plate = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3
), x = c(5, 10, 20, 40, 80, 160, 320, 640, 1280, 2560, 5120, 5, 10, 20, 40, 80, 160, 320, 640, 1280, 2560, 5120, 5,
         10, 20, 40, 80, 160, 320, 640, 1280, 2560, 5120), y = c(0.0128, 0.0269, 0.0611, 0.1783, 0.4333, 0.6237, 0.846, 0.8952, 0.9145,
        0.9443, 0.9831, 0.0332, 0.042, 0.0755, 0.172, 0.4082, 0.6905, 0.8783, 0.9687, 1.0235, 1.0798, 1.0744, 0.0139, 0.0307, 0.0592,
        0.1592, 0.4117, 0.641, 0.8177, 0.8915, 0.9636, 1.0324, 0.9909)), row.names = c(NA, 33L), class = "data.frame")