[r] 정수 (0)를 잡는 방법?

Program / 글쓴이

integer(0)예 를 들어을 생성하는 명령문이 있다고 가정 해 봅시다.

 a <- which(1:3 == 5)

이것을 잡는 가장 안전한 방법은 무엇입니까?

답변

길이가 0 인 벡터 (정수 1)를 인쇄하는 R의 방법이므로 a길이가 0인지 테스트 할 수 있습니다 .

R> length(a)
[1] 0

그것은 당신이 식별하기 위해 사용하는 전략을 재고 가치가있을 수도 있는 당신이 원하는 요소를하지만, 더 구체적인 정보없이 대안 전략을 제시하기는 어렵다.

답변

구체적으로 길이가 0 인 정수 라면 다음과 같은 것을 원합니다.

is.integer0 <- function(x)
{
  is.integer(x) && length(x) == 0L
}

그것을 확인하십시오 :

is.integer0(integer(0)) #TRUE
is.integer0(0L)         #FALSE
is.integer0(numeric(0)) #FALSE

assertive이것을 위해 사용할 수도 있습니다 .

library(assertive)
x <- integer(0)
assert_is_integer(x)
assert_is_empty(x)
x <- 0L
assert_is_integer(x)
assert_is_empty(x)
## Error: is_empty : x has length 1, not 0.
x <- numeric(0)
assert_is_integer(x)
assert_is_empty(x)
## Error: is_integer : x is not of class 'integer'; it has class 'numeric'.

답변

아마 오프 주제,하지만, R은이 좋은, 논리적 벡터를 줄이기위한 신속하고 빈 인식 기능을 갖추고 – any와 all:

if(any(x=='dolphin')) stop("Told you, no mammals!")

답변

Andrie의 답변에서 영감을 얻은 경우 identical해당 객체 클래스의 빈 세트라는 사실을 사용하여 속성 문제를 사용 하거나 피할 수 있으며 해당 클래스의 요소와 결합합니다.

attr(a,"foo")<-"bar"

> identical(1L,c(a,1L))
[1] TRUE

또는 더 일반적으로 :

is.empty <- function(x, mode=NULL){
    if (is.null(mode)) mode <- class(x)
    identical(vector(mode,1),c(x,vector(class(x),1)))
}

b <- numeric(0)

> is.empty(a)
[1] TRUE
> is.empty(a,"numeric")
[1] FALSE
> is.empty(b)
[1] TRUE
> is.empty(b,"integer")
[1] FALSE

답변

if ( length(a <- which(1:3 == 5) ) ) print(a)  else print("nothing returned for 'a'")
#[1] "nothing returned for 'a'"

두 번째 생각에 나는 length(.)다음 보다 더 아름답다고 생각합니다 .

 if ( any(a <- which(1:3 == 5) ) ) print(a)  else print("nothing returned for 'a'")
 if ( any(a <- 1:3 == 5 ) ) print(a)  else print("nothing returned for 'a'")

답변