main :: IO ()
main = do
  (n:k:_) <- fmap (map read . words) getLine :: IO [Int]
  putStrLn $ solve n k

solve :: Int -> Int -> String
solve n k = if n >= 2 * k - 1
            then "YES"
            else "NO"