> ### ** Examples
>
> zapweak(icons) # removes noone
iteration 1, size(H) = 6
log(L^24 * (L + NB + OA + THC)^-20 * (L + NB + OA + WAIS)^-9 * (L + NB
+ THC + WAIS)^-15 * (L + OA + PB + THC)^-11 * (L + OA + PB + WAIS)^-18
* (L + PB + THC + WAIS)^-16 * NB^32 * (NB + OA + PB + THC)^-18 * (NB +
OA + PB + WAIS)^-8 * (NB + PB + THC + WAIS)^-18 * OA^14 * PB^30 *
THC^24 * WAIS^9)
> ## No test:
> #Takes too long
> zapweak(rowing) # removes everyone...
iteration 1, size(H) = 32
iteration 2, size(H) = 32
Error in loglik_single(p, H, log = log) : sum(powers(H)) == 0 is not TRUE
known R bug (bugzilla ID 17703; wmmin not finite). Kludge: maxp_single() will try a slightly different start point
Error in loglik_single(p, H, log = log) : sum(powers(H)) == 0 is not TRUE
known R bug (bugzilla ID 17703; wmmin not finite). Kludge: maxp_single() will try a slightly different start point
Error in loglik_single(p, H, log = log) : sum(powers(H)) == 0 is not TRUE
known R bug (bugzilla ID 17703; wmmin not finite). Kludge: maxp_single() will try a slightly different start point
Error in loglik_single(p, H, log =
[snip]
Running
R CMD check
, get this: