Hello to everyone!

I'm a new to R and I don't succed in updating a variable (SR) in a for
loop. The script created is the following one:

path=c("C:/Users/memeo/Documents/Dottorato/soggetti visus danneggiato/")
subjects=list.files(path)
# subjects=subjects[c(1:35,37)]

n_gradini=rep(c(1,2,4),length(subjects))
allsubjects=c(rep(subjects,each=3))


for (i in length(subjects))
    { path_each_subj=paste0(path,subjects[i])
      no_thumbs<-grep("Thumbs",subjects)
      n=1:length(subjects)
      clear_thumbs=n!=no_thumbs

      if(clear_thumbs[i])
           {
      each_subject=list.files(path_each_subj)
      find_gradini<-grep("gradini",each_subject)
      file_gradini=each_subject[find_gradini]
      path_file_gradini=paste0(path_each_subj,"/",file_gradini)
      SR<-(rep(0,3))
#       SR<-matrix(data=NA,nrow=36*3,ncol=1)
                for(j in length(path_file_gradini))
                   {
gradini<-read.table(file=path_file_gradini[j],header=T,quote="\"",skip=1)
                     data<-data.frame(gradini)
                     names(data)=c("Id","Time","X","Y","H","Sound")
                     #Calculate derivatives for isolate the positive
contributes
                     Hdiff=diff(data$H)
                     Height=Hdiff[Hdiff>0]
                     SR[j]<-length(Height)/tSR
                     }
      blind=data.frame(Names=allsubjects,Gradini=n_gradini,StimuliRate=SR)

      print(SR)  }
else i=i+1
    }
write.table(blind,file="10Blind",sep=" ", eol="\r\n")


CAN ANYONE HELP ME? Thank you very much!



-- 

*M. Memeo*

	[[alternative HTML version deleted]]


