r - 動物園のオブジェクトで「!is.na」関数を使用する方法

Question

is.na動物園のオブジェクトで関数を使用する際に問題があります。これが私が試したものです：

z1 <- zoo(matrix(1:8, 4, 2), as.Date("2003-01-01") + 0:3)
z1[2,1]<-NA

つまり、z1 は...

2003-01-01  1 5
2003-01-02 NA 6
2003-01-03  3 7
2003-01-04  4 8

列を乗算すると、次のis.naようになります。

!is.na(z1[,1])*z1[,2]

返されました：

2003-01-01 2003-01-02 2003-01-03 2003-01-04 
      TRUE      FALSE       TRUE       TRUE 

ただし、単純に TRUE*100 を実行すると、プログラムは数字を返します。

TRUE*100
[1] 100
FALSE*100
[1] 0

TRUEプログラムがs とs の代わりに数値を返すようにするには、どの関数を使用すればよいですか (動物園オブジェクトFALSEの同等の関数をここで探しています)。!is.na