> m=c(31,28,31,30,31,30,31,31,30,31,30,31)
> e=as.numeric(strsplit(scan("","raw"),"/")[[1]]);n=(e[1]/12-1)*12;if(n<0)n=e[1];j=e[2];while((j<-j-m[n])>0){n=n+1;if(n>12)n=1};j=m[n]+j;cat(n,j,sep="/")
1: 12/4
2:
Read 1 item
Error in while ((j <- j - m[n]) > 0) { : argument is of length zero
> source("/Users/geokavel/date.R")
1: 12/4
2:
Read 1 item
Error in while ((j <- j - m[n]) > 0) { : argument is of length zero