Displaying 2 results from an estimated 2 matches for "multifactanal".
2007 May 03
3
factanal AIC?
...- -as.vector(object$criteria["objective"])
k <- model.df
aic <- 2*k - 2*LL
aicc <- aic + (2*k*(k+1))/(n-k-1)
bic <- k*log(n) - 2*LL
c(n=n, items=p, factors=m, total.df=total.df, rest.df=rest.df, model.df=model.df, LL=LL, AIC=aic, AICc=aicc, BIC=bic)
}
}
multifactanal <- function(factors=1:3, ...){
names(factors) <- factors
ret <- lapply(factors, function(factors){
try(factanal(factors=factors, ...))
})
class(ret) <- "multifactanal"
ret
}
summary.multifactanal <- function(object,...){
do.call("rbind", lapply(ob...
2007 May 03
3
factanal AIC?
...- -as.vector(object$criteria["objective"])
k <- model.df
aic <- 2*k - 2*LL
aicc <- aic + (2*k*(k+1))/(n-k-1)
bic <- k*log(n) - 2*LL
c(n=n, items=p, factors=m, total.df=total.df, rest.df=rest.df, model.df=model.df, LL=LL, AIC=aic, AICc=aicc, BIC=bic)
}
}
multifactanal <- function(factors=1:3, ...){
names(factors) <- factors
ret <- lapply(factors, function(factors){
try(factanal(factors=factors, ...))
})
class(ret) <- "multifactanal"
ret
}
summary.multifactanal <- function(object,...){
do.call("rbind", lapply(ob...