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 )
71

ネットや本で時間をかけて調べましたが、確信が得られませんでした。

Orlofsky

2019/10/28 12:36

> ネットや本で時間をかけて調べたのですが、部分的にしか分かりませんでした質問に調べた URL を https://teratail.com/help/question-tips#questionTips3-7 の [リンク] で [リンク先の説明](http...) で追加したり、書籍名を使いしたり、どこがわからないか具体的に追記できた方が適切なコメントが付き易いかと。

Orlofsky

2019/10/28 12:37

ここの掲示板は質問や回答を修正できるのはご存知ですか？