Displaying 1 result from an estimated 1 matches for "leapc".
Did you mean:
leap
2002 Feb 12
1
Best Subsets regression
...Agriculture'-'Infant.Mortality' ;
SUBC> NVars 1 5;
SUBC> Best 5;
SUBC> Constant.
I need to go
data(swiss)
leapa <-leaps(as.matrix(swiss[,-1]),swiss[,1],method="Cp", nbest=5)
leapb <-leaps(as.matrix(swiss[,-1]),swiss[,1],method="adjr2", nbest=5)
leapc <-leaps(as.matrix(swiss[,-1]),swiss[,1],method="r2", nbest=5)
best <- cbind(leapc$r2,leapb$adjr2,leapa$Cp,leapa$which)
colnames(best) <- c( "R.Sq", "Adj.R.Sq","Cp","X1","X2","X3","X4","X5")
best
whic...