oscar.cost.after {oscar}

Return total cost of model fits if the cost is not included in the oscar object

Description

If at least one measurement from a kit is included in the model, the kit cost is added.

Usage

oscar.cost.after(object)

Arguments

object

Fit oscar S4-object

Value

A vector for numeric values of total kit costs at different cardinalities.

Examples

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