2017-12-27 15 views
0

여러 txt 파일을 읽었으며 첫 번째 행을 제거하고 변수로 저장하고 트랜스 포스하고 나중에 물건을 저장하려고 할 때 나중에 저장하고 싶습니다. 그것은 파일의 다른 변수들과 함께.R 루프에서 파일을 읽는 중 변수 업데이트

문제는 내 코드가 첫 번째 txt 정보를 저장하고 나머지 txt 파일에 대해 반복한다는 것입니다.

내 코드 :. 내가 텍스트 파일을 통해 이동로

for(i in 1:length(filesW)) 
{ 
    data <- read.table(paste0("data",i,".txt", sep=""), sep=",", header=TRUE) 
    winstepsdat2 <- data.frame(data) 


    genparameter<-t((winstepsdat2[1,])) 
    winstepsdat<-winstepsdat2[-1,] 

    num_col<-ncol(winstepsdat) 
    num_row<-nrow(winstepsdat) 

    colnames(winstepsdat) <- paste("i", 1:num_col, sep="") 
    winstepsdat$name<- paste ("p", 1:num_row, sep="") 

    #must change ni and labels for 1:n?? 
    cmd <- wcmd(title = "R2Winsteps Example", data=paste0("data",i,".txt"),item1 = 1, ni =num_col , name1 = 30, namelen = 20,labels = paste('i',                                1:num_col, sep = ""), hlines = "Y") #codes=1:5 

    write.wdat(winstepsdat, cmd) 

    write.wcmd(cmd, paste0("CMFILE[",i,"].cmd")) 

    winsteps2(cmd, outfile=paste0("outfile[",i,"].txt"), pfile=paste0("pfile",i,".txt"), ifile=paste0("ifile",i,".txt"), windir="C:/Winsteps/Winsteps.exe") 

} #end for 

은 어떻게 든 내가 다른 계산을 위해 다른 값을 얻을 주어진 (winstepsdat을 변경 않지만, 단지 첫 번째 txt 파일 값이 genparameter 유지 어떻게 저장할 수 있습니다/, 나는 도움이됩니다. 감사 감사하겠습니다 그래서 초보자 프로그래머이야? 내가 읽은 모든 텍스트 파일을 Shmy

내가 제대로 질문을 이해한다면 나도 몰라

답변

1

을 genparameter을 저장,하지만 난 추측하고있다 당신이 필요로하는 것은 시작하는 것입니다. 변수를 alize (예 : 목록) 한 다음 for 루프를 사용하여 목록을 채 웁니다.

뭔가 같은 :

genparameter = list() 
winstepsdat = list() 
for(i in 1:length(filesW)) #i don't know what the length(filesW) was doing here 
{ 
data <- read.table(paste0("data",i,".txt", sep=""), sep=",", header=TRUE) 
winstepsdat2 <- data.frame(data) 

genparameter[[i]]<-t((winstepsdat2[1,]) 
winstepsdat[[i]] <-winstepsdat2[-1,] 

... 
+0

나는이 OP가 시도되는 것입니다 생각하지 않지만, 나는 그것이 영업 이익은 ** ** 할 :) – Gregor

+0

@Eudald를 슬프게 감사해야하지만 무엇을 생각하십니까 그것은 작동하지 않았다. 첫 번째 텍스트 파일을 읽을 때 루프는 다음 텍스트 파일을 통해 계속 진행되므로 값이 업데이트되지 않습니다. 길이 (filesW)는 내 파일을 통과합니다. 얼마나 오랫동안 그 루프를 원하십니까 :) – Shmy

+0

음, 알겠습니다 ... 전체 기능을 제공 할 수 있습니까? 그러면 문제가 무엇인지 더 잘 이해할 수있을 것입니다. – Eudald