1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#' @rdname plotMat
#' @export
"plot.optPar" <-
function(
x,#an "optParMode" class object
main=NULL,
which=1, #which (if there are more than one) of optimal solutions to plot
... #aditional parameters to "plot.mat"
){
if(is.null(main)) main <- deparse(substitute(x))
l<-length(x$best)
if(l==0)l<-1
if(which>l){
warning("The selected (",which,") best solution does not exist!\nOnly ", length(x$best)," best solution(s) exist(s).\nThe first best solution will be ploted.\n")
which<-1
}
plot.mat(x$M,clu=clu(x,which=which),IM=IM(x,which=which),main=main,...)
}
#' @rdname plotMat
#' @method plot opt.par
#' @export
plot.opt.par<-plot.optPar
|
