criterios <- data.frame(criterio = c('a1', 'a2', 'a3'),
peso = c(0.25, 0.5, 0.25))
alternativas <- data.frame(alternativas = c('outdoor', 'televisao', 'jornal'),
a1 = c(12, 36, -3),
a2 = c(-6, 12, 60),
a3 = c(24, 48, 30))
result <- markowitzcalc(criterios, alternativas)
Run the code above in your browser using DataLab