import org.rosuda.JRI.* ;

public class Morris {
	
	public static void main(String[] args) {
		String cmd = "a<-morris(model=NULL,factors=c(\"PecheAmateurs décembre.proportionMetier\",\"PechePetitMetierMer mai.proportionMetier\",\"PecheAmateurs mai.proportionMetier\",\"PecheChalutiere janvier.minInactivityDays\",\"PechePetitMetierEtang octobre.minInactivityDays\",\"PechePetitMetierEtang décembre.minInactivityDays\",\"FiletMer.standardisationFactor\",\"PecheAmateurs juin.minInactivityDays\",\"PechePetitMetierEtang novembre.minInactivityDays\",\"PechePetitMetierMer septembre.minInactivityDays\",\"PechePetitMetierMer avril.minInactivityDays\",\"PecheAmateurs août.proportionMetier\",\"PecheChalutiere novembre.minInactivityDays\",\"PechePetitMetierMer février.proportionMetier\",\"PecheChalutiere juillet.minInactivityDays\",\"PechePetitMetierMer octobre.proportionMetier\",\"CSar Groupe 5.reproductionRate\",\"PechePetitMetierMer août.proportionMetier\",\"PechePetitMetierMer janvier.minInactivityDays\",\"PechePetitMetierEtang mai.minInactivityDays\",\"PecheAmateurs octobre.minInactivityDays\",\"PecheAmateurs septembre.minInactivityDays\",\"PecheChalutiere juin.minInactivityDays\",\"PecheChalutiere avril.minInactivityDays\",\"PecheAmateurs juillet.proportionMetier\",\"PecheChalutiere mai.minInactivityDays\",\"PechePetitMetierEtang septembre.minInactivityDays\",\"PechePetitMetierMer janvier.proportionMetier\",\"PecheAmateurs septembre.proportionMetier\",\"PechePetitMetierEtang février.minInactivityDays\",\"PechePetitMetierEtang mars.minInactivityDays\",\"PechePetitMetierEtang juillet.minInactivityDays\",\"PechePetitMetierMer septembre.proportionMetier\",\"CSar.capturability\",\"PechePetitMetierMer juin.proportionMetier\",\"PecheChalutiere mars.minInactivityDays\",\"PecheChalutiere septembre.minInactivityDays\",\"PecheAmateurs janvier.minInactivityDays\",\"PechePetitMetierMer août.minInactivityDays\",\"PechePetitMetierMer juillet.proportionMetier\",\"PecheChalutiere décembre.minInactivityDays\",\"PecheAmateurs avril.minInactivityDays\",\"PecheAmateurs mars.proportionMetier\",\"PechePetitMetierMer novembre.minInactivityDays\",\"PechePetitMetierEtang août.minInactivityDays\",\"CSar.recruitmentDistribution\",\"PecheChalutiere février.minInactivityDays\",\"CSar.naturalDeathRate\",\"PecheAmateurs octobre.proportionMetier\",\"PechePetitMetierMer mai.minInactivityDays\",\"PechePetitMetierMer mars.proportionMetier\",\"PecheAmateurs août.minInactivityDays\",\"FiletEtang.standardisationFactor\",\"PecheChalutiere août.minInactivityDays\",\"PecheAmateurs janvier.proportionMetier\",\"PecheAmateurs décembre.minInactivityDays\",\"PechePetitMetierEtang avril.minInactivityDays\",\"PecheAmateurs mars.minInactivityDays\",\"PechePetitMetierMer décembre.minInactivityDays\",\"PecheAmateurs mai.minInactivityDays\",\"PechePetitMetierEtang juin.minInactivityDays\",\"Harpon.standardisationFactor\",\"PecheAmateurs novembre.minInactivityDays\",\"PecheAmateurs novembre.proportionMetier\",\"PechePetitMetierMer mars.minInactivityDays\",\"Ligneemb.standardisationFactor\",\"PecheAmateurs juin.proportionMetier\",\"PecheAmateurs avril.proportionMetier\",\"PechePetitMetierMer juillet.minInactivityDays\",\"PechePetitMetierMer avril.proportionMetier\",\"PechePetitMetierMer octobre.minInactivityDays\",\"PechePetitMetierMer février.minInactivityDays\",\"PecheAmateurs juillet.minInactivityDays\",\"PechePetitMetierMer décembre.proportionMetier\",\"PecheAmateurs février.proportionMetier\",\"PecheChalutiere octobre.minInactivityDays\",\"CSar Groupe 4.reproductionRate\",\"CSar Groupe 7.reproductionRate\",\"Lignecote.standardisationFactor\",\"CSar.meanWeight\",\"CSar Groupe 6.reproductionRate\",\"PechePetitMetierMer juin.minInactivityDays\",\"PechePetitMetierMer novembre.proportionMetier\",\"PechePetitMetierEtang janvier.minInactivityDays\",\"PecheAmateurs février.minInactivityDays\",\"CSar.growth\"),r=10,design=list(type=\"oat\",levels=c(5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5),grid.jump=c(2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2)),binf=c(0.0,0.0,0.0,11.0,10.0,12.0,0.06,10.0,11.0,0.0,0.0,0.0,10.0,0.0,11.0,0.0,1120.0,0.0,10.0,22.0,12.0,10.0,10.0,11.0,0.0,11.0,15.0,0.0,0.0,23.0,16.0,22.0,0.0,0.0,0.0,11.0,10.0,18.0,0.0,0.0,11.0,11.0,0.0,3.0,22.0,0.0,8.0,0.0,0.0,0.0,0.0,8.0,0.1456,11.0,0.0,18.0,17.0,11.0,7.0,11.0,20.0,0.0464,16.0,0.0,1.0,0.1515,0.0,0.0,0.0,0.0,1.0,11.0,9.0,0.0,0.0,11.0,1120.0,1120.0,0.0749,0.0,1120.0,0.0,0.0,13.0,16.0,0.0),bsup=c(1.0,1.0,1.0,15.0,14.0,16.0,0.09,14.0,15.0,2.0,2.0,1.0,14.0,1.0,15.0,1.0,1680.0,1.0,14.0,26.0,16.0,14.0,14.0,14.0,1.0,15.0,19.0,1.0,1.0,27.0,20.0,26.0,1.0,1.0,1.0,15.0,14.0,22.0,2.0,1.0,15.0,15.0,1.0,7.0,26.0,1.0,12.0,1.0,1.0,2.0,1.0,12.0,0.2184,15.0,1.0,22.0,21.0,15.0,11.0,15.0,24.0,0.0696,20.0,1.0,5.0,0.22,1.0,1.0,2.0,1.0,5.0,15.0,13.0,1.0,1.0,15.0,1680.0,1680.0,0.11244,1.0,1680.0,2.0,1.0,17.0,20.0,1.0))" ;
		
		try{
			Rengine r = new Rengine(new String[]{}, false, null ) ; 
			r.eval( "morris <- function(...) list(...)" ) ;
			r.eval( cmd ) ;
			System.out.println( r.eval( "length(a)" ).asInt() ); 
		} catch( Exception e){
			e.printStackTrace() ;
		}
		System.exit( 0 ); 
	}
	
}