求帮忙改进代码：无法分配大小为16 Kb的矢量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

可能因为采用量比较大，系统错误提示如下。。
我要做的是从 copula函数采样，采样次数为：n.monte ；每次采样容量为： n.samp；
但是这句代码耗时较长，当数据量为 1万*1万时，耗时大概80s左右，当数据量如下面代码设置时，R崩了。。
求指教：应如何改进这句代码

1. > library(copula)
   
2. > scop=onacopulaL("Gumbel",list(3,1:2))
   
3. > n.monte = 1000000 # 模拟次数
   
4. > n.samp = 1000 # 每次采样容量
   
5. > samp = lapply(rep(n.samp,n.monte),rCopula,copula=scop)# 采样
   
6. 错误: 无法分配大小为16 Kb的矢量

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：无法分配 求帮忙 Library Copula opula