How to get consistent output when checking for infinite values

Question

# works fine
check = c(1,2,3,4, Inf)
out   = check[-which(check == Inf)]
print(out)
# [1] 1 2 3 4

# does not work fine 
check = c(1,2,3,4)
out   = check[-which(check == Inf)]
print(out)
# numeric(0)

The first example creates an outvariable with the correct values 1,2,3,4. The second variable creates an empty variable out as the which function returns integer(0) and apparently remove integer(0) from the check vector gives 0 elements.

I know how to write this in several lines but is there a one-liner for this?

Try `check[ !is.na(check) ]` ? After edit: `check[ is.finite() ]` ? — zx8754, Sep 20 '17 at 08:21
I changed the question to Inf. But this is working fine for Inf as well, thanks. Why don't you make it an answer? — agoldev, Sep 20 '17 at 08:24
you can also just drop the `which` and write `check[check != Inf]` — moodymudskipper, Sep 20 '17 at 09:02

score 3 · Accepted Answer · answered Sep 20 '17 at 08:27

3

Try, is.finite():

# example 1
check <- c(1, 2, 3, 4, Inf)
out <- check[ is.finite(check) ]
out
# [1] 1 2 3 4

# example 2
check <- c(1, 2, 3, 4)
out <- check[ is.finite(check) ]
out
# [1] 1 2 3 4

Related post about: is.finite().

answered Sep 20 '17 at 08:27

zx8754

52,746
12
114
209

score 1 · Answer 2 · answered Sep 20 '17 at 08:29

1

check = c(1,2,3,4)
out   = check[!is.infinite(check)]
print(out)

answered Sep 20 '17 at 08:29

simone

577
1
7
15

score 0 · Answer 3 · answered Sep 20 '17 at 08:27

0

Not sure whether this is technically a oneliner...

out   = if (any(is.na(check))) {check[-which(is.na(check))]} else {check}

answered Sep 20 '17 at 08:27

PejoPhylo

469
2
11

1

It is, but the other solution is cleaner ;) – agoldev Sep 20 '17 at 08:35

How to get consistent output when checking for infinite values

3 Answers3