"puerto" <-
c(150, 280, 175, 190, 305, 380, 290, 300, 170, 315, 280, 255, 
335, 180, 200, 210, 350, 360, 550, 225, 245, 175, 180, 260, 320, 
345, 180, 225, 275, 280, 325, 350, 190, 220, 265, 270, 335, 310, 
270, 240, 235, 355, 370, 260, 280, 350, 390, 250, 375, 250)