getMaxOutline: Get maximum productive area shapefile outline

In madorning/energySim0.1.0: Spatial Energy Simulation: Linking Subsurface to Surface Resources

Description

Returns maximum productive area outline using basic shape scaling using AU shape centroid.

Usage

getMaxOutline(EA, auOutline)

Arguments

EA	Oil/gas assessment list
auOutline	A shapefile

Value

A shapefile with same inShape projection

Note

Edited by CDMartinez 14 Dec 15

Author(s)

Created by CDMartinez 03 Dec 15

Examples

library(sp)
points <- rbind(c(250,250),c(250,1750),c(1750,1750),c(1750,250),c(250,250))
shape <- SpatialPolygons(list(Polygons(list(Polygon(points)), 'auOutline')))

set.seed(46)
OGasmt <- continuousAssessment(auMC = 5,
auType = 'Gas',
auProbability = 1,
auAreaProductive = c(100,400,800),
auAreaDrainage = c(10,20,40),
auPercAreaUntested = c(93,96,99),
auPercAreaSweet = c(100,100,100),
auPercFutureSS = c(20,40,50),
auEURss = c(0.15,0.4,0.65),
auLGR = c(.08,.5,1),
year = 2016)

OGasmt <- convertAcre2sqMeter(OGasmt)
maxOutline <- getMaxOutline(OGasmt, auOutline = shape)
plot(maxOutline, axes=TRUE, border = 'red')
plot(shape, add = TRUE, border = 'black')

madorning/energySim0.1.0 documentation built on May 22, 2019, 2:23 p.m.