44 lines
1.0 KiB
R
44 lines
1.0 KiB
R
library(parallel)
|
|
soundRep<-"../sound/"
|
|
ResultRep<-"../result/"
|
|
ListSound<-dir(soundRep)
|
|
|
|
#### PARALLELE ####
|
|
no_cores<-detectCores()
|
|
c2<-makeCluster(no_cores)
|
|
|
|
parLapply(c2,ListSound, function(x){
|
|
|
|
library(tuneR)
|
|
library(seewave)
|
|
|
|
source("AcouIndexAlpha.r")
|
|
|
|
soundRep<-"../sound/"
|
|
ResultRep<-"../result/"
|
|
ListSound<-dir(soundRep)
|
|
|
|
TableTotal<-NULL
|
|
|
|
a=0
|
|
b=1
|
|
for (i in 1: 6)
|
|
{
|
|
wave<-readWave(paste(soundRep,x, sep="/"),from=a,to=b,units="minutes")
|
|
Result<-AcouIndexAlpha(wave, stereo=FALSE, min_freq = 1000, max_freq = 22000,anthro_min = 300,
|
|
anthro_max = 2000,bio_min=2000,bio_max=18000, wl=512, j=5,
|
|
AcouOccupancy=FALSE,Bioac=TRUE,Hf=FALSE,Ht=FALSE,H=FALSE,ACI=TRUE,
|
|
AEI_villa=FALSE,M=FALSE,NDSI=TRUE,ADI=FALSE,NP=TRUE)
|
|
|
|
Result$Mono_left$ID<-paste(x,i, sep="_")
|
|
TableTotal<-rbind(TableTotal,Result$Mono_left)
|
|
a=a+10
|
|
b=b+10
|
|
}
|
|
|
|
|
|
|
|
write.table(TableTotal,file=paste(ResultRep,"/",x,".csv", sep=""), sep=";", row.names = F)
|
|
|
|
})
|