added plot.inFeature + formatted R code