两个循环的输出问题

我有一个二元函数b（j,t），j从2到153，t从0到546。希望输出一个152*547的表格.谢谢
补充一下，我的152*547个数字里面，会有NA

hmzzz 发表于 2016-1-13 23:58
f.bt.all=function(j,t){coef(lm(all.er[c(1:120)+t*5,1]~all.er[c(1:120)+t*5,j]-1))}
all.er是一个很大 ...

抱歉，之前的代码错在没有将f.bt.all这个函数vectorize。

1. j <- 2:153
   
2. t <- 0:546
   
3. 
   
4. result <- outer(j, t, Vectorize(f.bt.all))

复制代码

为了看得清楚一些，我们可以给result标上行列名（j是行，t是列）：

1. rownames(result) <- j
   
2. colnames(result) <- t

复制代码

outer(2:153, 0:546, b)

suimong 发表于 2016-1-13 21:27
outer(2:153, 0:546, b)

写在循环里？还是直接用out函数

直接用outer函数，大部分没有复杂逻辑的嵌套循环都可以用outer，这是R Style的写法

suimong 发表于 2016-1-13 22:26
直接用outer函数，大部分没有复杂逻辑的嵌套循环都可以用outer，这是R Style的写法

返回错误说cannot allocate vector of size 51.5 Gb

额。。。你的b(j,t)函数能贴出来看一下么

suimong 发表于 2016-1-13 23:16
额。。。你的b(j,t)函数能贴出来看一下么

f.bt.all=function(j,t){coef(lm(all.er[c(1:120)+t*5,1]~all.er[c(1:120)+t*5,j]-1))}
all.er是一个很大的矩阵，我要取第1列和后面所有列回归的结果，并且rolling

suimong 发表于 2016-1-13 21:27
outer(2:153, 0:546, b)

又是我，又来问循环的问题。。。是这样，我还是一个跟原来类似的函数，两个参数，两次循环。但是里面有缺省值，我写的循环（简单的两个for）碰到缺省值就不行了，我该怎么跳过去呢？谢谢

hmzzz 发表于 2016-1-14 22:45
又是我，又来问循环的问题。。。是这样，我还是一个跟原来类似的函数，两个参数，两次循环。但是里面有缺 ...

你用代码辅助表达一下吧，纯文字表达很难让别人准确理解你的意思啊