wpid <- c(
672,
712,
751,
753,
688,
692,
729,
695,
731,
656,
659,
737,
706,
708,
670,
710,
747,
673,
749,
676,
642,
759,
650,
761,
652,
654,
735,
663,
704,
665,
741,
606,
667,
743,
745,
638,
645,
682,
720,
647,
686,
765,
697,
733,
661,
739,
600,
630,
635,
714,
640,
716,
680,
718,
757,
723,
699,
702,
725,
)