diff --git a/man-examples/RunModel.Supervisor.R b/man-examples/RunModel.Supervisor.R
index 91bcf4fc1a46e1e509653478aae6c078a4d56559..6eacf4f8e91e432492ae70a762af9265f93908ea 100644
--- a/man-examples/RunModel.Supervisor.R
+++ b/man-examples/RunModel.Supervisor.R
@@ -95,9 +95,9 @@ funDamLogic <- factoryDamLogic(
 CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic)
 
 # GRiwrmRunOptions object simulation of the hydrological year 2002-2003
-IndPeriod_Run <- seq.int(
-  which(IM_severn[[1]]$DatesR == as.POSIXct("2002-10-15", tz = "UTC")),
-  length.out = 365
+IndPeriod_Run <- which(
+  DatesR >= as.POSIXct("2002-10-15", tz = "UTC") &
+  DatesR <= as.POSIXct("2003-10-15", tz = "UTC")
 )
 IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1)
 RO_severn <- CreateRunOptions(
diff --git a/man/CreateController.Rd b/man/CreateController.Rd
index 470638b9a398cc89b6b837b0953dcac4c128b01d..93c1021881deccf5b70c0c29573c50d042492f12 100644
--- a/man/CreateController.Rd
+++ b/man/CreateController.Rd
@@ -140,9 +140,9 @@ funDamLogic <- factoryDamLogic(
 CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic)
 
 # GRiwrmRunOptions object simulation of the hydrological year 2002-2003
-IndPeriod_Run <- seq.int(
-  which(IM_severn[[1]]$DatesR == as.POSIXct("2002-10-15", tz = "UTC")),
-  length.out = 365
+IndPeriod_Run <- which(
+  DatesR >= as.POSIXct("2002-10-15", tz = "UTC") &
+  DatesR <= as.POSIXct("2003-10-15", tz = "UTC")
 )
 IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1)
 RO_severn <- CreateRunOptions(
diff --git a/man/CreateSupervisor.Rd b/man/CreateSupervisor.Rd
index d7585184a226e42391be70e9d83b77b74a1b574a..053aa41c25ff3b4f114c217b7ff429ce03b292d1 100644
--- a/man/CreateSupervisor.Rd
+++ b/man/CreateSupervisor.Rd
@@ -122,9 +122,9 @@ funDamLogic <- factoryDamLogic(
 CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic)
 
 # GRiwrmRunOptions object simulation of the hydrological year 2002-2003
-IndPeriod_Run <- seq.int(
-  which(IM_severn[[1]]$DatesR == as.POSIXct("2002-10-15", tz = "UTC")),
-  length.out = 365
+IndPeriod_Run <- which(
+  DatesR >= as.POSIXct("2002-10-15", tz = "UTC") &
+  DatesR <= as.POSIXct("2003-10-15", tz = "UTC")
 )
 IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1)
 RO_severn <- CreateRunOptions(
diff --git a/man/RunModel.Supervisor.Rd b/man/RunModel.Supervisor.Rd
index 3aa4f6b7f1045ffd363f5c09d4a80249192e246a..540bc339d495580bd6b64944710a3c773954b0ac 100644
--- a/man/RunModel.Supervisor.Rd
+++ b/man/RunModel.Supervisor.Rd
@@ -119,9 +119,9 @@ funDamLogic <- factoryDamLogic(
 CreateController(sv, "DamRelease", Y = c("54095", "54057"), U = c("Dam"), FUN = funDamLogic)
 
 # GRiwrmRunOptions object simulation of the hydrological year 2002-2003
-IndPeriod_Run <- seq.int(
-  which(IM_severn[[1]]$DatesR == as.POSIXct("2002-10-15", tz = "UTC")),
-  length.out = 365
+IndPeriod_Run <- which(
+  DatesR >= as.POSIXct("2002-10-15", tz = "UTC") &
+  DatesR <= as.POSIXct("2003-10-15", tz = "UTC")
 )
 IndPeriod_WarmUp <- seq.int(IndPeriod_Run[1] - 366, IndPeriod_Run[1] - 1)
 RO_severn <- CreateRunOptions(