Manipulate[EdgeDetect[,r,t],{{r,2,"radius"},1,10},{{t,.1,"threshold"},0,.5}]