分层样本错误

Question

我正在尝试复制我在here上找到的代码。

目标是尝试将其调整为更大的数据库以获得分层样本。

抽样框架按州内的地区分层。

data <- rbind(matrix(rep("nc",165), 165, 1, byrow=TRUE),
              matrix(rep("sc", 70),  70, 1, byrow=TRUE))
data <- cbind.data.frame(data, c(rep(1,100), rep(2,50), rep(3,15),
                                 rep(1,30), rep(2,40)), 1000*runif(235))
names(data) <- c("state", "region", "income")


library(sampling)
s <- strata(data, c("region", "state"), size=c(10,5,10,4,6), method="srswor")

在这一点上，我收到以下错误：

> Error in sort.list(y) : 'x' must be atomic for 'sort.list'
Have you called 'sort' on a list?

我不知道这个错误是什么。非常感谢任何帮助。