R言語の画像処理におけるエッジ検出プログラムの画素値について

R言語を使った画像処理においてエッジ検出プログラムの解読を行っているのですが、文中の最後の部分で、なぜ0.03を境に画素値を0と1に変換しているかという問題なのですが、この画像の平均輝度が0.03だからという理由で良いのでしょうか？

R
1library(imager)
2
3n <- 256    #64
4n2 <- n*n
5
6m <- n/4
7img = load.image("House.jpg")    #( "insects.jpg" )
8grayimg = grayscale(img)
9subi<-imsub(grayimg,x>=90)
10subi<-imsub(subi,x<=256)
11subi<-imsub(subi,y>=100)
12subi<-imsub(subi,y<=256)
13
14#subi<-imsub(grayimg,x>= 1)
15#subi<-imsub(subi,x<=256)
16#subi<-imsub(subi,y>=55)
17#subi<-imsub(subi,y<=256)
18
19#subi<-imsub(grayimg,x>= 385)
20#subi<-imsub(subi,y>=100)
21#subi<-imsub(subi,y<=256)
22
23#subi<-imsub(grayimg,x>= 101)
24#subi<-imsub(subi,x<=64)
25#subi<-imsub(subi,y>=141)
26#subi<-imsub(subi,y<=64)
27
28subih<-subi
29subiv<-subi
30
31# Vertical edge
32for (j in 1:n){
33   for (i in 1:m){
34      tmp=subiv[(i-1)*4+1,j,1,1]+subiv[(i-1)*4+2,j,1,1]-subiv[(i-1)*4+3,j,1,1]-subiv[(i-1)*4+4,j,1,1]
35      subiv[(i-1)*4+1,j,1,1]=abs(tmp/4)
36      subiv[(i-1)*4+2,j,1,1]=abs(tmp/4)
37      subiv[(i-1)*4+3,j,1,1]=abs(tmp/4)
38      subiv[(i-1)*4+4,j,1,1]=abs(tmp/4)
39   }
40}
41
42gsubiv= subiv + 0.9
43gsubiv[ gsubiv > 1 ] = 1
44
45# Horizontal edge
46for (i in 1:n){
47   for (j in 1:m){
48      tmp=subih[i,(j-1)*4+1,1,1]+subih[i,(j-1)*4+2,1,1]-subih[i,(j-1)*4+3,1,1]-subih[i,(j-1)*4+4,1,1]
49      subih[i,(j-1)*4+1,1,1]=abs(tmp/4)
50      subih[i,(j-1)*4+2,1,1]=abs(tmp/4)
51      subih[i,(j-1)*4+3,1,1]=abs(tmp/4)
52      subih[i,(j-1)*4+4,1,1]=abs(tmp/4)
53   }
54}
55
56#gsubih= subih + 0.9
57#gsubih[ gsubih > 1 ] = 1
58
59gsubi= (subiv+subih)/2
60
61########################
62
63#gsubi= gsubi + 0.9
64#gsubi[ gsubi > 1 ] = 1
65
66########################
67
68gsubi[ gsubi > .03] = 1        #.07
69gsubi[ gsubi <= .03 ] = 0
70plot( gsubi )