Right now, I've been trying threshold[min_,max_]=Apply[Select[EvenQ],Range[min,max]
threshold[min_,max_]=Apply[Select[EvenQ],Range[min,max]
However, that's not working. It seems extremely difficult to create a list and change it in one go.
Apply replaces the Head of an expression. Changing the Head to Select[EvenQ] results in this Select[EvenQ][1, 2, 3, 4, 5] which is invalid. You need this
Apply
Head
Select[EvenQ]
Select[EvenQ][1, 2, 3, 4, 5]
threshold[min_, max_] := Range[min, max] // Select[EvenQ]
There are many ways to do this you can try:
Clear[threshold]; threshold[min_, max_] := DeleteCases[Range[min, max], _?OddQ]
