Laboratoire ICAR » Plateforme TXM

package org.txm.macroproto;

import org.txm.Toolbox

import org.txm.searchengine.cqp.clientExceptions.*

import org.txm.searchengine.cqp.corpus.*

import org.txm.searchengine.cqp.corpus.query.*

import org.txm.statsengine.r.core.RWorkspace

import org.txm.specificities.core.functions.Specificities

import org.kohsuke.args4j.*

import groovy.transform.Field

import org.txm.rcp.swt.widget.parameters.*

if (!(corpusViewSelection instanceof Specificities)) {

	println "Selection if not a Specificites Result"

	return;

}

// PARAMETERS

@Field @Option(name="outfile", usage="CSV result file ", widget="File", required=true, def="result.csv")

def outfile;// = new File("/home/mdecorde/Bureau/test.csv")

@Field @Option(name="MAX", usage="score limit", widget="Integer", required=false, def="1")

def MAX;// = 1.0

@Field @Option(name="suseSum", usage="Use the row sums : y/n", widget="String", required=false, def="n")

String suseSum;// = false

// END OF PARAMETERS

if (!ParametersDialog.open(this)) return;

if (suseSum == null || suseSum.length() == 0) suseSum = "n"

boolean useSum = suseSum.toLowerCase().charAt(0) == "y"

println "useSum $useSum"

def writer = outfile.newWriter("UTF-8")

def specif = corpusViewSelection

def indices = specif.getSpecificitesIndex()

def freqs = specif.getFrequency()

def rownames = specif.getTypeNames();

def colnames = specif.getPartShortNames() ;

def selected = []

writer.print "unit"

writer.print "\tF"

for (int j = 0; j < colnames.size() ; j++) {

	writer.print "\t"+colnames[j]

	writer.print "\tscore"

}

writer.println ""

for (int i = 0; i < rownames.length ; i++) {

	boolean add = true

	def totF = 0;

	def totscore = 0.0

	for (int j = 0; j < colnames.size() ; j++) {

		if (Math.abs(indices[i][j]) >= MAX) add = false

		totF += freqs[i][j]

		totscore += Math.abs(indices[i][j])

	}

	if (useSum) {

		if (totscore >= MAX) add = false

		else add = true

	}

	if (add) {

		selected << rownames[i]

		writer.print rownames[i]

		writer.print "\t$totF"

		for (int j = 0; j < colnames.size() ; j++) {

			writer.print "\t"+freqs[i][j]

			writer.print "\t"+indices[i][j]

		}

		writer.println ""

	}

}

println selected

println "Saved in $outfile"

writer.close()

@Field @Option(name="seuil", usage="score limit", widget="Integer", required=false, def="2.0")

def indices = specif.getSpecificitesIndex()

def rownames = specif.getTypeNames();

def colnames = specif.getPartShortNames() ;

def indices = specif.getSpecificitesIndex()

def rownames = specif.getTypeNames()

		// System.out.println("Specif N lines number: "+specif.getSpecificitesIndex().length); //$NON-NLS-1$

		// System.out.println("Nb specif result: "+specif.getSpecificitesIndex().length);

			if (p.getName().equals(name))