search

IsaakBM / AquaMaps_wflow

A general workflow to deal with the AquaMaps data
2 stars 1 forks source link

Update new ocean layers #2

Open rosamard opened 4 years ago

rosamard commented 4 years ago

if(olayer == "surface") { hspen_v2 <- hspen %>% filter(DepthPrefMin >= 0 & DepthPrefMin < 5 & DepthPrefMax >= 0 & DepthPrefMax < 5) } else if (olayer == "epipelagic") { hspen_v2 <- hspen %>% filter(DepthPrefMin >= 5 & DepthPrefMin < 200 & DepthPrefMax >= 5 & DepthPrefMax < 200) } else if (olayer == "mesopelagic") { hspen_v2 <- hspen %>% filter(DepthPrefMin >= 200 & DepthPrefMin < 1000 & DepthPrefMax >= 200 & DepthPrefMax < 1000) } else if (olayer == "bathyabyssopelagic") { hspen_v2 <- hspen %>% filter(DepthPrefMin >= 1000 & DepthPrefMax >= 1000) } else { hspen_v2 <- hspen }