N <- 1E4; m <- 2; n <- 3
meas <- dget(system.file("extdata/thrombo-meas.txt.gz", package="smaa"))
# Read weights from file
pref <- dget(system.file("extdata/thrombo-weights-nopref.txt.gz", package="smaa"))
# Alternatively, sample weights using hitandrun:
# library(hitandrun)
# pref <- simplex.sample(n, N)$samples
# Calculate SMAA metrics
result <- smaa(meas, pref)
print(result)
plot(result)
result <- smaa(meas, c(0.5, 0.2, 0.3))
print(result)
Run the code above in your browser using DataLab