# NOT RUN {
date<-c('20201230','20201231','20210101')
value<-c(-10,-12,-9)
df<-data.frame(date,value)
year<-as.numeric(substring(date,1,4))
month<-as.numeric(substring(date,5,6))
day<-as.numeric(substring(date,7,8))
x<-data.frame(year,month,day,date,value)
y<-putjulian(x)
# }
Run the code above in your browser using DataLab