There are some trouble when I try to using eval() and then knn():
library(ISLR) library(stringr) train <- Weekly[Weekly$Year>=1990&