library("pRoloc")
library("pRolocdata")
data(hyperLOPIT2015)
if (interactive()) {
pRolocVis(hyperLOPIT2015)
}
## Load classification results from hyperLOPIT stored in fData
if (interactive()) {
myThreshold <- pRolocVis(hyperLOPIT2015, app = "classify",
fcol = "svm.classification",
scol = "svm.score")
newPredictions <- getPredictions(hyperLOPIT2015, fcol = "svm.classification",
scol = "svm.score", t = myThreshold)
}Run the code above in your browser using DataLab