Esempio n. 1
0
  @Override
  public String toString() {
    if (m_model == null) {
      return "No model built yet";
    }

    if (m_namespace == null || m_namespace.length() == 0) {
      return "No namspace for Clojure classifier specified.";
    }

    ClassLoader prevCL = Thread.currentThread().getContextClassLoader();
    Thread.currentThread().setContextClassLoader(ClojureClassifier.class.getClassLoader());
    if (!m_clojureRequire) {
      Clojure.require(m_namespace);
      m_clojureRequire = true;
    }

    if (Clojure.eval("(resolve (symbol \"" + m_namespace + "/model-to-string\"))") != null) {
      IFn stringFn = (IFn) Clojure.eval(m_namespace + "/model-to-string");

      String result = stringFn.invoke(m_model, m_header).toString();
      Thread.currentThread().setContextClassLoader(prevCL);

      return result;
    }

    // just return the default if the clojure classifier does not have
    // a model-to-string function
    return m_model.toString();
  }
Esempio n. 2
0
  @Override
  public double[] distributionForInstance(Instance inst) throws Exception {

    if (m_model == null) {
      throw new Exception("No model built yet!");
    }

    if (m_namespace == null || m_namespace.length() == 0) {
      throw new Exception("No namespace for Clojure classifier specified!");
    }

    ClassLoader prevCL = Thread.currentThread().getContextClassLoader();
    Thread.currentThread().setContextClassLoader(ClojureClassifier.class.getClassLoader());
    if (!m_clojureRequire) {
      Clojure.require(m_namespace);
      m_clojureRequire = true;
    }

    if (m_distributionForInstanceFunction == null) {
      if (Clojure.eval("(resolve (symbol \"" + m_namespace + "/distribution-for-instance\"))")
          == null) {
        throw new Exception(
            "Namespace " + m_namespace + " does not have a distribution-for-instance function!");
      }

      m_distributionForInstanceFunction =
          (IFn) Clojure.eval(m_namespace + "/distribution-for-instance");
    }

    Object result = m_distributionForInstanceFunction.invoke(inst, m_model);
    if (!(result instanceof double[])) {
      throw new Exception("distribution-for-instance function should return an array of doubles");
    }

    Thread.currentThread().setContextClassLoader(prevCL);

    return (double[]) result;
  }
Esempio n. 3
0
  @Override
  public void buildClassifier(Instances insts) throws Exception {

    if (m_namespace == null || m_namespace.length() == 0) {
      throw new Exception("No namespace for Clojure classifier specified!");
    }

    m_header = new Instances(insts, 0);

    ClassLoader prevCL = Thread.currentThread().getContextClassLoader();
    Thread.currentThread().setContextClassLoader(ClojureClassifier.class.getClassLoader());
    Clojure.require(m_namespace);
    m_clojureRequire = true;

    if (Clojure.eval("(resolve (symbol \"" + m_namespace + "/learn-classifier\"))") == null) {
      throw new Exception(
          "Namespace " + m_namespace + " does not have a learn-classifier function!");
    }

    IFn learnFn = (IFn) Clojure.eval(m_namespace + "/learn-classifier");
    m_model = learnFn.invoke(insts, m_schemeOptions);

    Thread.currentThread().setContextClassLoader(prevCL);
  }