I am an interdisciplinary researcher investigating how technology can be used to monitor biodiversity, in particular using bioacoustic and ecoacoustic approaches.
GitHub Profile | CV | Media
Bioacoustic and Ecoacoustic Data in Audiovisual Core
Good practice guidelines for long-term ecoacoustic monitoring in the UK
05/12/2024 - NHM x Natural England
08/11/2024 - Digital Dimensions of Nature Recovery
04/10/2024 - Soundings: The River
Some thoughts on:
R code to numerically find the inverse of a polynomial.
# Define a polynomial function to invert
pn <- function(x) {
return(3*x^3 + 2*x^2)
}
# Generic invert() function
invert = function(fn, interval = NULL, ...){
Vectorize(function(y){
uniroot(function(x){fn(x)-y}, interval, ...)$root
})
}
# Inversion function specific to pn()
pn.inverse <- invert(pn, interval = c(-10, 10))
# Find the inverse for a specific value
pn.inverse(4)