View source: R/ewsnet_finetune.R
| ewsnet_finetune | R Documentation |
Communicates with EWSNet (https://ewsnet.github.io), a deep learning framework for modelling and anticipating regime shifts in dynamical systems, and finetunes the model to match the inputted training data. This overwrites the Pretrained weights bundled with EWSmethods. See reset_ewsnet() on how to reset these trained weights.
ewsnet_finetune(
x,
y,
scaling = TRUE,
envname,
weights_path = default_weights_path()
)
x |
A numeric matrix to finetune EWSNet on. Each column represents a separate timeseries and each row is a timestep. |
y |
A numeric vector consisting of target labels for each training time series. Labels include: 0 (no transition), 1 (smooth transition) or 2 (critical transition). |
scaling |
Boolean. If |
envname |
A string naming the Python environment prepared by |
weights_path |
A string naming the path to model weights installed by |
No return value, called for side effects.
#Activate python environment (only necessary
#on first opening of R session).
## Not run:
ewsnet_init(envname = "EWSNET_env")
## End(Not run)
#A dummy dataset of a hedgerow bird population
#monitored over 50 years that needs to be tuned.
abundance_data <- data.frame(time = seq(1:50),
abundance = rnorm(50,mean = 20))
#Generate training data (this is random data as
#an example).
x <- matrix(nrow = 50, ncol = 10)
x <- sapply(1:dim(x)[2], function(i){
x[,i] <- rnorm(50,mean=20,sd=10)})
#Label each time series.
y <- sample(0:2,10,replace = TRUE)
#Finetune EWSNet.
## Not run:
ewsnet_finetune(
x = x,
y = y,
scaling = TRUE,
envname = "EWSNET_env")
## End(Not run)
#Generate new EWSNet predictions.
## Not run:
pred <- ewsnet_predict(
abundance_data$abundance,
scaling = TRUE,
ensemble = 15,
envname = "EWSNET_env")
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.