path<-"http://canisius.edu/~yany/RData/"
dataSet<-"positiveNegativeWords"
link<-paste(path,dataSet,".RData",sep='')
load(url(link))



x<-.positiveNegativeWords
good<-subset(x,x$POSITIVE==TRUE)
head(good)
          WORDS POSITIVE
17         ABLE     TRUE
38    ABUNDANCE     TRUE
39     ABUNDANT     TRUE
51    ACCLAIMED     TRUE
52   ACCOMPLISH     TRUE
53 ACCOMPLISHED     TRUE
> 
