# Load all necessary information without showing it library(productConfig) load("U:/Development/productConfig/new_BA.RData") library(devtools) library(nnet) devtools::load_all(".")
decisionMatrix(camera_data, userid=10, attr=1:4, rounds="all", cost_ids=4)
trpresult <- sapply(overallTRP(myData, all.users, attr=1:4, rounds="all", cost_ids=4, tri.refps=equal.tri.refps), which.max) ptresult <- sapply(overallPV(myData, all.users, attr=1:4, rounds="all", cost_ids=4, refps = c(1.5,1.5,1.5,0.17)), which.max) trpresult == ptresult
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.