我正在学习R中的分层采样。当我从教授提供的课堂笔记中运行strata（）时，尝试运行它时会收到一条错误消息。任何建议表示赞赏。
library(SamplingStrata)
library(survey)
rec = rec99htegne
attach(rec)
table(stratlog)
n1=28; n2=21; n3=14; n4=7; N=554; N1=221; N2=169; N3=110; N4=54
stsi.rec=strata(rec, "stratlog", size=c(n1, n2, n3, n4), method="srswor")
stsi.data = getdata(rec, stsi.rec)
我收到以下消息错误：
strata（rec，“ stratlog”，size = c（n1，n2，n3，n4），method =“ srswor”）中的错误：所有参数的长度必须相同
我希望此代码能够成功运行。
那我该怎么办？