R/shapley_mfoc.R

Defines functions shapley_mfoc

Documented in shapley_mfoc

shapley_mfoc <-
function(n=NA,a=NA,d=NA,K=NA){
dk<-order(d/K)
d<-d[dk];K<-K[dk]
cind<-as.vector(mfoc(n,a,d,K,cooperation=0))
shapley<-c();shapley[1]<-cind[1]/n
for (i in 2:n){
aux<-0
for (j in 2:i){aux<-aux+(cind[j]-cind[j-1])/(n-j+1)}
shapley[i]<-shapley[1]+aux
}
print("Shapley value")
return(shapley)}

Try the InventorymodelPackage package in your browser

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

InventorymodelPackage documentation built on May 29, 2017, 9:39 p.m.