> prob <- c(0.5,0.4,0.3,0.1,0.0)
> cal <- prob * log(prob,base=2)
> cal
[1] -0.5000000 -0.5287712 -0.5210897 -0.3321928        NaN
> cal[is.nan(cal)] <- 0
> cal
[1] -0.5000000 -0.5287712 -0.5210897 -0.3321928  0.0000000
>


On 7/11/06, Taka Matzmoto <sell_mirage_ne@hotmail.com> wrote:
>
> Dear R-users
>
> >prob <- c(0.5,0.4,0.3,0.1,0.0)
> >cal <- prob * log(prob,base=2)
> >cal
> [1] -0.5000000 -0.5287712 -0.5210897 -0.3321928        NaN
>
> Is there any way to change NaN to zero ?
>
> I did come up with this by applying Ripley's relpy to my previous question
>
> cal <-prob*log(pmax(prob,0.00000001),base=2)
>
> Any suggestion ?
>
> Thank you
>
> Taka
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
> http://www.R-project.org/posting-guide.html
>



-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390 (Cell)
+1 513 247 0281 (Home)

What is the problem you are trying to solve?

	[[alternative HTML version deleted]]

