Displaying 1 result from an estimated 1 matches for "bastimetosynoptic".
2018 Mar 29
1
Problem with my function using as.POSIXct
Hello all:
I wrote a function:
my.bastimeToSynoptic <- function(x) {
f<-unlist(strsplit(as.character(x), " "))
hr<-unlist(strsplit(f[2], ":"))
if(as.numeric(hr[1])<6) {
synoptic<-"00"
}
else {
synoptic<-as.integer(as.numeric(hr[1])/6)*6
}
tdate<-paste(c(f[...