Hello again:
Here is a solution to the dates without leading zeros:
pou1 <- function(x) {
#Note: x is a data frame
#Assume that Column 1 has the date
#Column 2 has station
#Column 3 has min
#Column 4 has max
library(stringr)
w <- character(length=nrow(x))
z <- str_split(x[,1],"/")
for(i in 1:nrow(x)) {
u <- str_pad(z[[i]][1:3],width=2,pad="0")
w[i] <- paste(u,sep="",collapse="/")
}
a <- as.Date(w,"%m/%d/%Y")
This is not particularly elegant, but it does the trick.
Thanks,
Erin
--
Erin Hodgess
Associate Professor
Department of Computer and Mathematical Sciences
University of Houston - Downtown
mailto: erinm.hodg...@gmail.com
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
