RStudio_bcmaps_unititled_0C2B9F8D

values <- runif(100)

# get runs where values > 0.75 (these are TRUE/FALSE)
runs <- rle(values > 0.75)

# Mask out the runs with lengths < 3
runs$values[runs$lengths < 3] <- FALSE

# Get a vector of positions that meet the run criteria
masked <- inverse.rle(runs)

# The above gives TRUE/FALSE but can convert to TRUE/NA like the 
# original solution
masked[!masked] <- NA

masked