数据库名称如何实现循环赋值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

想从一个数据库中反复抽取样本，每个样本赋一个名称，如何实现。
如，从data数据库中抽样10次，分别为samp1， samp2，……samp10。
请问如何实现，谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：如何实现 数据库 Data amp SAM 数据库 如何 样本

可以使用assign()函数

毓闻 发表于 2016-4-28 22:26
可以使用assign()函数

谢谢，不过您能否再具体一些，还是不太会用。R小白一枚

sample_names = paste0("samp", 1:10)
for (sample_name in sample_names) assign(sample_name, sample(1:10,2))

以上只是简单示例，你需要把sample(1:10,2)的部分改为你从数据库中取出样本的R命令

毓闻 发表于 2016-4-28 23:14
sample_names = paste0("samp", 1:10)
for (sample_name in sample_names) assign(sample_name, sample(1: ...

非常感谢！您的代码确实实现了重复命名。
不过我还是挺笨的，没有办法实现循环。
下面是我编的代码，
samp_names <- paste0("samp",1:nrow(x))
for (sample_name in sample_names) assign(sample_name, x[sample(1:nrow(x),nrow(x),replace=TRUE),])
{
   a[m]<-0
   b[m]<-0
   c[m]<-0
   d[m]<-0
   e[m]<-0
   f[m]<-0
for (i in 1:nrow(x))
  { if(samp_name$snp==1 & samp_name$group==0) a[m]<-a[m]+1
   else if(samp_name$snp==2 & samp_name$group==0) b[m]<-b[m]+1
   else if(samp_name$snp==3 & samp_name$group==0) c[m]<-c[m]+1
   else if(samp_name$snp==1 & samp_name$group==1) d[m]<-d[m]+1
   else if(samp_name$snp==2 & samp_name$group==1) e[m]<-e[m]+1
   else if(samp_name$snp==3 & samp_name$group==1) f[m]<-f[m]+1
}
at[m]<-((e*a)/(d*b))
aa[m]<-((f*a)/(d*c))
}

还请看看问题在哪里，谢谢！

lapply(1:10, function(x) assign(paste('samp', x, sep=""), sample(data, n))

lapply(1:10, function(x) assign(paste('samp', x, sep=""), sample(data, n))

lapply(1:10, function(x) assign(paste('samp', x, sep=""), sample(data, n))

lapply(1:10, function(x) assign(paste('samp', x, sep=""), sample(data, n))