Advertisement
Guest User

Untitled

a guest
Dec 8th, 2016
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. >findCorrelation(cor(subset(segdata, select=-c(56))),cutoff=0.9)
  2. [1] 16 17 14 15 30 51 31 25 40
  3. >cor(segdata)[c(16,17,14,15,30,51,31,25,40),c(16,17,14,15,30,51,31,25,40)]
  4.  
  5. >library(mlbench)
  6. >library(caret)
  7. >data(Vehicle)
  8. >findCorrelation(cor(subset(Vehicle,select=-c(Class))),cutoff=0.9)
  9. [1]3 8 11 7 9 2
  10. cor(subset(Vehicle,select=-c(Class)))[c(3,8,11,7,9,2),c(3,8,11,7,9,2)]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement