import collections,sys,math,functools,operator,itertools,bisect,heapq,decimal,string,time,random
#sys.setrecursionlimit(10**9)
#sys.set_int_max_str_digits(0)
#input = sys.stdin.readline

#
#alist = []

n,k = map(int,input().split())
a = list(map(int,input().split()))
c = [0 for i in range(n+1)]
for i in a:
    c[i] += 1
ans = max(c[1:])
print('Yes' if ans + c[0] >= k else 'No')