함수 안에 루프 입력 파일이 있음

R에서이 코드를 부트 스트랩 함수로 사용하려고하지만이 함수에 입력 파일을 반복해야한다고 생각하는 방법을 모르겠습니다.함수 안에 루프 입력 파일이 있음

raw <- list.files(pattern="*.txt") 
prs <- list.files(pattern="*.pres") 

for (i in seq_along(raw)) 
    { 
    a <- read.table(raw[i]) 
    bb <- read.table(prs[i]) 

    AUC <- function(p,ind){ 
     pres <- p[ind] 
     cat <- c(pres,(read.table(abs[i]))) 
     name <- c(rep(1,length(pres)), rep(0,length(a))) 
     predic <- prediction(cat,name) 
     return(performance(predic,"auc")@y.values[[1]]) 
     } 

    bb <- read.table(prs[i]) 
    b1 <- boot(bb,AUC,100) 
    b2 <- boot.ci(b1,conf=c(0.95), type=c("bca")) 
    }

감사합니다.

출처

2012-02-02 ida1215

lapply을 사용하십시오.

data_from_txt_files <- lapply(raw, read.table)

출처

2012-02-02 10:02:31

감사합니다. 내가이 코드를 기존 코드에 삽입합니까? 사과는 이것에 대한 지식이 거의 없었습니다. – ida1215

해결할 수 있습니다. 그것은 변수'raw'를 사용하기 때문에 그 이후에 와야합니다. 그리고 그것은'read.table'을 호출하고 있습니다, 그래서 아마도 당신의 기존 호출을 그 함수로 대체 할 것입니다. 의심스러운 경우 코드를 실행하여 어떤 일이 발생하는지 확인하십시오. –

함수 안에 루프 입력 파일이 있음

답변

관련 문제