import Control.Monad

readInt :: IO Int
readInt = read <$> getLine

readArr :: IO [Int]
readArr = map read <$> words <$> getLine

main = do
    a:b:_ <- readArr
    putStrLn $ if (a + 1) `div` 2 >= b then "YES" else "NO"