错误代码咨询

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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)
我想用这段代码按列抽样，为什么抽出来的结果是按行抽的，请问有谁知道问题出在哪里了？要怎么解决吗

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：错误代码 Sampling Library BRARY seed