#include<iostream>
using namespace std;
int i;
float t,n,m,a[1000],ans;
int main(){
	cin>>n>>m;
	for(i=0;i<n;i++) cin>>a[i];
	for(i=0;i<n;i++) t+=a[i];
	for(i=0;i<n;i++) if(a[i]/t>=1/(4*m)) ans++;
	if(ans>=m) cout<<"Yes"<<endl;
	else cout<<"No"<<endl;
	return 0;
}
