R语言使用popgen， (sum(exc) == 0) { : missing value where TRUE/FALSE needed问题

PS<- c(rep("AN",13), rep("CB",18), rep("HJ",16), rep("JH",15), rep("MS",16), rep("RC",16), rep("YN",16))
kk <- popgen(data_for_popgen_rs2, subgroups = PS )
运行报Error in if (sum(exc) == 0) { : missing value where TRUE/FALSE needed
In addition: Warning messages:
1: In min(x) : no non-missing arguments to min; returning Inf
2: In max(x) : no non-missing arguments to max; returning -Inf
3: In min(x) : no non-missing arguments to min; returning Inf
4: In max(x) : no non-missing arguments to max; returning -Inf

当PS<- c(rep("AN",13), rep("CB",18), rep("HJ",16), rep("JH",15)）运行正常，在往后加1个或者更多个rep就报以上错误，实在是搞不清楚了。

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。