D <- data.frame(
    x1=c(0.58, 0.86, 0.29, 0.20, 0.56, 0.28, 0.08, 0.41, 0.22, 0.35,
             0.59, 0.22, 0.26, 0.12, 0.65, 0.70, 0.30, 0.70, 0.39, 0.72,
             0.45, 0.81, 0.04, 0.20, 0.95),
    x2=c(0.71, 0.13, 0.79, 0.20, 0.56, 0.92, 0.01, 0.60, 0.70, 0.73,
             0.13, 0.96, 0.27, 0.21, 0.88, 0.30, 0.15, 0.09, 0.17, 0.25,
             0.30, 0.32, 0.82, 0.98, 0.00),
      y=c(1.45, 1.93, 0.81, 0.61, 1.55, 0.95, 0.45, 1.14, 0.74, 0.98,
             1.41, 0.81, 0.89, 0.68, 1.39, 1.53, 0.91, 1.49, 1.38, 1.73,
             1.11, 1.68, 0.66, 0.69, 1.98)
)

RCA8LSBkYXRhLmZyYW1lKAogICAgeDE9YygwLjU4LCAwLjg2LCAwLjI5LCAwLjIwLCAwLjU2LCAwLjI4LCAwLjA4LCAwLjQxLCAwLjIyLCAwLjM1LAogICAgICAgICAgICAgMC41OSwgMC4yMiwgMC4yNiwgMC4xMiwgMC42NSwgMC43MCwgMC4zMCwgMC43MCwgMC4zOSwgMC43MiwKICAgICAgICAgICAgIDAuNDUsIDAuODEsIDAuMDQsIDAuMjAsIDAuOTUpLAogICAgeDI9YygwLjcxLCAwLjEzLCAwLjc5LCAwLjIwLCAwLjU2LCAwLjkyLCAwLjAxLCAwLjYwLCAwLjcwLCAwLjczLAogICAgICAgICAgICAgMC4xMywgMC45NiwgMC4yNywgMC4yMSwgMC44OCwgMC4zMCwgMC4xNSwgMC4wOSwgMC4xNywgMC4yNSwKICAgICAgICAgICAgIDAuMzAsIDAuMzIsIDAuODIsIDAuOTgsIDAuMDApLAogICAgICB5PWMoMS40NSwgMS45MywgMC44MSwgMC42MSwgMS41NSwgMC45NSwgMC40NSwgMS4xNCwgMC43NCwgMC45OCwKICAgICAgICAgICAgIDEuNDEsIDAuODEsIDAuODksIDAuNjgsIDEuMzksIDEuNTMsIDAuOTEsIDEuNDksIDEuMzgsIDEuNzMsCiAgICAgICAgICAgICAxLjExLCAxLjY4LCAwLjY2LCAwLjY5LCAxLjk4KQop