A = function(j,x){
  if(x<0 & x>j){stop(print(1))}
   else{
     s=0
     for(k in 0:x){
      s = s + ((j-1) * ((2)^k) * x)
    }
  }
 return(s)
}

附带说明一下,有人知道如何不使用循环并使用外部函数或应用程序来运行此函数吗?

#1楼 票数:0

像这样:?

j <- 2
x <- 2

A(j, x)
# [1] 14

A2  <- function(j, x){
  if(x<0 & x>j) {
    stop(print(1))
    } else {
      s <- sum((j-1) * 2^(0:x) * x)
  }
  return(s)
}

A2(j, x)
# [1] 14

  ask by R247 translate from so

未解决问题?本站智能推荐:

1回复

如何在R中将两个总和更改为两个for循环?

编辑: 我有一个名为y的向量,它有n数字元素和一个名为w的矩阵n*n ,其中的元素是数字。 我想对上述数据使用以下公式: 我使用函数outer和sum在 R 中编写了以下代码: L的输出是-0.1873 现在,我想更改我上面的代码,用两个for循环来编写它(不使用outer和sum
1回复

R/dplyr 中的循环完全连接

我正在尝试构建一个 for 循环,它将在 dplyr 中进行一系列完全连接。 我想加快这个速度: 输出文件的数量并不总是等于 9,但它们将始终采用 Qn_output 格式,其中 n 对于给定的分析系列会发生变化。 有没有办法构造一个可以做到这一点的函数? 输出文件将始终是数据框,并且将始终
2回复

R double for 循环:外部还是应用?

我有以下代码: 代码完美运行,但在较大的数据集上有点慢。 我想通过使用apply或outer family 来提高速度。 问题是: 我知道如何使用 apply 应用单个循环,但不是 2,尤其是在这种情况下,我需要根据案例特定条件替换单个值,用另一个单个值(滞后)加上标准的乘数偏差(这是我需
1回复

是否突破外部循环仍然适用于Swift 2?

我正在阅读Michael Dippery @ 2015的书“Professional Swift”。在第25页的书中,他写道: “break和continue语句都会从最里面的循环中断开。但是,你可以标记循环,这样你就可以突破外循环了” 但是,当我改变时,在操场上: 代码到
1回复

外循环遍历每一行,嵌套循环遍历每个字符

我必须编写一个以char为参数的静态方法“ count”,该方法将返回此char在Layout.ROWS(类Layout中的字符串数组)中出现的次数。 为此,我需要一个外部循环遍历每一行,并使用嵌套循环遍历每个字符。 这是我尝试的: 但这是行不通的。 我的输出是:线程“主”中的异常
2回复

将外部应用于矩阵内的列

我有两个矩阵:x 和y 如何减去列中元素的组合? 给我以下结果: 我尝试应用外部函数,但是不能使其与矩阵一起使用。 将功能向量化是解决方案吗? 我已经尝试了下面的代码,但似乎没有用。 在此先感谢您的任何建议。
1回复

如何在r中并行化外部函数?

我想使用外部函数构建列表中各种对象的相似性矩阵,并使用并行化代码以有效的方式进行。 在另一种方式中,如何在外部并行化 FUN,其中矩阵 <- 外部(X,Y,FUN,...) 我在 Windows 上使用 Rstudio 版本 1.2.1335 和 R x64 3.6.1。 这是一个简单的代码
1回复

如何从 R 中的外部函数创建一个稀疏矩阵?

在我的代码中,外部函数输出一个矩阵。 是否有可能使输出稀疏矩阵? 我可以将这个输出矩阵转换为一个稀疏矩阵,但我想做一些类似 outer(......, sparse=T) 的事情,而不是先有密集矩阵然后再转换。 因为我有非常大的数据。 我的代码和简短的示例向量如下。 我已阅读所有相关帖子,但无法弄清