在R中指定任意数字

这可能很简单，但在任何地方都找不到

w <- function(finaltable) {
  if (tail(names(finaltable),1) == c("carried##")) {
    (ncol(finaltable)-2)
  } else {
    (ncol(finaltable)-1)
  }
}

---

w我认为可以创建一个带有seq的数字序列，然后在for循环中连接所有数字

seq <- seq(1,100)

for(element in seq):
{
  w <- function(finaltable) {
    if (tail(names(finaltable),1) == c("carried", as.character(element))) {
      (ncol(finaltable)-2)
    } else {
      (ncol(finaltable)-1)
    }
  }
}

请写下你想完成的。就目前而言，你的问题很不清楚。是否要返回那些
ncol（finatable）
？是否要更改输入对象？你想做什么？引用自：“深吸一口气，从头到尾通读一遍。假装你是第一次看到它：它有意义吗？”@在我的代码中，“Barranka”的位置非常清楚，我想指定任何数字。@另外，不知道你为什么投了-3票？你的修正是基于风格的，不值得投反对票——3分。你可能认为这很清楚，但反对票和我们所有人都告诉你——这不清楚。这是个糟糕的问题，因为我们不知道你在问什么。我们面前没有您的代码的其余部分或您的总体目标。我们所拥有的只是你写的东西，这还不足以告诉我们你想要什么。把你的问题挖出来。人们不会阅读所有的评论来理解你的问题。你的代码间接地帮助了我。我不知道带字符的数字被视为字符。因为这是真的，所以我总是可以这样做，并以一种稳健的方式得到我的答案w=nchar（c（“carried”）{（ncol（finaltable）-2）}else（ncol（finaltable）-1）}；这样，您的代码更具可读性。如果我的答案是有用的（间接的），请投赞成票@谢谢你的朋友！实际上现在我的循环的其他部分不工作了。有什么想法吗？语法也应该是Right，另一列字符长度是6，因此在函数中，因为6不大于7，所以应该转到代码的其他部分
Arguments

... 
arguments passed to or from methods.

from, to    
the starting and (maximal) end values of the sequence. Of length 1 unless just from is supplied as an unnamed argument.

by  
number: increment of the sequence.

length.out  
desired length of the sequence. A non-negative number, which for seq and seq.int will be rounded up if fractional.

along.with  
take the length from the length of this argument.