Error in selectFeatures() function

[yuxuanChen777]

When I run this code:
gene.mean <- apply(X = data, MARGIN = 1, FUN = ExpMean)
The maximum value of gene.mean returned is Inf.
How do I handle the Inf value, can I set Inf to the second largest value?