r-methods: A cell code identifier for ETRS

In etsakl/DasyMapR: Geographical ETRS-LAEA Grid Based Dasymetric Mapping

Description

Define the cell size prefix

Define the cell size prefix

Usage

## S4 method for signature 'matrix,numeric,missing'
EtrsCellCodes(eastings.northings, cell.size)

## S4 method for signature 'matrix,numeric,logical'
EtrsCellCodes(eastings.northings, cell.size,
  NE)

Arguments

eastings.northings	matrix.
cell.size	numeric.
eastings.northings	matrix.
cell.size	numeric.

Value

etrs cell code vector

etrs cell code vector

Examples

bb <- bbox(cbind(c(4321000, 4323000), c(3210000,3212000)))
cell.size = 1000
# Calculate the limits of the grid
bb.outer.limits <-  cbind((floor(bb[, 1] / cell.size)) * cell.size, (ceiling(bb[, 2] / cell.size)) * cell.size)
# Calculates eastings
eastings <-seq(from = bb.outer.limits[1, 1], to = bb.outer.limits[1, 2], by = cell.size)
# Calculates northings
northings <-seq(from = bb.outer.limits[2, 1], to = bb.outer.limits[2, 2], by = cell.size)
eastings.northings <- as.matrix(expand.grid(eastings, northings))
low.corner.cell.etrs.points<-etrsPoints(eastings.northings = eastings.northings,cell.size =1000)
EtrsCellCodes<-EtrsCellCodes(eastings.northings,cell.size=1000)

bb <- bbox(cbind(c(4321000, 4323000), c(3210000,3212000)))
cell.size = 1000
# Calculate the limits of the grid
bb.outer.limits <-  cbind((floor(bb[, 1] / cell.size)) * cell.size, (ceiling(bb[, 2] / cell.size)) * cell.size)
# Calculates eastings
eastings <-seq(from = bb.outer.limits[1, 1], to = bb.outer.limits[1, 2], by = cell.size)
# Calculates northings
northings <-seq(from = bb.outer.limits[2, 1], to = bb.outer.limits[2, 2], by = cell.size)
eastings.northings <- as.matrix(expand.grid(eastings, northings))
low.corner.cell.etrs.points<-etrsPoints(eastings.northings = eastings.northings,cell.size =1000)
EtrsCellCodes<-EtrsCellCodes(eastings.northings,cell.size=1000,NE=TRUE)

etsakl/DasyMapR documentation built on May 16, 2019, 9:07 a.m.