R/coef.mlds.R

In MLDS: Maximum Likelihood Difference Scaling

Defines functions `coef.mlbs` `coef.mlds`

`coef.mlds` <- function(object, ...){
	cc <- object$pscale[-1]
	names(cc) <- object$stimulus[-1]
	cc	
}	

`coef.mlbs` <- function(object, ...){
	cc <- object$pscale[-1]
	names(cc) <- object$stimulus[-1]
	cc	
}	

Try the MLDS package in your browser