testlist <- list(nsites = 247853009L, offset = c(-2.25132402085406e-136, -6.05112592303472e+126, -220346591650773600, -7.72182323750944e+167, -1.87338162498192e-230, -2.88262546095742e+190, 6.8325048566665e+297, -0.0247044968134428, -26.5937448951681, 2.96332455846821e-165, 2.05279371480636e-116, NaN, NaN, NaN, NaN, 5.44487872976801e-150, 6.01775771591496e+221, -3.29725601100903e-187, -3.04848889794382e+240, -5.67018901335703e-90, -4.89960938349036e-88, -7.62322804655398e+45, 8.17372175412362e-183, -1.23486709407837e+86, -7.0202647332519e-78, 1.73785268672152e-98, Inf), poiind = c(2.34127573143474e+103, -3.4332226960441e-231, -1.91650167278187e-123, -8.96438746894289e+197, 2.4426166023601e+165, 1.81643358704384e-39, -1.43989514464535e-99, 1.80480771676448e-234, -2.49614750521119e-91, 1.40006411028797e-216, 2.35051987384055e+271, -1.77808877533691e-242, 5.24985201428794e+234, 9.01297535216493e-107, 1.24677457682127e+274, -4.02221537378693e-39, -2.66513833755794e+193, 8.19462246157429e-50, -2.01960785954637e+62, -2.02238763979188e-226, 5.42860293564322e-92, -2.10809671741323e+57, 5.76990905653073e-254, 7.34616740602082e-147, -1.29126520120166e+133, -3.27233716512066e+87, 5.92420040490584e+277, -0.000153287897545001, 6.42724392751335e+259, 1.21973987611862e+201, 8.18439416116831e-198, -9.82281514709499e-305, -2.76114807919664e-31, 9.76583798556616e+172, -5.65957451177262e+280, -Inf, 9.90107794423956e-14, 2.83096387896603e+211, 1.05462779859133e-107, 4.36607618977292e+254, -1.68342511516145e+25, 5.11994370985749e-152, -2.83907402521777e+217, -1.38461386318525e+219, -9.41078777237192e-176, -1.55051398898941e+159, -6.16490798523697e+48, 1.87387959291403e+285, 1.43210726501886e+110, NaN, -Inf, -1.50202199483411e+108, 6.38560181382506e+286, -5.78318715741961e+164, 6.64573843620484e+260, -1.29706665805681e-06, -2.26756498811711e+223, 3.06267119529498e+124, 6.31203584579305e+161, -6.21515678277955e-61, -2.75642228940754e-28, -4.44327401615998e+171, 8.45383781116241e-36, -6.12591172417828e-233, 6.2508217204142e-212, -8.05519500880541e-152, 2.26665367729123e+132, 2.82767065591354e+110, 1.82785018060693e-272, -1.01642713351307e-307, 7.05022050740682e-207, -7.16295309741743e+252, 1.77086391340058e+153, -1.27919637965763e-294, 7.54178294216922e-126, -Inf, -1.73619412037124e-303, 1.23791088675339e+182, 1.88705846962011e+146, 2.72034259113157e-271, -4.60730432008466e-171, -638248281779.901, 2.05299905562824e+238, -2.72645665157861e+289, 6.7984893961419e+164, 1.51276116223363e-105, 1.14262202789664e-213, 3.42776175818666e-108, 1.98094539910131e+158, 2.86538576032921e+99, 2.15227750700108e+108, 0), sigma2 = 1.05151510799651e+38, theta_tune = 2.56037894442934e-23, theta = c(2.18295188584455e-228, 6.0355684971959e+150, 1.30514110036871e-160, 5.70791490184495e-176, -57522294031.8573, -2.08328760660803e-272, NA, -136110220323.893, NA, -5.16147944526852e+195, Inf, 6.91900247715153e-296, 3.45458503564383e-99, 0), y = c(-1.3225762315944e+207, -9.60922688367707e+204, -1.67688567479699e+171, -5.85545151667648e-59, 3.50276953964157e-08, 1.25297333166446e-153, 6.01624365952818e-211, 6.24839034303649e+207, -8.90906013903733e+267, -3.81599296658025e+39, -1.27346545545543e-67, 2.57087669162564e+48, 1.77472396629957e+264, 4.2183724486564e+31, NaN, -4.18735981965468e+223, 3.76774009499613e-56, 4.38654863794136e-95, -5.36667459194792e+75, 5.75534213162174e+198, 6.19605712423483e-147, 1.23702724696379e-277, -5.11445623434464e-64, 1.89200544321444e-137, 5.61253038096698e+249, -9.75719442980522e-133, 5.31529014383986e+51, -6.0616123121375e+217, 4.05419841611912e+82, -3.19815159357215e-94, 1.64057193879574e+58, 1.64057193879574e+58, -3.3120071311363e+296, -4.61117741871859e+75, 1.64057193879574e+58, -4.54542530097557e-176, -6.20000458071877e+134, -1.36550370330004e-62, 5.43562392702271e-174, -1.17379837822334e-170, 8.5407600575378e+120, 6.9925933828031e-183, 4.44925096592549e+49, 1.6342832135384e+196, -2.71959368821294e+195, 5.90720622922364e+110, -7.32014920215163e-193, -5.07986805016298e+41, 2.8233119983956e+63, NA, 4.22073250299281e-227, 3.80736696819426e+243, 8.65258581215477e+289, -6.24791401330478e+73, 0)) result <- do.call(CARBayes:::zipindepupdateRW,testlist) str(result)