Я пытаюсь написать функцию для преобразования аббревиатур в течение трех букв в числовые значения в R.
Вот что у меня есть, мне было интересно, есть ли лучший способ сделать это:
numMonth <- function(x) {
months <- list(jan=1,feb=2,mar=3,apr=4,may=5,jun=6,jul=7,aug=8,sep=9,oct=10,nov=11,dec=12)
x <- tolower(x)
sapply(x,function(x) months[[x]])
}
numMonth(c('JAN','DEC'))