R/summary.Nucleolus.R

Defines functions summary.Nucleolus

Documented in summary.Nucleolus

summary.Nucleolus <-
function(object, ...){
	#assignInNamespace("summary.Nucleolus", summary.Nucleolus, ns = asNamespace("base"))
   x<-object	
   cat("\n")
   cat("Nucleolus of a", x$mode,"Game","for the given coalitions","\n")
   cat("\n")
   rownames(x$nucleolus)<-NULL
   x$nucleolus<-as.data.frame(x$nucleolus)
   print(x$nucleolus)
}

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.