Commit c40ec6b3 authored by Loup's avatar Loup
Browse files

update setLandscape (to remove warning dispersalHost)

parent e2a53a61
......@@ -723,7 +723,8 @@ setLandscape <- function(params, land) {
params@Landscape$area <- data.frame(area = st_area(params@Landscape))
## Initialise host and pathogen dispersal with diagonal matrices
if (length(params@DispHost) == 0){
if (length(params@DispHost) == 0 |
length(params@DispHost) != (nrow(params@Landscape))^2){
disp_host <- loadDispersalHost(params, type = "no")
params <- setDispersalHost(params, disp_host)
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment