중복 된 R

Question

에있는 lm 개체의 목록을 에 lm 개의 모델 개체가 반복 될 수 있으므로이 두 개의 개체가 동일한 지 확인하는 방법을 찾고 싶습니다. 즉, 내 list을 "중복 제거"하고 싶습니다.

대단히 감사합니다.

문제의 예 :

## Creates outcome and predictors 
outcome <- c(names(mtcars)[1:3]) 
predictors <- c(names(mtcars)[4:11]) 
dataset <- mtcars 

## Creates model list 
model_list <- lapply(seq_along((predictors)), function(n) { 
    left_hand_side <- outcome[1] 
    right_hand_side <- apply(X = combn(predictors, n), MARGIN = 2, paste, collapse = " + ") 
    paste(left_hand_side, right_hand_side, sep = " ~ ") 
}) 

## Convert model list into a verctor 
model_vector <- unlist(model_list) 

## Fit linear models to all itens from the vector of models 
list_of_fit <- lapply(model_vector, function(x) { 
    formula <- as.formula(x) 
    fit  <- step(lm(formula, data = dataset)) 
    fit 
}) 

# Exclude possible missing 
list_of_fit <- Filter(Negate(function(x) is.null(unlist(x))), list_of_fit) 

# These models are the same in my list 
lm253 <- list_of_fit[[253]];lm253 
lm254 <- list_of_fit[[254]];lm254 
lm255 <- list_of_fit[[255]];lm255 

내가 list_of_fit에서 중복 된 항목을 제외 할.

Answer 1

많은 모델에 적합하게 만든 다음 대부분을 버리는 것은 낭비입니다. 객체 이름을 사용하면 코드를 읽기 어려워 지지만, 수식을 기반으로 모델을 구별 할 수 있습니다. 어쩌면이 도움이 될 것입니다 :

lista_de_ajustes[!duplicated(vapply(lista_de_ajustes, 
            function(m) deparse(m$call), 
            FUN.VALUE = "a"))] 

Answer 2

롤랜드 코드에서 간단한 수정을 했으므로 저에게 효과적이었습니다. deparse(m$call)에서 deparse(formula(m))으로 바뀌 었습니다. 완성 된 수식을 비교할 수 있기 때문입니다.

lista_de_ajustes[!duplicated(vapply(lista_de_ajustes, function(m) deparse(formula(m)), FUN.VALUE = "a"))] 

대단히 감사합니다.