fix bug in simHydros - hz was missing

baktoft · Jan 21, 2021 · 0676402 · 0676402
1 parent b52ab9e
commit 0676402
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/simTrack.R b/R/simTrack.R
@@ -174,7 +174,7 @@ simHydros <- function(auto=TRUE, trueTrack=NULL){
 	hx <- c(hx.min,hx.min,hx.max,hx.max, 0, 500,  500, -500, -500)
 	hy <- c(hy.min,hy.max,hy.max,hy.min, 0, 500, -500, -500, 500)
 
-	hydros <- data.table::data.table(hx=hx, hy=hy)
+	hydros <- data.table::data.table(hx=hx, hy=hy, hz=1)
 
 	return(hydros)
 }