in R language

Create two new ordinal attributes with three levels and add to the iris2 dataset: Sepal.Width.int from numerical attribute Sepal.Width attribute using equal interval discretization method and Petal.Length.freq from Petal.Length using equal frequency method. (Hint: You can either implement your own discretization functions or use discretize() function available through arules package in which case you need to install and load the package).

X fe Sepal Length A1 A B 1 Sepal. Len Sepal.Wic Petal. Len Petal.Wid Species 2 5.1 3.5 1.4 0.2 setosa 49 3 1.4 0.2 setosa 47 3.2 1.3 0.2 setosa 46 3.1 1.5 0.2 setosa 6 5 3.6 1.4 0.2 setosa 7 5.4 3.9 1.7 0.4 setosa 8 46 3.4 1.4 0.3 setosa 5 3.4 1.5 0.2 setosa 10 4.4 2.9 1.4 setosa 49 3.1 1.5 0.1 setosa 12 5.4 3.7 1.5 0.2 setosa 13 4.8 3.4 1.6 0.2 setosa 14 48 3 1.4 0.1 setosa 15 43 3 1.1 0.1 setosa 16 1.2 5.8 0.2 setosa 17 5.7 4.4 1.5 0.4 setosa 18 5.4 3.9 1.3 0.4 setosa 19 5.1 3.5 1.4 0.3 setosa 3.8 5.7 1.7 20 0.3 setosa 5.1 3.8 1.5 0.3 setosa 22 5.4 3.4 1.7 0.2 setosa 23 5.1 3.7 1.5 0.4 setosa 24 46 3.6 1 0.2 setosa ris2(1)