def main():

    n, m = list(map(int, input().split()))

    *a, = list(map(int, input().split()))



    LIM = sum(a) / (4 * m)



    cnt = 0

    for x in a:

        if x >= LIM:

            cnt += 1



    print(('Yes' if cnt >= m else 'No'))





if __name__ == '__main__':

    main()



# import sys

#

# sys.setrecursionlimit(10 ** 7)

#

# input = sys.stdin.readline

# rstrip()

# int(input())

# map(int, input().split())

N, M = list(map(int, input().split()))

*a, = list(map(int, input().split()))



tot = sum(a)



cnt = 0

for x in a:

    cnt += int(x * 4 * M >= tot)



print(('Yes' if cnt >= M else 'No'))



# 候補>=得票数の総和/4m

# 候補*4m>=得票数の総和

def main():
    n, m = list(map(int, input().split()))
    (*a,) = list(map(int, input().split()))
    LIM = sum(a) / (4 * m)
    cnt = 0
    for x in a:
        if x >= LIM:
            cnt += 1
    print(("Yes" if cnt >= m else "No"))


if __name__ == "__main__":
    main()
# import sys
#
# sys.setrecursionlimit(10 ** 7)
#
# input = sys.stdin.readline
# rstrip()
# int(input())
# map(int, input().split())

N, M = list(map(int, input().split()))
(*a,) = list(map(int, input().split()))
tot = sum(a)
cnt = 0
for x in a:
    cnt += int(x * 4 * M >= tot)
print(("Yes" if cnt >= M else "No"))
# 候補>=得票数の総和/4m
# 候補*4m>=得票数の総和

-def main(): -    n, m = list(map(int, input().split())) -    (*a,) = list(map(int, input().split())) -    LIM = sum(a) / (4 * m) -    cnt = 0 -    for x in a: -        if x >= LIM: -            cnt += 1 -    print(("Yes" if cnt >= m else "No")) - - -if __name__ == "__main__": -    main() -# import sys -# -# sys.setrecursionlimit(10 ** 7) -# -# input = sys.stdin.readline -# rstrip() -# int(input()) -# map(int, input().split()) +N, M = list(map(int, input().split())) +(*a,) = list(map(int, input().split())) +tot = sum(a) +cnt = 0 +for x in a: +    cnt += int(x * 4 * M >= tot) +print(("Yes" if cnt >= M else "No")) +# 候補>=得票数の総和/4m +# 候補*4m>=得票数の総和