setClass(
	Class = "HNUGeoSituation",
    representation=representation(
        id              = "character",
        label           = "character",
        nodes           = "list",
        links           = "list",
        warehouses      = "list",
        customers       = "list",
        travelcosts     = "numeric",
        tpp.costs       = "matrix",
        tpp.costs.opp   = "matrix",
        tpp.x           = "matrix",
        shortestpath    = "list",
        tsp.nodes       = "list",
        tsp.solution    = "list",
        tsp.costs       = "matrix" 
    ),
    prototype=prototype(
    	list(
    		id            = character(),
            label         = character(),
            nodes         = list(),
            warehouses    = list() ,
            links         = list(),
            customers     = list(),
            travelcosts   = numeric(),
            tpp.costs     = matrix(),
            tpp.costs.opp = matrix(),
            tpp.x         = matrix(),
            shortestpath  = list(),
            tsp.nodes     = list(),
            tsp.solution  = list(),
            tsp.costs     = matrix() 
    	)
    )
)

setClass(
	Class = "HNUGeoSituation",
    representation=representation(
        id              = "character",
        label           = "character",
        nodes           = "list",
        links           = "list",
        warehouses      = "list",
        customers       = "list",
        travelcosts     = "numeric",
        tpp.costs       = "matrix",
        tpp.costs.opp   = "matrix",
        tpp.x           = "matrix",
        wlp.costs       = "matrix",
        wlp.solution    = "list", 
        shortestpath    = "list",
        tsp.nodes       = "list",
        tsp.solution    = "list",
        tsp.costs       = "matrix" 
    ),
    prototype=prototype(
    	list(
    		id            = character(),
            label         = character(),
            nodes         = list(),
            warehouses    = list() ,
            links         = list(),
            customers     = list(),
            travelcosts   = numeric(),
            tpp.costs     = matrix(),
            tpp.costs.opp = matrix(),
            tpp.x         = matrix(),
            wlp.costs     = matrix(),
            wlp.solution  = list(), 
            shortestpath  = list(),
            tsp.nodes     = list(),
            tsp.solution  = list(),
            tsp.costs     = matrix() 
    	)
    )
)

Support for Plotting WLP added.
Support for Plotting WLP added.
