imadata<-list(n=160, y=c(
460, 457, 452, 459, 462, 459, 463, 479, 493, 490, 492, 498, 499, 497, 496, 490, 489, 478, 487, 491,
487, 482, 479, 478, 479, 477, 479, 475, 479, 476, 476, 478, 479, 477, 476, 475, 475, 473, 474, 474,
474, 465, 466, 467, 471, 471, 467, 473, 481, 488, 490, 489, 489, 485, 491, 492, 494, 499, 498, 500,
497, 494, 495, 500, 504, 513, 511, 514, 510, 509, 515, 519, 523, 519, 523, 531, 547, 551, 547, 541,
545, 549, 545, 549, 547, 543, 540, 539, 532, 517, 527, 540, 542, 538, 541, 541, 547, 553, 559, 557,
557, 560, 571, 571, 569, 575, 580, 584, 585, 590, 599, 603, 599, 596, 585, 587, 585, 581, 583, 592, 
592, 596, 596, 595, 598, 598, 595, 595, 592, 588, 582, 576, 578, 589, 585, 580, 579, 584, 581, 581,
577, 577, 578, 580, 586, 583, 581, 576, 571, 575, 575, 573, 577, 582, 584, 579, 572, 577, 571, 560
))