//INCLUDING..
#include <bits/stdc++.h>
#include <iostream>
#include <algorithm>
#include <cmath>
#include <vector>
#include <stack>
//DEFINING..
#define LL long long
#define all(a) a.begin(),a.end()
#define rall(a) a.rbegin(),a.rend()
#define lop(i,n) for(int i=0;i<n;i++)
#define pb(a) push_back(a)
#define sz(s) (s).size()
#define cy cout<<"YES\n";
#define cn cout<<"NO\n";
#define vi vector<int>
#define F first
#define S second
#define fast ios::sync_with_stdio(NULL); cin.tie(0); cout.tie(0);
using namespace std;
//FUNCTION..
bool isPrime(int num)
{bool flag = true;for (int i = 2; i <= sqrt(num); i++) if (num % i == 0) {flag = false;break;} return flag;}
int lcm(int a ,int b)
{return a*b/__gcd(a,b);}
int digitsum(int n)
{int ret=0;while(n){ret+=n%10;n/=10;}return ret;}
bool compare(const pair<int,int> &a,const pair<int,int> &b)
{if(a.first == b.first){return a.second < b.second;} return a.first > b.first;}
int powar(int x,int y,int m)
{if(y==0)return 1; int p=powar(x,y/2,m)%m; p=(p*p)%m;return (y%2==0)?p:(x*p)%m;}
int modInverse(int a , int m)
{return powar(a , m - 2 , m);}
const int M=1e9+7;
LL n,m,k,flag;
char ch;
map<LL ,LL> mp;
//SOLVING..
void SOLVE(){
cin>>n>>k;
vector<pair<LL , LL>> ar(n);
for(int i=0;i<n;i++) {
cin>>ar[i].F;
ar[i].S=i;
}
sort(all(ar));
int val=1;
for(int i=1;i<n;i++){
if(ar[i-1].S+1 != ar[i].S)val++;
}
if(val<=k)cy
else cn
}
//MAINING..
signed main(){
fast
int T=1;
cin>>T;
while(T--)
SOLVE();
return 0;
}
ICAgICAgICAgICAgICAgICAgICAvL0lOQ0xVRElORy4uCiNpbmNsdWRlIDxiaXRzL3N0ZGMrKy5oPgojaW5jbHVkZSA8aW9zdHJlYW0+CiNpbmNsdWRlIDxhbGdvcml0aG0+CiNpbmNsdWRlIDxjbWF0aD4KI2luY2x1ZGUgPHZlY3Rvcj4KI2luY2x1ZGUgPHN0YWNrPgoKCiAgICAgICAgICAgICAgICAgICAgLy9ERUZJTklORy4uCiNkZWZpbmUgTEwgICAgICAgICAgICAgIGxvbmcgbG9uZwojZGVmaW5lIGFsbChhKSAgICAgICAgICAgYS5iZWdpbigpLGEuZW5kKCkKI2RlZmluZSByYWxsKGEpICAgICAgICAgIGEucmJlZ2luKCksYS5yZW5kKCkKI2RlZmluZSBsb3AoaSxuKSAgICAgICAgIGZvcihpbnQgaT0wO2k8bjtpKyspCiNkZWZpbmUgcGIoYSkgICAgICAgICAgICBwdXNoX2JhY2soYSkKI2RlZmluZSBzeihzKSAgICAgICAgICAgIChzKS5zaXplKCkKI2RlZmluZSBjeSAgICAgICAgICAgICAgIGNvdXQ8PCJZRVNcbiI7CiNkZWZpbmUgY24gICAgICAgICAgICAgICBjb3V0PDwiTk9cbiI7CiNkZWZpbmUgdmkgICAgICAgICAgICAgICB2ZWN0b3I8aW50PgojZGVmaW5lIEYgICAgICAgICAgICAgICAgZmlyc3QKI2RlZmluZSBTICAgICAgICAgICAgICAgIHNlY29uZAojZGVmaW5lIGZhc3QgICAgICAgICAgICAgaW9zOjpzeW5jX3dpdGhfc3RkaW8oTlVMTCk7IGNpbi50aWUoMCk7IGNvdXQudGllKDApOwp1c2luZyBuYW1lc3BhY2Ugc3RkOwoKCiAgICAgICAgICAgICAgICAgICAgLy9GVU5DVElPTi4uCgpib29sIGlzUHJpbWUoaW50IG51bSkKICAgIHtib29sIGZsYWcgPSB0cnVlO2ZvciAoaW50IGkgPSAyOyBpIDw9IHNxcnQobnVtKTsgaSsrKSBpZiAobnVtICUgaSA9PSAwKSB7ZmxhZyA9IGZhbHNlO2JyZWFrO30gcmV0dXJuIGZsYWc7fQppbnQgbGNtKGludCBhICxpbnQgYikKICAgIHtyZXR1cm4gYSpiL19fZ2NkKGEsYik7fQppbnQgZGlnaXRzdW0oaW50IG4pCiAgICB7aW50IHJldD0wO3doaWxlKG4pe3JldCs9biUxMDtuLz0xMDt9cmV0dXJuIHJldDt9CmJvb2wgY29tcGFyZShjb25zdCBwYWlyPGludCxpbnQ+ICZhLGNvbnN0IHBhaXI8aW50LGludD4gJmIpCiAgICB7aWYoYS5maXJzdCA9PSBiLmZpcnN0KXtyZXR1cm4gYS5zZWNvbmQgPCBiLnNlY29uZDt9IHJldHVybiBhLmZpcnN0ID4gYi5maXJzdDt9CmludCBwb3dhcihpbnQgeCxpbnQgeSxpbnQgbSkKICAgIHtpZih5PT0wKXJldHVybiAxOyBpbnQgcD1wb3dhcih4LHkvMixtKSVtOyBwPShwKnApJW07cmV0dXJuICh5JTI9PTApP3A6KHgqcCklbTt9CmludCBtb2RJbnZlcnNlKGludCBhICwgaW50IG0pCiAgICB7cmV0dXJuIHBvd2FyKGEgLCBtIC0gMiAsIG0pO30KCgpjb25zdCBpbnQgTT0xZTkrNzsKTEwgbixtLGssZmxhZzsKY2hhciBjaDsKbWFwPExMICxMTD4gbXA7CgogICAgIC8vU09MVklORy4uCgoKdm9pZCBTT0xWRSgpewogICAgY2luPj5uPj5rOwogICAgdmVjdG9yPHBhaXI8TEwgLCBMTD4+IGFyKG4pOwogICAgZm9yKGludCBpPTA7aTxuO2krKykgewogICAgICAgIGNpbj4+YXJbaV0uRjsKICAgICAgICBhcltpXS5TPWk7CiAgICB9CiAgICBzb3J0KGFsbChhcikpOwogICAgaW50IHZhbD0xOwogICAgZm9yKGludCBpPTE7aTxuO2krKyl7CiAgICAgICAgaWYoYXJbaS0xXS5TKzEgIT0gYXJbaV0uUyl2YWwrKzsKICAgIH0KICAgIGlmKHZhbDw9ayljeQogICAgICAgIGVsc2UgY24KCn0KCiAgICAgICAgICAgICAgICAgICAgLy9NQUlOSU5HLi4Kc2lnbmVkIG1haW4oKXsKICAgIGZhc3QKICAgIGludCBUPTE7CiAgICBjaW4+PlQ7CiAgICB3aGlsZShULS0pCiAgICAgICAgU09MVkUoKTsKICAgIHJldHVybiAwOwp9