# NOT RUN {
data(iris, package = "datasets")
Y <- ifelse(iris[, 5] == "setosa", 1, 0)
X <- scale(iris[, 1:4])
gnet <- grnn.fit(x = X, y = Y)
# }
# NOT RUN {
grnn.partial(gnet, 1, plot = FALSE)
# }
Run the code above in your browser using DataCamp Workspace