search for: dscan

...= TRY<-function(nsize=500,filename="C:/A.txt",nvar=61,nruns=1) { #the matrix with the payoff weights fit.reg<-matrix(nrow=nruns,ncol=nvar-1) for (ii in 1:nruns) { skip=1+(ii-1)*nsize #import the data in batches of "nsize*nvar" #save as a matrix and then delete "dscan" to save memory space dscan<-scan(file=filename,sep="\t",skip=skip,nlines=nsize,fill=T,quiet=T) dm<-matrix(dscan,nrow=nsize,byrow=T) rm(dscan) #this calculates which of the columns have entries in the columns #that are not NA #only perform regressions on those with more...