demo/Institution_demo.R

library(FEMS)


rm(list=ls())
devtools::load_all()

# library(R6)

pp <- institution("PowerPlant")

pp
pp$Assets$Current$contracts[[1]]$InternalTransfers <- timeSeries()
pp$Assets$Current$contracts[[1]]$InternalTransfers 


class(pp)[1]
tail(class(pp),1)
wbreymann/FEMS documentation built on May 6, 2024, 2:19 p.m.