maicWeight {maic}

Calculate MAIC weights

Description

This function calculates the weights to apply to records for Matching-Adjusted Indirect Comparison (MAIC), from either a raw input matrix or a maic.input object

Usage

maicWeight(x, opt = TRUE, keep.x = TRUE, ...)

Arguments

x

Either a maic.input object or a MAIC input matrix

opt

return the optim object as attribute

keep.x

return the input matrix as an attribute

...

Optional arguments to optim

Value

A numeric vector of weights corresponding to the rows in the input matrix

Examples

target <- c("Air.Flow" = 60,
           "Water.Temp" = 21,
           "Prop.Acid.Conc.LT.90" = 0.7,
           "min.air.flow" = 55)

stackloss$match.conc.lt.90 <- 
  ifelse(stackloss$Acid.Conc. < 90, 1, 0)

dict <- data.frame(
  "match.id" = 
    c("airflow", "watertemp", 
      "acidconc", "min.airflow"),
  "target.variable" = 
    c("Air.Flow", "Water.Temp",
      "Prop.Acid.Conc.LT.90", "min.air.flow"),
  "index.variable" = 
    c("Air.Flow", "Water.Temp",
      "match.conc.lt.90", "Air.Flow"),
  "match.type" = 
    c("mean", "mean", "proportion", "min"),
  stringsAsFactors = FALSE)

ipmat <- createMAICInput(
  index = stackloss,
  target = target,
  dictionary = dict,
  matching.variables = 
    c("airflow", "watertemp", 
      "acidconc", "min.airflow"))

wts <- maicWeight(ipmat)

rcv <- reportCovariates(
  stackloss, target, dict, 
  matching.variables = 
    c("airflow", "watertemp", 
      "acidconc", "min.airflow"),
  wts)