data(exStudy)
measList <- list('Example.OE1' = list(a=1, b=2),
'Example.OE2' = list(a=2, b=3)
)
exMeasure <- addMeasures(exStudy, measList)
print(getMeasures(exMeasure))
measDf <- data.frame(eventId = c('Example.OE1', 'Example.OE2'),
a=4:5,
b=6:7)
exMeasure <- addMeasures(exMeasure, measDf, replace=TRUE)
getMeasures(exMeasure)
Run the code above in your browser using DataLab