diff options
Diffstat (limited to 'contrib/ML4PG/ssreflect/weka.el')
-rw-r--r-- | contrib/ML4PG/ssreflect/weka.el | 112 |
1 files changed, 0 insertions, 112 deletions
diff --git a/contrib/ML4PG/ssreflect/weka.el b/contrib/ML4PG/ssreflect/weka.el deleted file mode 100644 index ba220c1d..00000000 --- a/contrib/ML4PG/ssreflect/weka.el +++ /dev/null @@ -1,112 +0,0 @@ -(defun ml4pg-weka (n) - (let ((alg (cond ((string= "k" ml4pg-algorithm) "SimpleKMeans") - ((string= "e" ml4pg-algorithm) "EM") - ((string= "f" ml4pg-algorithm) "FarthestFirst") - ))) - ;(comint-send-string (get-buffer-process "*matlab*") -; (concat "load " (expand-file-name "temp.csv") "; [t1,X,t3] = princomp(temp); X=normalize(X); csvwrite('" -; (expand-file-name "temp2.csv") "',X); -;")) - - (shell-command (concat "sleep 1; cat " ml4pg-home-dir "aux_files/headers.txt " (expand-file-name "temp.csv") " > " (expand-file-name "temp3.arff"))) - (shell-command (concat "java -classpath " - *weka-dir* - " weka.filters.unsupervised.attribute.AddCluster -W \"weka.clusterers." alg " -N " (format "%s" n) " -S 42\" -I last -i " - (expand-file-name "temp3.arff") " -o " (expand-file-name "out.arff"))) - (shell-command (concat "tail -n +37 " - (expand-file-name "out.arff") " > " (expand-file-name "out_bis.arff"))) - ;(shell-command (concat "java -classpath " -; *weka-dir* -; " weka.attributeSelection.CfsSubsetEval -M -s \"weka.attributeSelection.BestFirst -D 1 -N 5\" -i " -; (expand-file-name "temp3.arff") " > " (expand-file-name "res.txt"))) - )) - - -(defun ml4pg-why-are-similar () - (with-temp-buffer - (insert-file-contents (expand-file-name "res.txt")) - (setf foo nil) - (while (not foo) - (setf foo (string= "attributes:" (format "%s" (read (current-buffer)))))) - (ml4pg-extract-selected-attributes (format "%s" (read (current-buffer))) nil)) - ) - - -(defun ml4pg-extract-selected-attributes (temp res) - (let ((comma (search "," temp))) - (if comma - (ml4pg-extract-selected-attributes (subseq temp (+ 1 comma)) - (append res (list (car (read-from-string (subseq temp 0 comma)))))) - (append res (list (car (read-from-string temp))))))) - - - - - - - - - - - -(defun ml4pg-0_n (n) - (do ((i 0 (1+ i)) - (temp nil)) - ((= i n) temp) - (setf temp (append temp (list (list i nil)))))) - - -(defun ml4pg-read-lines (file) - "Return a list of lines in FILE." - (with-temp-buffer - (insert-file-contents file) - (split-string - (buffer-string) "\n" t) - )) - - -(defun ml4pg-lines-to-clusters (lines) - (do ((temp lines (cdr temp)) - (temp2 nil)) - ((endp temp) temp2) - (setf temp2 (append temp2 (list (string-to-number (subseq (car temp) (+ 7 (search "cluster" (car temp) :from-end t))))))) - )) - - - -(defun ml4pg-extract-clusters-from-file (clusters) - (let* ((temp (ml4pg-0_n clusters)) - (lines (ml4pg-read-lines (expand-file-name "out_bis.arff")))) - (ml4pg-lines-to-clusters lines))) - - - - - -(defun ml4pg-form-clusters (list n) - (do ((i 0 (1+ i)) - (temp nil)) - ((= i n) temp) - (setf temp (append temp (list (ml4pg-clusters-of-n list i)))))) - - - - -(defun ml4pg-clusters-of-n (list n) - (do ((temp list (cdr temp)) - (i 1 (1+ i)) - (temp2 nil)) - ((endp temp) temp2) - (if (equal (car temp) n) - (setf temp2 (append temp2 (list i)))))) - - -(defun ml4pg-remove-alone (list) - (do ((temp list (cdr temp)) - (temp2 nil)) - ((endp temp) temp2) - (if (not (= (length (car temp)) 1)) - (setf temp2 (append temp2 (list (car temp))))))) - - - |