R/minnaertPredict.R

In ChaddFrasier/lunarLearningAlgorithms: lunar learning algorithms

#' minnaertPredict
#'
#' this function runs the prediction function for minnaert on a training set and a single test set
#'
#' @param X.mat input feature matrix [nx3]
#' @param Y.vec input label vector [n]
#' @param testx.mat test features [yx3]
#' @param y_observations amount of test returns [y]
#'
#' @return vector of side y that contains guesses for each test observation
#' 
#' @export
#'
#' @examples
#' 
minnaertPredict <- function(X.mat, Y.vec, testx.mat, y_observations){
    result.list <- .C("minnaertPredict_interface", as.double(X.mat), as.double(Y.vec),
                      as.double(testx.mat), nrow(X.mat), y_observations, predictions=double(y_observations),
                      PACKAGE = "lunarLearningAlgorithms")
    
    result.list$predictions
}