使用多个变量简化R函数
Btzzzz
我正在尝试在下面实现此模型：
但是由于所有Z和Us，我的代码非常混乱，我在寻找一些编码技巧，以使我的代码尽可能简短。
model = function(N,t1,t2){
Z1 = rnorm(N,0,1)
Z2 = rnorm(N,0,1)
Z3 = rnorm(N,0,1)
Z4 = rnorm(N,0,1)
U1 = runif(N,0,1)
U2 = runif(N,0,1)
T = (U2+t2*U1)/(1+t2)
X1 = (Z1+t1*U1)/(1+t1)
X2= (Z2+t1*U1)/(1+t1)
X3= (Z3+t1*U1)/(1+t1)
X4= (Z4+t1*U1)/(1+t1)
eps = rnorm(100,0,1)
Y = 2*X1 + 3*T*X2 + X3*(T+1)^2+ 4*X4*sin(2*pi*T)/(2-2*sin(2*pi*T))+eps
X = cbind(X1,X2,X3,X4)
return(list(X = X, Y = Y))}
托马斯·艾斯科丁
也许下面的代码简化了一点
model = function(N,t1,t2){
Z <- matrix(rnorm(4*N),nrow = N)
U <- matrix(runif(2*N),nrow = N)
W <- tcrossprod(U, rbind(c(t2, 1))) / (1+t2)
X <- (Z + t1*U[,1])/(1+t1)
eps <- rnorm(N)
M <- cbind(2,3*W,(W+1)**2,4*sin(2*pi*W)/(2-sin(2*pi*W)))
Y <- M*X + eps
return(list(X = X, Y = Y))
}
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
使用列表在R中创建多个函数/变量参数
- 2
简化多个相似的变量
- 3
如何计算多个变量之间的最相关变量（自身除外）？以及如何通过使用循环或映射函数来简化代码？
- 4
在多个函数中使用变量？
- 5
简化使用数组填充变量
- 6
简化使用数组填充变量
- 7
简化多个sql查询的不同变量
- 8
试图简化if语句中的多个变量
- 9
如何编写R函数，让我可以使用dplyr的％>％管道来操纵多个R变量？
- 10
如何使用map函数在r中使用多个自变量循环
- 11
使用多个函数来构建stringbuilder变量
- 12
如何使用名称变量创建多个函数？
- 13
如何简化以下多个onclick函数
- 14
在过滤器函数中使用多个逻辑运算符简化Javascript代码
- 15
简化在CasperJS中映射多个子元素以仅使用一个函数
- 16
如何使用基数R函数对多个变量进行数据框排序，这些变量的名称在矢量中给出？
- 17
如何在多个变量上使用相同的R重新编码函数而不对每个变量进行编码？
- 18
如何在R中跨多个变量运行表函数，并使用函数将结果编译为新数据集？
- 19
如何使用共享变量简化Tensorboard图？
- 20
使用python / pandas简化分类变量
- 21
如何使用多个或语句简化条件？
- 22
如何使用多个条件简化 VLOOKUP 公式
- 23
如何使用 linq 简化多个 foreach
- 24
“ rep”函数（R）中的“每个”自变量有多个值？
- 25
将 R 中的参数传递给多个实变量的函数
- 26
使用布尔代数简化逻辑函数
- 27
如何使用for循环简化JavaScript函数？
- 28
Clojure函数使用'and'进行符号简化
- 29
使用if函数简化字典列表
我来说两句