data(arcticLake)
cont <- contaminate_simplex(arcticLake, epsilon = 0.1, delta = 10, seed = 42)
sum(cont$flags) # number of contaminated cells
rowSums(cont$x_contaminated) # should match rowSums(arcticLake)
Run the code above in your browser using DataLab