combined.sparrow.model: A Random Forest model for high-band detections.
In flightcallr: Classify Night Flight Calls Based on Acoustic Measurements

This model is built on call-vs-noise data from 13 NFC deployments in the northeastern US.

1	data(combined.sparrow.model)

The format is: List of 19 $ call : language randomForest(formula = Call_vs_Noise ~ ., data = bootstrap.all[, c(seewave.measures, "Call_vs_Noise", "Event_Duration")], na.action = na.omit) $ type : chr "classification" $ predicted : Factor w/ 2 levels "Call","Noise": 1 1 2 2 1 2 1 1 2 2 ... ..- attr(*, "names")= chr [1:20548] "1" "2" "3" "4" ... $ err.rate : num [1:500, 1:3] 0.0459 0.0487 0.0473 0.0448 0.0439 ... ..- attr(*, "dimnames")=List of 2 .. ..$ : NULL .. ..$ : chr [1:3] "OOB" "Call" "Noise" $ confusion : num [1:2, 1:3] 1.49e+03 1.44e+02 3.75e+02 1.85e+04 2.01e-01 ... ..- attr(*, "dimnames")=List of 2 .. ..$ : chr [1:2] "Call" "Noise" .. ..$ : chr [1:3] "Call" "Noise" "class.error" $ votes : matrix [1:20548, 1:2] 0.6354 0.7836 0.0485 0.3136 0.9781 ... ..- attr(*, "dimnames")=List of 2 .. ..$ : chr [1:20548] "1" "2" "3" "4" ... .. ..$ : chr [1:2] "Call" "Noise" ..- attr(*, "class")= chr [1:2] "matrix" "votes" $ oob.times : num [1:20548] 181 171 165 169 183 183 173 172 176 176 ... $ classes : chr [1:2] "Call" "Noise" $ importance : num [1:28, 1] 433.9 149.1 223.8 47.9 111.2 ... ..- attr(*, "dimnames")=List of 2 .. ..$ : chr [1:28] "Rugosity" "Crest_Factor" "Temporal_Entropy" "Shannon_Entropy" ... .. ..$ : chr "MeanDecreaseGini" $ importanceSD : NULL $ localImportance: NULL $ proximity : NULL $ ntree : num 500 $ mtry : num 5 $ forest :List of 14 ..$ ndbigtree : int [1:500] 985 1005 879 935 941 953 929 867 971 955 ... ..$ nodestatus: int [1:1069, 1:500] 1 1 1 1 1 1 1 1 1 1 ... ..$ bestvar : int [1:1069, 1:500] 3 22 7 1 3 28 28 18 10 2 ... ..$ treemap : int [1:1069, 1:2, 1:500] 2 4 6 8 10 12 14 16 18 20 ... ..$ nodepred : int [1:1069, 1:500] 0 0 0 0 0 0 0 0 0 0 ... ..$ xbestsplit: num [1:1069, 1:500] 0.98 659.5 0.287 0.315 0.978 ... ..$ pid : num [1:2] 1 1 ..$ cutoff : num [1:2] 0.5 0.5 ..$ ncat : Named int [1:28] 1 1 1 1 1 1 1 1 1 1 ... .. ..- attr(*, "names")= chr [1:28] "Rugosity" "Crest_Factor" "Temporal_Entropy" "Shannon_Entropy" ... ..$ maxcat : int 1 ..$ nrnodes : int 1069 ..$ ntree : num 500 ..$ nclass : int 2 ..$ xlevels :List of 28 .. ..$ Rugosity : num 0 .. ..$ Crest_Factor : num 0 .. ..$ Temporal_Entropy : num 0 .. ..$ Shannon_Entropy : num 0 .. ..$ Shannon_Entropy_Bandlimited : num 0 .. ..$ Spectral_Flatness_Measure : num 0 .. ..$ Spectral_Flatness_Measure_Bandlimited: num 0 .. ..$ Spectrum_Roughness : num 0 .. ..$ Spectrum_Roughness_Bandlimited : num 0 .. ..$ Autocorrelation_Mean : num 0 .. ..$ Autocorrelation_Median : num 0 .. ..$ Autocorrelation_Standard_Error : num 0 .. ..$ Dominant_Frequency_Mean : num 0 .. ..$ Dominant_Frequency_Standard_Error : num 0 .. ..$ Specprop_Mean : num 0 .. ..$ Specprop_SD : num 0 .. ..$ Specprop_SEM : num 0 .. ..$ Specprop_Median : num 0 .. ..$ Specprop_Mode : num 0 .. ..$ Specprop_Q25 : num 0 .. ..$ Specprop_Q75 : num 0 .. ..$ Specprop_IQR : num 0 .. ..$ Specprop_Cent : num 0 .. ..$ Specprop_Skewness : num 0 .. ..$ Specprop_Kurtosis : num 0 .. ..$ Specprop_SFM : num 0 .. ..$ Specprop_SH : num 0 .. ..$ Event_Duration : num 0 $ y : Factor w/ 2 levels "Call","Noise": 1 1 1 1 1 1 1 1 1 1 ... ..- attr(*, "names")= chr [1:20548] "1" "2" "3" "4" ... $ test : NULL $ inbag : NULL $ terms :Classes 'terms', 'formula' length 3 Call_vs_Noise ~ Rugosity + Crest_Factor + Temporal_Entropy + Shannon_Entropy + Shannon_Entropy_Bandlimited + Spectral_Flatness_Measure + Spectral_Flatness_Measure_Bandlimited + ... .. ..- attr(*, "variables")= language list(Call_vs_Noise, Rugosity, Crest_Factor, Temporal_Entropy, Shannon_Entropy, Shannon_Entropy_Bandlimited, Spectral_Flatness_Measure, Spectral_Flatness_Measure_Bandlimited, ... .. ..- attr(*, "factors")= int [1:29, 1:28] 0 1 0 0 0 0 0 0 0 0 ... .. .. ..- attr(*, "dimnames")=List of 2 .. .. .. ..$ : chr [1:29] "Call_vs_Noise" "Rugosity" "Crest_Factor" "Temporal_Entropy" ... .. .. .. ..$ : chr [1:28] "Rugosity" "Crest_Factor" "Temporal_Entropy" "Shannon_Entropy" ... .. ..- attr(*, "term.labels")= chr [1:28] "Rugosity" "Crest_Factor" "Temporal_Entropy" "Shannon_Entropy" ... .. ..- attr(*, "order")= int [1:28] 1 1 1 1 1 1 1 1 1 1 ... .. ..- attr(*, "intercept")= num 0 .. ..- attr(*, "response")= int 1 .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> .. ..- attr(*, "predvars")= language list(Call_vs_Noise, Rugosity, Crest_Factor, Temporal_Entropy, Shannon_Entropy, Shannon_Entropy_Bandlimited, Spectral_Flatness_Measure, Spectral_Flatness_Measure_Bandlimited, ... .. ..- attr(*, "dataClasses")= Named chr [1:29] "factor" "numeric" "numeric" "numeric" ... .. .. ..- attr(*, "names")= chr [1:29] "Call_vs_Noise" "Rugosity" "Crest_Factor" "Temporal_Entropy" ... - attr(*, "class")= chr [1:2] "randomForest.formula" "randomForest"