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
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
2 matches
Mail list logo