Re: [R] number of rules

2010-04-26 Thread Gabor Grothendieck
Here is a kludge: > fm <- JRip(Species ~., iris) > as.numeric(sub(".*:", "", grep("Number of Rules", capture.output(fm), value = > TRUE))) [1] 4 On Mon, Apr 26, 2010 at 7:23 AM, fascob wrote: > > Hello, > > I have >> JRip(Species ~ ., data = iris) > JRIP rules: > === > > (Sepal.Width

[R] number of rules

2010-04-26 Thread fascob
Hello, I have > JRip(Species ~ ., data = iris) JRIP rules: === (Sepal.Width <= 2.9) and (Petal.Width <= 1.6) => Species=versicolor (39.0/5.0) (Petal.Length >= 4.1) and (Petal.Width <= 1.7) => Species=versicolor (17.0/2.0) (Petal.Length >= 4.8) => Species=virginica (46.0/1.0) => Specie