R/Proportional.R

In GameTheory: Cooperative Game Theory

Defines functions Proportional

Documented in Proportional

Proportional <-
function(E,C,Names=NULL){
	
lambda<-E/sum(C)
R<-lambda*C

Output<-list(Results=R,Claims=C,Method="Proportional Rule",Short="P",E=E,Names=Names)
class(Output)<-"ClaimsRule"
return(Output) 
		
}

Try the GameTheory package in your browser