## Create a data matrix
X <- matrix(sample(1:10, 25, TRUE), nrow = 5, ncol = 5)
## Add Inf
k <- sample(1:25, 3, FALSE)
X[k] <- Inf
X
## Remove rows with Inf
remove_Inf(X, margin = 1)
## Replace Inf with zeros
replace_Inf(X, value = 0)
Run the code above in your browser using DataLab