demo/FRNN.O.iris.R

In RoughSets: Data Analysis Using Rough Set and Fuzzy Rough Set Theories

library(RoughSets)
						   
 #############################################################
 ## In this example, we are using Iris dataset.
 ## It should be noted that since values of decision attribute in string,
 ## so they should be transformed into numeric values using unclass()
 #############################################################
 data(iris)
 set.seed(2)
 
 irisShuffled <- iris[sample(nrow(iris)),]
 ## transform to numeric values
 irisShuffled[,5] <- unclass(irisShuffled[,5])
 iris.training <- irisShuffled[1:105,]
 real.iris <- matrix(irisShuffled[106:nrow(irisShuffled),5], ncol = 1)
 colnames(iris.training) <- c("Sepal.Length", "Sepal.Width", "Petal.Length", 
                        "Petal.Width", "Species")
 decision.table <- SF.asDecisionTable(dataset = iris.training, decision.attr = 5, indx.nominal = c(5))
				   
 control <- list(m = 2)
 
 ## define newdata
 tst.iris <- SF.asDecisionTable(dataset = irisShuffled[106:nrow(irisShuffled),1:4])

 res.test.FRNN.O <- C.FRNN.O.FRST(decision.table = decision.table, newdata = tst.iris, 
                           control = control)
						  
 ## error calculation
 err = 100*sum(real.iris!=res.test.FRNN.O)/nrow(real.iris)

print("The result: ")
print(res.test.FRNN.O)
print("FRNN.O: percentage Error on Iris: ")
print(err)