search for: lscpos

Dear group, Here is my function: #return the daily PL for day y PLDaily<-function(x,y) { #find elements in my directory with "LSCPos" in the name, keep the numeric part in the name and #create a list l<-gsub("\\D","",dir()[grep("LSCPos",dir())]) #select in the list the desired elements assign("sel",l[which(l==x):which(l==y)],envir=.GlobalEnv) #here is another solution selec...

Dear group, Here is my function : position<-function(x) { pose<-read.csv2((paste(c("LSCPos",x,".csv"),collapse="")),dec=".",sep=",",as .is=T,h=T,skip=1)[,c(4,8,14,15)] pose$CREATED.DATE<-as.Date(pose$CREATED.DATE,"%d/%m/%y") futures<-pose[-grep("USD",pose[,1]),] colnames(futures)<-c("CO...