#A dummy dataset of a hedgerow bird population
#monitored over 50 years.
abundance_data <- data.frame(time = seq(1:50),
abundance = rnorm(50,mean = 20))
#Activate python environment (only necessary
#on first opening of R session).
if (FALSE) {
ewsnet_init(envname = "EWSNET_env")
}
#Generate EWSNet predictions.
if (FALSE) {
pred <- ewsnet_predict(
abundance_data$abundance,
scaling = TRUE,
ensemble = 15,
envname = "EWSNET_env")
}
Run the code above in your browser using DataLab