Extract plot labels and, if available, names for each replicate and variable
fdlabels(fdnames, nrep, nvar)
A list of xlabel, ylabel, casenames, and varnames
a list of length 3 with xlabel, casenames, and ylabels.
integer number of cases or observations
integer number of variables
Jim Ramsay
xlabel <- if(length(fdnames[[1]])>1) names(fdnames)[1] else fdnames[[1]]
ylabel <- if(length(fdnames[[3]])>1) names(fdnames)[3] else fdnames[[3]]
casenames <- if(length(fdnames[[2]])== nrep)fdnames[[2]] else NULL
varnames <- if(length(fdnames[[3]])==nvar)fdnames[[3]] else NULL
plot.fd