Displaying 1 result from an estimated 1 matches for "legval2".
2010 Jul 07
0
subscripts for panel.superpose in lattice
...(length(unique(bins))>maxbins) bins <- binning(bins,nbins)
temp <- summary(cutvar)
cut <- 1*(cutvar > temp[3])
if (length(unique(!is.na(cutvar)))<6) cut <- cutvar
legval1 <- names(data.frame(cutvar))
xl <- names(data.frame(bins))
leg <- paste(unique(sort(cut)))
legval2 <- leg[1:(length(unique(leg))-1)]
if (length(na.omit(cutvar)) == length(cutvar)) legval2 <- leg
ht <- depvar[[1]]
if (is.na(ht)) ht <- 0
if (ht == "hist") {
bins <- replace(bins,bins>quantile(bins,0.99),quantile(bins,0.99))
bins <- replace(bins,bins<quantil...