library(sampling)
set.seed(123)
s <- rnorm(10000)
data <- matrix(s,100,100)
P <- det(data）
S <- apply(data,2,function(x){
  x <- sum(abs(x))
  x <- x*x
  return(x)
})
r <- S/P
n <- ncol(data)*0.7
data <- data.frame(data)
data$index <- 2

inx <- strata(data,stratanames='index',size=n,pik=r,method = c('poisson'))

R <- getdata(data,inx)
我想用这段代码按列抽样，为什么抽出来的结果是按行抽的，请问有谁知道问题出在哪里了？要怎么解决吗