dataFile <- "test_data.csv"
dataFile_strip <- "test_data2.csv"
dataDir <- "/Users/alex/Dev/R/stockdata"
file <- paste(dataDir,"/",dataFile,sep="")
file2 <- paste(dataDir,"/",dataFile_strip,sep="")
csv <- read.csv(file,header=TRUE,sep=",")
csv$row.names <- as.POSIXct(as.character(csv$row.names),tz="",format="%Y.%m.%d")
#write the file and remove the column with symbol name
write.csv(csv[-2],file2,row.names=FALSE)