{ "id": 397469, "title": "Using BirdNET-Analyzer-GUI", "url": "/competitions/birdclef-2023/discussion/397469", "author_name": "", "post_date": "2023-03-25T19:17:08.383338600Z", "votes": 1, "comment_count": 1, "views": 0, "content": "

Download BirdNET-Analyzer from:

\n

https://github.com/kahst/BirdNET-Analyzer#birdnet-analyzer

\n

Then:

\n

C:\\birdnet\\BirdNET-Analyzer\\BirdNET-Analyzer-GUI.exe

\n

There are at least 94 birds in birdnet

\n

library(stringr)

\n

tr = read.csv(\"c:/b23/train_metadata.csv\")
\nbirdtxt <- read.csv(\"C:\\birdnet\\BirdNET-Analyzer\\labels\\V2.1\\BirdNET_GLOBAL_2K_V2.1_Labels_af.txt\")
\nnames(birdtxt)<- 'birds'

\n

primary_label<-unique(tr$primary_label)
\nscientific_name<-unique(tr$scientific_name)
\ncommon_name<-unique(tr$common_name)
\nbirdnames<-data.frame(primary_label,scientific_name,common_name,stringsAsFactors = FALSE)

\n

k<-0\nsp<- ''\nfor(n in 1:264){\n j<-which(str_detect(birdtxt$birds,scientific_name[n]) == T)\n if(length(j)>0 ) {
\n k<- k+1
\n sp[k]<- primary_label[n]
\n }
\n}
\nsp
\n[1] \"abhori1\" \"afdfly1\" \"afecuc1\" \"affeag1\" \"afghor1\" \"afmdov1\" \"afpfly1\" \"afpwag1\"
\n[9] \"afrgos1\" \"afrthr1\" \"barswa\" \"bcbeat1\" \"bkctch1\" \"blacra1\" \"blacuc1\" \"blakit1\"
\n[17] \"blaplo1\" \"blbpuf2\" \"brctch1\" \"brubru1\" \"btweye2\" \"carcha1\" \"carwoo1\" \"categr\"
\n[25] \"chibat1\" \"cohmar1\" \"colsun2\" \"combul2\" \"combuz1\" \"comsan\" \"crohor1\" \"darbar1\"
\n[33] \"didcuc1\" \"eaywag1\" \"egygoo\" \"eswdov1\" \"eubeat1\" \"fotdro5\" \"gargan\" \"gbesta1\"
\n[41] \"gobbun1\" \"grbcam1\" \"grecor\" \"greegr\" \"grewoo2\" \"gycwar3\" \"gyhbus1\" \"gyhspa1\"
\n[49] \"hadibi1\" \"helgui\" \"hoopoe\" \"klacuc1\" \"laudov1\" \"lawgol\" \"lessts1\" \"litegr\"
\n[57] \"litswi1\" \"piecro1\" \"piekin1\" \"pitwhy\" \"ratcis1\" \"rbsrob1\" \"reccor\" \"reccuc1\"
\n[65] \"reedov1\" \"refcro1\" \"reftin1\" \"rerswa1\" \"rindov\" \"sccsun2\" \"sincis1\" \"slcbou1\"
\n[73] \"somgre1\" \"spemou2\" \"spmthr1\" \"spwlap1\" \"strher\" \"subbus1\" \"tafpri1\" \"tamdov1\"
\n[81] \"thrnig1\" \"trobou1\" \"varsun2\" \"vilwea1\" \"wbrcha2\" \"wbswea1\" \"whbcou1\" \"wlwwar\"
\n[89] \"wookin1\" \"woosan\" \"yebapa1\" \"yefcan\" \"yertin1\" \"yewgre1\"

\n

# I entered C:\\b23\\train_audio\\abhori1 in Select input path & Select output path
\n # Select R for Output format:
\n # wait for Analysis done then:

\n

fnames <- list.files(\"C:/b23/train_audio/abhori1\", full.names = T, patt = \"*.csv\",recursive=F)
\nrfiles<-data.frame(fnames,stringsAsFactors = FALSE)
\nresults <- read.csv(rfiles$fnames[1])
\nfor(n in 2:nrow(rfiles)){
\n results<- rbind(results,read.csv(rfiles$fnames[n]))
\n}

\n

results<- results[results$confidence>0.7,1:6]

\n

head(results)
\n filepath start end scientific_name
\n1 C:\\b23\\train_audio\\abhori1\\XC120250.ogg 0 3 Oriolus larvatus
\n2 C:\\b23\\train_audio\\abhori1\\XC120250.ogg 12 15 Oriolus larvatus
\n6 C:\\b23\\train_audio\\abhori1\\XC120250.ogg 3 6 Oriolus larvatus
\n13 C:\\b23\\train_audio\\abhori1\\XC120251.ogg 0 3 Oriolus larvatus
\n14 C:\\b23\\train_audio\\abhori1\\XC120251.ogg 12 15 Oriolus larvatus
\n15 C:\\b23\\train_audio\\abhori1\\XC120251.ogg 15 18 Oriolus larvatus

\n
               common_name           confidence\n
\n

1 African Black-headed Oriole 0.9922
\n2 African Black-headed Oriole 0.9776
\n6 African Black-headed Oriole 0.9984
\n13 African Black-headed Oriole 0.9971
\n14 African Black-headed Oriole 0.9977
\n15 African Black-headed Oriole 0.9936

", "messages": [ { "id": "2196991", "postDate": "03/25/2023 19:17:08", "content": "

Download BirdNET-Analyzer from:

\n

https://github.com/kahst/BirdNET-Analyzer#birdnet-analyzer

\n

Then:

\n

C:\\birdnet\\BirdNET-Analyzer\\BirdNET-Analyzer-GUI.exe

\n

There are at least 94 birds in birdnet

\n

library(stringr)

\n

tr = read.csv(\"c:/b23/train_metadata.csv\")
\nbirdtxt <- read.csv(\"C:\\birdnet\\BirdNET-Analyzer\\labels\\V2.1\\BirdNET_GLOBAL_2K_V2.1_Labels_af.txt\")
\nnames(birdtxt)<- 'birds'

\n

primary_label<-unique(tr$primary_label)
\nscientific_name<-unique(tr$scientific_name)
\ncommon_name<-unique(tr$common_name)
\nbirdnames<-data.frame(primary_label,scientific_name,common_name,stringsAsFactors = FALSE)

\n

k<-0\nsp<- ''\nfor(n in 1:264){\n j<-which(str_detect(birdtxt$birds,scientific_name[n]) == T)\n if(length(j)>0 ) {
\n k<- k+1
\n sp[k]<- primary_label[n]
\n }
\n}
\nsp
\n[1] \"abhori1\" \"afdfly1\" \"afecuc1\" \"affeag1\" \"afghor1\" \"afmdov1\" \"afpfly1\" \"afpwag1\"
\n[9] \"afrgos1\" \"afrthr1\" \"barswa\" \"bcbeat1\" \"bkctch1\" \"blacra1\" \"blacuc1\" \"blakit1\"
\n[17] \"blaplo1\" \"blbpuf2\" \"brctch1\" \"brubru1\" \"btweye2\" \"carcha1\" \"carwoo1\" \"categr\"
\n[25] \"chibat1\" \"cohmar1\" \"colsun2\" \"combul2\" \"combuz1\" \"comsan\" \"crohor1\" \"darbar1\"
\n[33] \"didcuc1\" \"eaywag1\" \"egygoo\" \"eswdov1\" \"eubeat1\" \"fotdro5\" \"gargan\" \"gbesta1\"
\n[41] \"gobbun1\" \"grbcam1\" \"grecor\" \"greegr\" \"grewoo2\" \"gycwar3\" \"gyhbus1\" \"gyhspa1\"
\n[49] \"hadibi1\" \"helgui\" \"hoopoe\" \"klacuc1\" \"laudov1\" \"lawgol\" \"lessts1\" \"litegr\"
\n[57] \"litswi1\" \"piecro1\" \"piekin1\" \"pitwhy\" \"ratcis1\" \"rbsrob1\" \"reccor\" \"reccuc1\"
\n[65] \"reedov1\" \"refcro1\" \"reftin1\" \"rerswa1\" \"rindov\" \"sccsun2\" \"sincis1\" \"slcbou1\"
\n[73] \"somgre1\" \"spemou2\" \"spmthr1\" \"spwlap1\" \"strher\" \"subbus1\" \"tafpri1\" \"tamdov1\"
\n[81] \"thrnig1\" \"trobou1\" \"varsun2\" \"vilwea1\" \"wbrcha2\" \"wbswea1\" \"whbcou1\" \"wlwwar\"
\n[89] \"wookin1\" \"woosan\" \"yebapa1\" \"yefcan\" \"yertin1\" \"yewgre1\"

\n

# I entered C:\\b23\\train_audio\\abhori1 in Select input path & Select output path
\n # Select R for Output format:
\n # wait for Analysis done then:

\n

fnames <- list.files(\"C:/b23/train_audio/abhori1\", full.names = T, patt = \"*.csv\",recursive=F)
\nrfiles<-data.frame(fnames,stringsAsFactors = FALSE)
\nresults <- read.csv(rfiles$fnames[1])
\nfor(n in 2:nrow(rfiles)){
\n results<- rbind(results,read.csv(rfiles$fnames[n]))
\n}

\n

results<- results[results$confidence>0.7,1:6]

\n

head(results)
\n filepath start end scientific_name
\n1 C:\\b23\\train_audio\\abhori1\\XC120250.ogg 0 3 Oriolus larvatus
\n2 C:\\b23\\train_audio\\abhori1\\XC120250.ogg 12 15 Oriolus larvatus
\n6 C:\\b23\\train_audio\\abhori1\\XC120250.ogg 3 6 Oriolus larvatus
\n13 C:\\b23\\train_audio\\abhori1\\XC120251.ogg 0 3 Oriolus larvatus
\n14 C:\\b23\\train_audio\\abhori1\\XC120251.ogg 12 15 Oriolus larvatus
\n15 C:\\b23\\train_audio\\abhori1\\XC120251.ogg 15 18 Oriolus larvatus

\n
               common_name           confidence\n
\n

1 African Black-headed Oriole 0.9922
\n2 African Black-headed Oriole 0.9776
\n6 African Black-headed Oriole 0.9984
\n13 African Black-headed Oriole 0.9971
\n14 African Black-headed Oriole 0.9977
\n15 African Black-headed Oriole 0.9936

", "rawMarkdown": "# Download BirdNET-Analyzer from:\n# https://github.com/kahst/BirdNET-Analyzer#birdnet-analyzer\n# Then:\n# C:\\birdnet\\BirdNET-Analyzer\\BirdNET-Analyzer-GUI.exe\n# There are at least 94 birds in birdnet\n\nlibrary(stringr)\n\ntr = read.csv(\"c:/b23/train_metadata.csv\")\nbirdtxt <- read.csv(\"C:\\\\birdnet\\\\BirdNET-Analyzer\\\\labels\\\\V2.1\\\\BirdNET_GLOBAL_2K_V2.1_Labels_af.txt\")\nnames(birdtxt)<- 'birds'\n\nprimary_label<-unique(tr$primary_label)\nscientific_name<-unique(tr$scientific_name)\ncommon_name<-unique(tr$common_name)\nbirdnames<-data.frame(primary_label,scientific_name,common_name,stringsAsFactors = FALSE)\n\nk<-0\nsp<- ''\nfor(n in 1:264){\n j<-which(str_detect(birdtxt$birds,scientific_name[n]) == T)\n if(length(j)>0 ) {\n k<- k+1\n sp[k]<- primary_label[n]\n }\n}\nsp\n[1] \"abhori1\" \"afdfly1\" \"afecuc1\" \"affeag1\" \"afghor1\" \"afmdov1\" \"afpfly1\" \"afpwag1\"\n[9] \"afrgos1\" \"afrthr1\" \"barswa\" \"bcbeat1\" \"bkctch1\" \"blacra1\" \"blacuc1\" \"blakit1\"\n[17] \"blaplo1\" \"blbpuf2\" \"brctch1\" \"brubru1\" \"btweye2\" \"carcha1\" \"carwoo1\" \"categr\" \n[25] \"chibat1\" \"cohmar1\" \"colsun2\" \"combul2\" \"combuz1\" \"comsan\" \"crohor1\" \"darbar1\"\n[33] \"didcuc1\" \"eaywag1\" \"egygoo\" \"eswdov1\" \"eubeat1\" \"fotdro5\" \"gargan\" \"gbesta1\"\n[41] \"gobbun1\" \"grbcam1\" \"grecor\" \"greegr\" \"grewoo2\" \"gycwar3\" \"gyhbus1\" \"gyhspa1\"\n[49] \"hadibi1\" \"helgui\" \"hoopoe\" \"klacuc1\" \"laudov1\" \"lawgol\" \"lessts1\" \"litegr\" \n[57] \"litswi1\" \"piecro1\" \"piekin1\" \"pitwhy\" \"ratcis1\" \"rbsrob1\" \"reccor\" \"reccuc1\"\n[65] \"reedov1\" \"refcro1\" \"reftin1\" \"rerswa1\" \"rindov\" \"sccsun2\" \"sincis1\" \"slcbou1\"\n[73] \"somgre1\" \"spemou2\" \"spmthr1\" \"spwlap1\" \"strher\" \"subbus1\" \"tafpri1\" \"tamdov1\"\n[81] \"thrnig1\" \"trobou1\" \"varsun2\" \"vilwea1\" \"wbrcha2\" \"wbswea1\" \"whbcou1\" \"wlwwar\" \n[89] \"wookin1\" \"woosan\" \"yebapa1\" \"yefcan\" \"yertin1\" \"yewgre1\"\n\n\n\n # I entered C:\\b23\\train_audio\\abhori1 in Select input path & Select output path\n # Select R for Output format:\n # wait for Analysis done then:\n\nfnames <- list.files(\"C:/b23/train_audio/abhori1\", full.names = T, patt = \"*.csv\",recursive=F)\nrfiles<-data.frame(fnames,stringsAsFactors = FALSE)\nresults <- read.csv(rfiles$fnames[1])\nfor(n in 2:nrow(rfiles)){\n results<- rbind(results,read.csv(rfiles$fnames[n])) \n}\n\nresults<- results[results$confidence>0.7,1:6]\n\nhead(results)\n filepath start end scientific_name\n1 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120250.ogg 0 3 Oriolus larvatus\n2 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120250.ogg 12 15 Oriolus larvatus\n6 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120250.ogg 3 6 Oriolus larvatus\n13 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120251.ogg 0 3 Oriolus larvatus\n14 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120251.ogg 12 15 Oriolus larvatus\n15 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120251.ogg 15 18 Oriolus larvatus\n\n common_name confidence\n1 African Black-headed Oriole 0.9922\n2 African Black-headed Oriole 0.9776\n6 African Black-headed Oriole 0.9984\n13 African Black-headed Oriole 0.9971\n14 African Black-headed Oriole 0.9977\n15 African Black-headed Oriole 0.9936", "votes": null }, { "id": "2197768", "postDate": "03/26/2023 11:59:09", "content": "

I see BirdNET Analyzer is updated repo for BirdNET project. Thanks for posting

", "rawMarkdown": "I see BirdNET Analyzer is updated repo for BirdNET project. Thanks for posting", "votes": null } ], "comments": [ { "id": 2197768, "author_name": "mahendrask121", "author_url": "", "post_date": "03/26/2023 11:59:09", "content": "

I see BirdNET Analyzer is updated repo for BirdNET project. Thanks for posting

", "votes": null, "replies": [] } ], "raw_markdown_by_id": { "2196991": "# Download BirdNET-Analyzer from:\n# https://github.com/kahst/BirdNET-Analyzer#birdnet-analyzer\n# Then:\n# C:\\birdnet\\BirdNET-Analyzer\\BirdNET-Analyzer-GUI.exe\n# There are at least 94 birds in birdnet\n\nlibrary(stringr)\n\ntr = read.csv(\"c:/b23/train_metadata.csv\")\nbirdtxt <- read.csv(\"C:\\\\birdnet\\\\BirdNET-Analyzer\\\\labels\\\\V2.1\\\\BirdNET_GLOBAL_2K_V2.1_Labels_af.txt\")\nnames(birdtxt)<- 'birds'\n\nprimary_label<-unique(tr$primary_label)\nscientific_name<-unique(tr$scientific_name)\ncommon_name<-unique(tr$common_name)\nbirdnames<-data.frame(primary_label,scientific_name,common_name,stringsAsFactors = FALSE)\n\nk<-0\nsp<- ''\nfor(n in 1:264){\n j<-which(str_detect(birdtxt$birds,scientific_name[n]) == T)\n if(length(j)>0 ) {\n k<- k+1\n sp[k]<- primary_label[n]\n }\n}\nsp\n[1] \"abhori1\" \"afdfly1\" \"afecuc1\" \"affeag1\" \"afghor1\" \"afmdov1\" \"afpfly1\" \"afpwag1\"\n[9] \"afrgos1\" \"afrthr1\" \"barswa\" \"bcbeat1\" \"bkctch1\" \"blacra1\" \"blacuc1\" \"blakit1\"\n[17] \"blaplo1\" \"blbpuf2\" \"brctch1\" \"brubru1\" \"btweye2\" \"carcha1\" \"carwoo1\" \"categr\" \n[25] \"chibat1\" \"cohmar1\" \"colsun2\" \"combul2\" \"combuz1\" \"comsan\" \"crohor1\" \"darbar1\"\n[33] \"didcuc1\" \"eaywag1\" \"egygoo\" \"eswdov1\" \"eubeat1\" \"fotdro5\" \"gargan\" \"gbesta1\"\n[41] \"gobbun1\" \"grbcam1\" \"grecor\" \"greegr\" \"grewoo2\" \"gycwar3\" \"gyhbus1\" \"gyhspa1\"\n[49] \"hadibi1\" \"helgui\" \"hoopoe\" \"klacuc1\" \"laudov1\" \"lawgol\" \"lessts1\" \"litegr\" \n[57] \"litswi1\" \"piecro1\" \"piekin1\" \"pitwhy\" \"ratcis1\" \"rbsrob1\" \"reccor\" \"reccuc1\"\n[65] \"reedov1\" \"refcro1\" \"reftin1\" \"rerswa1\" \"rindov\" \"sccsun2\" \"sincis1\" \"slcbou1\"\n[73] \"somgre1\" \"spemou2\" \"spmthr1\" \"spwlap1\" \"strher\" \"subbus1\" \"tafpri1\" \"tamdov1\"\n[81] \"thrnig1\" \"trobou1\" \"varsun2\" \"vilwea1\" \"wbrcha2\" \"wbswea1\" \"whbcou1\" \"wlwwar\" \n[89] \"wookin1\" \"woosan\" \"yebapa1\" \"yefcan\" \"yertin1\" \"yewgre1\"\n\n\n\n # I entered C:\\b23\\train_audio\\abhori1 in Select input path & Select output path\n # Select R for Output format:\n # wait for Analysis done then:\n\nfnames <- list.files(\"C:/b23/train_audio/abhori1\", full.names = T, patt = \"*.csv\",recursive=F)\nrfiles<-data.frame(fnames,stringsAsFactors = FALSE)\nresults <- read.csv(rfiles$fnames[1])\nfor(n in 2:nrow(rfiles)){\n results<- rbind(results,read.csv(rfiles$fnames[n])) \n}\n\nresults<- results[results$confidence>0.7,1:6]\n\nhead(results)\n filepath start end scientific_name\n1 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120250.ogg 0 3 Oriolus larvatus\n2 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120250.ogg 12 15 Oriolus larvatus\n6 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120250.ogg 3 6 Oriolus larvatus\n13 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120251.ogg 0 3 Oriolus larvatus\n14 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120251.ogg 12 15 Oriolus larvatus\n15 C:\\\\b23\\\\train_audio\\\\abhori1\\\\XC120251.ogg 15 18 Oriolus larvatus\n\n common_name confidence\n1 African Black-headed Oriole 0.9922\n2 African Black-headed Oriole 0.9776\n6 African Black-headed Oriole 0.9984\n13 African Black-headed Oriole 0.9971\n14 African Black-headed Oriole 0.9977\n15 African Black-headed Oriole 0.9936", "2197768": "I see BirdNET Analyzer is updated repo for BirdNET project. Thanks for posting" }, "source": "meta" }