R/calc.ta.R

Defines functions calc.ta

Documented in calc.ta

calc.ta <- function( tab, k )
{
###
### This function calculates the achievement function for the k-th priority level
###
### Parameters
### tab = a list of named components that specifies the modified simplex tableau
### k = an integer priority level
###
    sum <- 0
    for ( i in 1:tab$objectives ) {
        sum <- sum + tab$tb[i] * tab$tu[i,k]
    }
    tab$ta[k] <- sum
}

Try the goalprog package in your browser

Any scripts or data that you put into this service are public.

goalprog documentation built on May 30, 2017, 5:07 a.m.