#!/usr/bin/perl

$R=$ARGV[0];

#system("cd $R");

#system("rm -f *.errors *.bootstrap *.im *.labeled *.passive *.dat *.stream *.temp");
#system("rm -rf bootstrap costing-train trees.J48");

#system("../iwal-split 0.1 $R.data");

#system("cd ..");

system("./script $R");

system("./k-iwal 10 $R/trees.J48/$R $R/$R > $R/active.errors &");

system("./passive $R/$R > $R/passive.errors &");
