//           _____                  _______                  _____                   _____
//          /\    \                /::\    \                /\    \                 /\    \
//         /::\    \              /::::\    \              /::\____\               /::\    \
//        /::::\    \            /::::::\    \            /:::/    /              /::::\    \
//       /::::::\    \          /::::::::\    \          /:::/    /              /::::::\    \
//      /:::/\:::\    \        /:::/~~\:::\    \        /:::/    /              /:::/\:::\    \
//     /:::/__\:::\    \      /:::/    \:::\    \      /:::/    /              /:::/__\:::\    \
//    /::::\   \:::\    \    /:::/    / \:::\    \    /:::/    /              /::::\   \:::\    \
//   /::::::\   \:::\    \  /:::/____/   \:::\____\  /:::/    /      _____   /::::::\   \:::\    \
//  /:::/\:::\   \:::\    \|:::|    |     |:::|    |/:::/____/      /\    \ /:::/\:::\   \:::\    \
// /:::/  \:::\   \:::\____|:::|____|     |:::|____|:::|    /      /::\____/:::/  \:::\   \:::\____\
// \::/    \:::\  /:::/    /\:::\   _\___/:::/    /|:::|____\     /:::/    \::/    \:::\  /:::/    /
//  \/____/ \:::\/:::/    /  \:::\ |::| /:::/    /  \:::\    \   /:::/    / \/____/ \:::\/:::/    /
//           \::::::/    /    \:::\|::|/:::/    /    \:::\    \ /:::/    /           \::::::/    /
//            \::::/    /      \::::::::::/    /      \:::\    /:::/    /             \::::/    /
//            /:::/    /        \::::::::/    /        \:::\__/:::/    /              /:::/    /
//           /:::/    /          \::::::/    /          \::::::::/    /              /:::/    /
//          /:::/    /            \::::/____/            \::::::/    /              /:::/    /
//         /:::/    /              |::|    |              \::::/    /              /:::/    /
//         \::/    /               |::|____|               \::/____/               \::/    /
//          \/____/                 ~~                      ~~                      \/____/
//I am aqua
#include<bits/stdc++.h>
typedef long long ll;
typedef long double ld;
#define pii pair< int,int >
#define mp make_pair
#define yes cout<<"YES\n";
#define no cout<<"NO\n";
#define speed  ios_base::sync_with_stdio(0);cin.tie(0);cout.tie(0);
#define pb push_back
#define pob pop_back
#define pf push_front
#define pof pop_front
#define l first
#define r second
#define input.txt ifstream fin("input.txt");
#define output.txt ofstream fout("output.txt");
#define BTT( a,b ) (((a)>>(b))&1)
#define LB(x) (x % -(x))
using namespace std;
//---------------------------------------------------------------------------------------------------------------------
///Variables
const int maxn=100+10;
double a[maxn];
//--------------------------------------------------------------------------------------------------------------------
///Function

//---------------------------------------------------------------------------------------------------------------------
///Main
int main()
{
    int sum=0,n,m;
    cin>>n>>m;
    for(int i=0;i<n;i++)
    {
        cin>>a[i];
        sum+=a[i];
    }
    int ans=0;
    double d=1;
    d/=(4*m);
    for(int i=n-1;i>=0;i--)
    {
        if(a[i]/sum>=d)
        {
            ans++;
            //cout<<a[i]/sum<<'\t'<<d<<'\n';
        }
    }
    //cout<<"\n";
    if(ans>=m)
        cout<<"Yes";
    else
        cout<<"No";
}
//I know that ;
//I know where I am
//Do not think I don't


Measured memory_bytes: 256