R 루프 -csv

Question

난 형태의 (koRpus)에서 함수의 출력을 가지고 요소의 142.66 수 : 6.22 계수의 크기 : 0.72 SD 토큰/요인 : 41.55 (모든 요소) 38 (완전 요인 만)

그리고 80 개 다른 문서에 대한 결과를 저장하는 루프를 만들고 싶어.

for (i in 1:length(infra$tableid)) { 
    whypar <- paste(infra$whypar [infra[,1] ==i], collapse=" ") 
wpi<- removeWords(whypar, stopwords("english")) 

as.data.frame(wpi) 
write.csv(data.frame(wpi), file= "wp.csv") 

tagged.text <- tokenize("wp.csv", lang="en") 

res.mtld <- MTLD(tagged.text) 
    write.csv(data.frame(res.mtld),file="output.csv") 
} 

인프라가 어디 있는지 : 나는 다음과 같은 시도

tableid 1, 2, 3, ... 80 
whypar "I took part because xxx", "I believe that jshfdjk", "jhsadkjhd" ... (N=350) 

---

감사합니다 도움이

Answer 1

먼저 관심있는 MTLD 개체의 부분을 추출합니다. MTLD에서 반환 한 객체의 하위 집합, 즉 MTLD 점수, 계수의 SD/토큰/계수 및 전체 요소에 대한 SD에만 관심이있는 것처럼 보입니다. 난이 도움이되기를 바랍니다

res <- data.frame(ID = numeric() , MTLD=numeric() , Factor_Size=numeric() , SD=numeric() , SD_Complete=numeric()) 
for (i in 1:length(infra$tableid)) { 
    whypar <- paste(infra$whypar [infra[,1] ==i], collapse=" ") 
    wpi<- removeWords(whypar, stopwords("english")) 

    wpi <- as.data.frame(wpi) 
    write.csv(data.frame(wpi), file= "wp.csv") 

    tagged.text <- tokenize("wp.csv", lang="en") 

    res.mtld <- MTLD(tagged.text) 
    mtld <- res.mtld@MTLD$MTLD 
    fac.size <- res.mtld@param$factor.size 
    mtld.sd <- res.mtld@MTLD$lengths$sd 
    mtld.sd.compl <- res.mtld@MTLD$lengths$sd.compl 
    res <- rbind(res , c(infra$tableid[i] , mtld, fac.size , mtld.sd , mtld.sd.compl)) 
} 
    write.csv(res , file="output.csv") 

을하지만, 이러한 당신이 반환 원하는 결과입니다 확인하십시오 당신이 각 파일에 대한 결과를 원하는 경우에 당신은 단지 모든 파일에 대한 귀하의 출력으로 하나 개의 좋은 테이블을 작성할 수 있습니다.