This function takes a k-nearest neighbor fit using knn3 and returns a list-of-lists representing in valid PFA document that could be used for scoring
# S3 method for knn3
pfa(object, name = NULL, version = NULL, doc = NULL,
metadata = NULL, randseed = NULL, options = NULL,
pred_type = c("response", "prob"), cutoffs = NULL,
distance_measure = c("euclidean", "manhattan", "angle", "jaccard",
"ejaccard"), ...)an object of class "knn3"
a character which is an optional name for the scoring engine
an integer which is sequential version number for the model
a character which is documentation string for archival purposes
a list of strings that is computer-readable documentation for
archival purposes
a integer which is a global seed used to generate all random numbers. Multiple scoring engines derived from the same PFA file have different seeds generated from the global one
a list with value types depending on option name
Initialization or runtime options to customize implementation
(e.g. optimization switches). May be overridden or ignored by PFA consumer
a string with value "response" for returning a prediction on the same scale as what was provided during modeling, or value "prob", which for classification problems returns the probability of each class.
(Classification only) A named numeric vector of length equal to number of classes. The "winning" class for an observation is the one with the maximum ratio of predicted probability to its cutoff. The default cutoffs assume the same cutoff for each class that is 1/k where k is the number of classes.
a string representing the type of distance calculation in order to determine the nearest neighbours.
additional arguments affecting the PFA produced
a list of lists that compose valid PFA document
iris2 <- iris
colnames(iris2) <- gsub('\\.', '_', colnames(iris2))
model <- caret::knn3(Species ~ ., iris2)
model_as_pfa <- pfa(model)
Run the code above in your browser using DataLab