Laboratoire ICAR » Plateforme TXM

package org.txm.macro.r;

// STANDARD DECLARATIONS

import org.kohsuke.args4j.*

import org.txm.Toolbox

import org.txm.functions.index.Index

import org.txm.rcp.commands.*

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

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

def sel = corpusViewSelection

String symbol = null;

String prop = "none"

if (sel instanceof Index) {

        println "Sending Index data to R..."

        ((Index)sel).asRMatrix()

        symbol = "t("+((Index)sel).getSymbol()+'$data)'

        prop = ((Index)sel).getProperties().toString()

}

if (symbol == null) {

        println "Selection is not an Index. Aborting."

        return

}

def r = RWorkspace.getRWorkspaceInstance()

def file = File.createTempFile("IndexHist", ".svg", new File(Toolbox.getTxmHomePath(), "results"))

/// BEGIN SCRIPTS

def script ="""

par(las=2)

barplot($symbol, xlab="$prop", ylab="f")

"""

/// END SCRIPTS

r.plot(file, script)

println "Result saved in: "+file.getAbsolutePath()

//display the graphic

monitor.syncExec(new Runnable() {

        @Override

        public void run() {        OpenSVGGraph.OpenSVGFile(file.getAbsolutePath(), "Specificity distribution") }

});