R/createLandwatermask.R

Defines functions createLandwatermask

Documented in createLandwatermask

createLandwatermask <-
function(dataset.landwater, dimension, origin, resolution=1){
	#create grid
	landwatermask.nocoast <- matrix(0,dimension[1],dimension[2])

	#dataset available?
	if (!is.null(dataset.landwater)){
		#extract data
		long <- dataset.landwater$long
		lat <- dataset.landwater$lat
		landsum <- dataset.landwater$landsum

		#origin coordinates to origin
		long <- long - origin[1]
		lat <- lat - origin[2]

		#transformate coordinates to grid position
		long <- round(long / resolution) 
		lat <- round(lat / resolution)

		#insert data into grid
		for (i in 1:length(long)){
			if ((long[i]+1 > 0) && (long[i] < dimension[1]) && (lat[i]+1 > 0)&& (lat[i] < dimension[2]) && (landsum[i] == 0)){
				landwatermask.nocoast[long[i]+1,lat[i]+1] <- -1
			}
		}
	}

	return(landwatermask.nocoast)
}

Try the sperich package in your browser

Any scripts or data that you put into this service are public.

sperich documentation built on July 26, 2023, 5:49 p.m.