set_macroareas: List of macroarea creator

In UBESP-DCTV/clumpr: Current transpLant sUrplus Management Protocol in R

Description

Function used to prepare and check list of macroareas to pass to macroarea as needed to create state objects.

Usage

## S3 method for class 'set_macroareas'
get_all_macroarea(x, ...)

set_macroareas(...)

## S3 method for class 'set_macroareas'
print(x, ...)

Arguments

x	an object used to select a method.
...	a set of macroareas.

Value

The list of macroareas provided.

Methods (by generic)

• get_all_macroarea: wrapper function to access to the all the names of macroareas appear in the 'set_macroarea', recursively.

• print: nice (and coloured, if supported) print method.

Examples

pavia  <- center('Pavia',  'Lombardia')
milano <- center('Milano', 'Lombardia')
lombardia <- region(set_centers(pavia, milano))

padova <- center('Padova', 'Veneto', 8, 0.7)
veneto <- region(set_centers(padova))

nitp <- macroregion('NITp', set_regions(lombardia, veneto))

torino   <- center('Torino', 'Piemonte', 7, 0.6)
piemonte <- region(set_centers(torino))

nord <- macroarea('Macroarea Nord',
  macroregions = set_macroregions(piemonte, nitp)
)

roma   <- center('Roma', 'Lazio', 10, 0.9)
lazio  <- region(set_centers(roma))

sud <- macroarea('Macroarea Sud',
  macroregions = set_macroregions(lazio)
)

get_all_macroarea(set_macroareas(nord, sud))
pavia     <- center('Pavia',   'Lombardia', offered = 5, p_accept = 0.6)
bergamo   <- center('Bergamo', 'Lombardia', 8)
milano    <- center('Milano',  'Lombardia', 10, 0.8)
lombardia <- region(set_centers(pavia, bergamo, milano), default_p = 0.7)

padova <- center('Padova', 'Veneto', 8, 0.7)
veneto <- region(set_centers(padova))

nitp <- macroregion('NITp', regions = set_regions(lombardia, veneto),
  initial_strip = c('lombardia', 'lombardia', 'veneto')
)

torino   <- center('Torino', 'Piemonte', 7, 0.6)
piemonte <- region(set_centers(torino))

nord <- macroarea('Macroarea Nord',
  macroregions = set_macroregions(piemonte, nitp)
)

roma   <- center('Roma', 'Lazio', 10, 0.9)
lazio  <- region(set_centers(roma))
sud    <- macroarea('Macroarea Sud',
  macroregions = set_macroregions(lazio)
)

set_macroareas(nord, sud)

UBESP-DCTV/clumpr documentation built on July 3, 2021, 11:23 p.m.