oscar.visu {oscar}

Target function value and total kit cost as a function of number of kits included

Description

Plot oscar S4-object goodness-of-fit, kit costs, and similar performance metrics.

Usage

oscar.visu(
  fit,
  y = c("target", "cost", "goodness", "cv", "AIC"),
  cols = c("red", "blue"),
  legend = "top",
  mtexts = TRUE,
  add = FALSE,
  main = ""
)

Arguments

fit

Fitted oscar S4-class object

y

Plotted y-axes supporting two simultaneous axes with different scales, Default: c("target", "cost", "goodness", "cv")

cols

Colours for drawn lines, Default: c("red", "blue")

legend

Location of legend or omission of legend with NA, Default: 'top'

mtexts

Outer margin texts

add

Should plot be added into an existing frame / plot

main

Main title

Value

This is a plotting function that does not return anything, but instead draws on an existing or a new graphics device.

Examples

if(interactive()){
  data(ex)
  fit <- oscar(x=ex_X, y=ex_Y, k=ex_K, w=ex_c, family='cox')
  oscar.visu(fit, y=c("target", "cost"))
}