R/internals_plotStuff.R

In benmack/oneClass: One-class classification in the absence of test data

################################################################################
################################################################################
ocColors <- function(type) {
  clr <- switch(type, 
                
                'P' = c(pos='#2166ac'), 
                'U' = c(pos='#e0e0e0'), 
                'PU' = c(pos='#2166ac', un='#e0e0e0'), 
                'PN' = c(pos='#2166ac', neg='#f4a582'), 
                'Greys.9' = c("#ffffff",
                              "#f0f0f0",
                              "#d9d9d9",
                              "#bdbdbd",
                              "#969696",
                              "#737373",
                              "#525252",
                              "#252525",
                              "#000000"))
}

.clrs <- function(type) {
  clr <- switch(type, 
                'PU' = list(pos='#2166ac', un='#e0e0e0'), 
                'PN' = list(pos='#2166ac', neg='#f4a582') )
}
.ylimForHist<- function(h, positives) {
  
  med <- median(positives, na.rm=TRUE)
  yUpperLim <- max(h$density[which.min(abs(med-h$breaks)):length(h$breaks)], na.rm=TRUE)
  ylim <- c(0, yUpperLim*2.5)
  return(ylim)
  
}