R整数比较似乎忽略了位数

Question

我有一维的坐标，它描述了一个段的开始和结束。 我正在尝试编写一个函数，它告诉我一个段在另一个段内。 这就是我所拥有的，在这种情况下，看看b是否在a内：

isin <- function(a, b){

if (a[beginning] <= b[beginning] && a[end] >= b[end]){
  return TRUE
} 

问题是，它似乎并没有考虑数字的不同长度，例如：

a <- c(2345, 2380)
b <- c(234600, 237900)
isin(a, b)
TRUE

好像两个数字从第一个开始并排放置，并且所有不重叠的部分都会被截断。 我对这些东西还很陌生，所以如果我缺少整数的一些基本属性，请原谅。

Answer 1

假设通过开始和结束来表示向量的最后一个first和last元素，这应该可以工作：

isin <- function(a, b){

  if (a[1] <= b[1] & a[length(a)] >= b[length(b)]){
  # using length() to get the last element of vector
    return(TRUE)
  } else {return(FALSE)}

}

使用您的示例：

> a <- c(2345, 2380)
> b <- c(234600, 237900)
> isin(a, b)
[1] FALSE

返回TRUE的示例：

> a <- c(1, 9)
> b <- c(9, 1)
> isin(a, b)
[1] TRUE