## set working directory setwd("P:/2015/LTAR/Met Data//4.13.2016_7.31.2016") dir() ##read in csv file data <- read.csv("Site3.April.csv", stringsAsFactors = FALSE) str (data) data$time2 <- strptime(as.character(data$DateTime),"%m/%d/%Y %H:%M") head(data$time2) data$time3<-as.Date(data$time2) data$timeT<-"T" data$timestamp<-"-6:00" data$StationID<-paste0("00", data$StationID) str(data) rm(df) newlist<-strsplit(data$DateTime, "[ ]") length(newlist) head(newlist) BOD<-unlist(newlist, use.names=FALSE) head(BOD) df <- data.frame(matrix(BOD, nrow=(length(newlist)), byrow=T)) head(df) df[1] df[2] names(df) data$DateTime4<-paste0(data$time3,data$timeT,df$X2,data$timestamp) head(data$DateTime4) str(data) data$LTARSiteAcronym<-"PRHP" data$DateTime<-data$DateTime4 data$time2<-NULL data$timestamp<-NULL data$time3<-NULL data$DateTime4<-NULL data$timeT<-NULL str(data) data[data == 9999.0] <- NA data[data == -9999.0] <- NA ### save files setwd("P:/2015/LTAR/Met Data/4.13.2016_7.31.2016/PRHPA4.13.2016_7.16.2016") write.table(data,"prhpMET003B_01_20160400_00.csv", na="", row.names=FALSE, sep=",", quote=FALSE) str(data)