diff --git a/R/data.R b/R/data.R
index b90a385..39bc399 100644
--- a/R/data.R
+++ b/R/data.R
@@ -94,6 +94,9 @@ methods <- list(
 # Gene IDs of known or suggested TPE-OLD genes.
 genes_tpe_old <- genes[suggested | verified == TRUE, id]
 
+# Species IDs for replicatively aging species.
+species_replicative <- species[replicative == TRUE, id]
+
 # Preset for [geposan] including all species and TPE-OLD genes for reference.
 preset_all_species <- geposan::preset(
     methods = c("clusteriness", "correlation", "proximity", "neural"),
@@ -106,7 +109,7 @@ preset_all_species <- geposan::preset(
 # TPE-OLD genes for reference.
 preset_replicative_species <- geposan::preset(
     methods = c("clusteriness", "correlation", "proximity", "neural"),
-    species = species_ids_replicative,
+    species = species_replicative,
     genes = genes$id,
     reference_genes = genes_tpe_old
 )
diff --git a/R/preset_editor.R b/R/preset_editor.R
index f25fb6c..aa66bb1 100644
--- a/R/preset_editor.R
+++ b/R/preset_editor.R
@@ -3,14 +3,10 @@ preset_editor_ui <- function(id) {
     species_choices <- species$id
     names(species_choices) <- species$name
 
-    species_selected <- species_ids_replicative
-
     known_genes <- genes[name != ""]
     gene_choices <- known_genes$id
     names(gene_choices) <- known_genes$name
 
-    genes_selected <- genes[suggested | verified == TRUE, id]
-
     verticalLayout(
         h3("Preset"),
         selectInput(
@@ -28,7 +24,7 @@ preset_editor_ui <- function(id) {
                 inputId = NS(id, "species"),
                 label = "Included species",
                 choices = species_choices,
-                selected = species_selected,
+                selected = species_replicative,
                 options = list(
                     "actions-box" = TRUE,
                     "live-search" = TRUE
@@ -39,7 +35,7 @@ preset_editor_ui <- function(id) {
                 inputId = NS(id, "reference_genes"),
                 label = "Reference genes",
                 choices = gene_choices,
-                selected = genes_selected,
+                selected = genes_tpe_old,
                 options = list(
                     "actions-box" = TRUE,
                     "live-search" = TRUE