作者celestialgod (攸蓝)
看板R_Language
标题Re: [问题] 记忆体不足
时间Sun Jun 23 14:09:53 2013
: N = 500
这些变数应该是你要储存的资讯
长度应是你大回圈的长度吧？
L0 = NULL; length(L0) = N
L1 = NULL; length(L1) = N
L2 = NULL; length(L2) = N
Alpha1 = NULL; length(alpha1) = N
Alpha2 = NULL; length(alpha2) = N
: Z1 = matrix(,ncol=2,nrow=length(t1))
: Z2 = matrix(,ncol=2,nrow=length(t2))
: for(i in 1:length(t1)){
: Z1[i,] = rmultinom(1,1,c(g1(t1[i]),(1-g1(t1[i]))))
: }
: for(i in 1:length(t2)){
: Z2[i,] = rmultinom(1,1,c(g2(t2[i]),(1-g2(t2[i]))))
: }
: }
这里可以先做简单的修改
Z1 = sapply(1:length(t1), function(k) rmultinom(1,1,c(g1(t1[k]),(1-g1(t1[k])))))
Z2 = sapply(1:length(t2), function(k) rmultinom(1,1,c(g2(t2[k]),(1-g2(t2[k]))))
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 36.239.245.94
1F：→ celestialgod:如果需要更进一步的程式谘询 可能需要多一点的资讯 06/23 14:11