R/kmbasis.kmsurmisefunction.R

In kstMatrix: Basic Functions in Knowledge Space Theory Using Matrix Representation

#' Determine the basis for a surmise function
#'
#' @param x Surmise Function
#' @param ... Optional/future parameters
#' @returns Basis
#'
#' @family Different representations for knowledge spaces
#'
#' @export
kmbasis.kmsurmisefunction <- function(x, ...) {
  noi <- ncol(x) - 1
  mat <- as.matrix(x[,(2:(noi+1))])
  storage.mode(mat) <- "integer"
  mat <- unique(mat, MARGIN=1)
  class(mat) <- unique(c("kmbasis", "kmfamset", class(mat)))
  mat
}