On Jun 11, 2012, at 05:50 , Steven Nunez wrote:

(defun algorithm-name (model)

  (xpath:with-namespaces ((nil "http://www.dmg.org/PMML-4_0"))

    (xpath:string-value (xpath:evaluate "//RegressionModel/@algorithmName" model))))

(defun model-coefficient-list (model)

  (xpath:with-namespaces ((nil "http://www.dmg.org/PMML-4_0"))

    (let ((regression-model-node (xpath:first-node (xpath:evaluate "//RegressionModel" model)))

          (*read-eval* nil))

      `(,(xpath:string-value (xpath:evaluate "@modelName" regression-model-node))

        ,@(xpath:map-node-set->list

           (lambda (node)

             (list

              (xpath:string-value (xpath:evaluate "@name" node))

              ;; note: xpath:number-value may work here, depending on

              ;; your implementation... does not work with Lispworks

              ;; 6.1 under Mac OS X

              (read-from-string (xpath:string-value (xpath:evaluate "@coefficient" node)))))

           (xpath:evaluate "RegressionTable/NumericPredictor" regression-model-node))))))

#||

(defparameter *model*

  (cxml:parse #p"/Users/raw/Desktop/polynomial-regression.xml" (cxml-stp:make-builder)))

(cxml-stp:serialize *model* (cxml:make-string-sink :indentation 4))

(algorithm-name *model*)

(model-coefficient-list *model*)

||#

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Notes:

1) I'm not sure that model-coefficient-list does what you need.

2) It might be appropriate to use cxml-stp:attribute-value instead of xpath:string-value/xpath:evaluate.

3) Since there are multiple coefficients with the same name (where some have an "exponent" attribute), I guess you'd either need to filter out some of the coefficients, build names that somehow incorporate the exponent, or add the exponent to the list structure returned.

Hope this helps.