R语言编程问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助各位大神，我想用R编写一段函数，具体功能如下：
输入某个数字a，R语言会输出从x1+x2+...+xa这段公式。
例如，当a=10时，R语言输出x1+x2+x3+x4+x5+x6+x7+x8+x9+x10

谢谢各位！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：语言输出 具体功能 体功能 R语言编程

simple_fun <- function(x) {
  stopifnot(is.integer(x) && x >= 1L)
  paste(paste0("X", seq(x)), collapse = " + ")
}

谢谢大神！我想请教一下中间这部分语句  stopifnot(is.integer(x) && x >= 1L) 是什么意思呢？如果加入了这段语句R会报错，不加入就不会。。。

> simple_fun <- function(x) {
+   stopifnot(is.integer(x) && x >= 1L)
+   paste(paste0("X", seq(x)), collapse = " + ")
+ }
>
> x <- 10
> simple_fun(x)
Error in simple_fun(x) : is.integer(x) && x >= 1L is not TRUE

cheetahfly 发表于 2018-10-11 22:38
simple_fun = 1L)
  paste(paste0("X", seq(x)), collapse = " + ")
}

谢谢大神！我想请教一下中间这部分语句  stopifnot(is.integer(x) && x >= 1L) 是什么意思呢？如果加入了这段语句R会报错，不加入就不会。。。

> simple_fun <- function(x) {
+   stopifnot(is.integer(x) && x >= 1L)
+   paste(paste0("X", seq(x)), collapse = " + ")
+ }
>
> x <- 10
> simple_fun(x)
Error in simple_fun(x) : is.integer(x) && x >= 1L is not TRUE

?stopifnot  自己查看一下

   stopifnot(is.numeric(x) && x >= 1L)
改成上面的就对了。

cheetahfly 发表于 2018-10-11 22:38
simple_fun = 1L)
  paste(paste0("X", seq(x)), collapse = " + ")
}

学习了。 多谢！