search for: outredun

...00 x1 <- runif(n) x2 <- runif(n) x3 <- x1 + x2 + runif(n)/10 x4 <- x1 + x2 + x3 + runif(n)/10 x5 <- factor(sample(c('a','b','c'),n,replace=TRUE)) x6 <- 1*(x5=='a' | x5=='c') data1 <- cbind(x1,x2,x3,x4,x5,x6) data2 <- data.frame(data1) outredun <- redun(~., data=data2, r2=.8,) outredun #outredun1 <- capture.output(redun(~., data=data2, r2=.8,)) #outredun1 #x25 <- outredun1[25] #mydata12 <- daat1[myvars] #myvars I need to pass to retain variables which gives me , say for this example Rendundant variables:x6 x4 x3 and Predict...