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
Good practice guidelines for long-term ecoacoustic monitoring in the UK
04/10/2024 - Bioacoustics @ NHM
11/07/2024 - Ecoacoustic Congress
24/04/2024 - How data in the cloud could help restore UK's biodiversity - AWS Summit 2024
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)