R의 topicmodels 패키지에서 LDA 함수로 정확한 결과를 재현하는 방법

Question

topicmodels의 LDA 함수에서 재현 가능한 결과를 생성 할 수 없었습니다. 자신의 문서에서 예제를 수행하려면

library(topicmodels) 
set.seed(0) 
lda1 <- LDA(AssociatedPress[1:20, ], control=list(seed=0), k=2) 
set.seed(0) 
lda2 <- LDA(AssociatedPress[1:20, ], control=list(seed=0), k=2) 
identical(lda1, lda2) 
# [1] FALSE 

가 어떻게 LDA에 두 개의 별도의 통화에서 동일한 결과를 얻을 수 있나요?

제쳐두고 (패키지 작성자가 여기에있는 경우) control=list(seed=0) 스 니펫은 불행하고 불필요합니다. 뒤에는 if (missing(seed)) seed <- as.integer(Sys.time())의 줄이 있습니다. 이렇게하면 프로세스를보다 안정적으로 무작위로 만들지 않고 지정된 시드 만 실행 취소합니다. 내가 놓친 게 있니?

업데이트 : @hrbrmstr이 아래에서 발견했듯이, 컨트롤로 시드를 전달하면 효과적으로 동일한 개체가 생성되며, 유일한 차이점은 임시 로컬 파일 위치입니다. 따라서이 질문은 오해의 정도입니다 (그래도 함수가 set.seed()을 존중한다면 명확 해 보입니다).

Answer 1

하지 정말 "대답"하지만

나는 다음과 갈 준 :-) 코드 조각을 게시 할 수있는 다른 방법이 없다 :

library(topicmodels) 

data(AssociatedPress) 

lda1 <- LDA(AssociatedPress[1:20, ], control=list(seed=0), k=2) 
lda2 <- LDA(AssociatedPress[1:20, ], control=list(seed=0), k=2) 

identical(lda1, lda2) 
[1] FALSE 

all.equal(lda1, lda2) 
[1] "Attributes: < Component 5: Attributes: < Component 10: 1 string mismatch > >" 

a1 <- posterior(lda1, AssociatedPress) 
a2 <- posterior(lda2, AssociatedPress) 

identical(a1, a2) 
[1] TRUE 

all.equal(a1, a2) 
[1] TRUE 

all.equal(lda1@alpha,lda2@alpha) 
[1] TRUE 
all.equal(lda1@call,lda2@call) 
[1] TRUE 
all.equal(lda1@Dim,lda2@Dim) 
[1] TRUE 
all.equal(lda1@control,lda2@control) 
[1] "Attributes: < Component 10: 1 string mismatch >" 
all.equal(lda1@k,lda2@k) 
[1] TRUE 
all.equal(lda1@terms,lda2@terms) 
[1] TRUE 
all.equal(lda1@documents,lda2@documents) 
[1] TRUE 
all.equal(lda1@beta,lda2@beta) 
[1] TRUE 
all.equal(lda1@gamma,lda2@gamma) 
[1] TRUE 
all.equal(lda1@wordassignments,lda2@wordassignments) 
[1] TRUE 
all.equal(lda1@loglikelihood,lda2@loglikelihood) 
[1] TRUE 
all.equal(lda1@iter,lda2@iter) 
[1] TRUE 
all.equal(lda1@logLiks,lda2@logLiks) 
[1] TRUE 
all.equal(lda1@n,lda2@n) 
[1] TRUE 

identical(lda1@alpha,lda2@alpha) 
[1] TRUE 
identical(lda1@call,lda2@call) 
[1] TRUE 
identical(lda1@Dim,lda2@Dim) 
[1] TRUE 
identical(lda1@control,lda2@control) 
[1] FALSE 
identical(lda1@k,lda2@k) 
[1] TRUE 
identical(lda1@terms,lda2@terms) 
[1] TRUE 
identical(lda1@documents,lda2@documents) 
[1] TRUE 
identical(lda1@beta,lda2@beta) 
[1] TRUE 
identical(lda1@gamma,lda2@gamma) 
[1] TRUE 
identical(lda1@wordassignments,lda2@wordassignments) 
[1] TRUE 
identical(lda1@loglikelihood,lda2@loglikelihood) 
[1] TRUE 
identical(lda1@iter,lda2@iter) 
[1] TRUE 
identical(lda1@logLiks,lda2@logLiks) 
[1] TRUE 
identical(lda1@n,lda2@n) 
[1] TRUE 

상당한 @control은 "불평등"인가는?