Displaying 1 result from an estimated 1 matches for "adjrsq".
Did you mean:
addrs
2012 Aug 06
1
cannot find function "simpleRDA2"
...ble X to include in the model
R2prev <- 0
R2cum <- 0
for(j in 1:m) {
toto <- simpleRDA2(Y,X[,j],SS.Y)
if(toto$Rsquare > R2cum) {
R2cum <- toto$Rsquare
no.sup <- j
}
}
mm <- 1
FP <- FPval(R2cum,R2prev,n,mm,p)
if(FP$pval <= alpha) {
adjRsq <- RsquareAdj(R2cum,n,mm)
res1 <- var.names[no.sup]
res2 <- no.sup
res3 <- R2cum
res4 <- R2cum
res5 <- adjRsq
res6 <- FP$Fstat
res7 <- FP$pval
X.out[no.sup] <- 0
delta <- R2cum
} else {
stop("Procedure stopped (alpha crite...