R/Proportional.R

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

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

GameTheory documentation built on July 4, 2017, 5:02 p.m.