Code:
> k13=read.csv("https://pastebin.com/raw/RrxXYCp1",r=1)
> fst=as.matrix(as.dist(read.csv(text=",,,,,,,,,,,,
19,,,,,,,,,,,,
28,36,,,,,,,,,,,
26,32,36,,,,,,,,,,
26,35,28,21,,,,,,,,,
52,62,50,48,39,,,,,,,,
64,65,76,57,60,82,,,,,,,
114,114,122,110,111,127,76,,,,,,
111,111,123,109,112,130,83,56,,,,,
138,137,154,138,144,161,120,113,105,,,,
179,181,187,177,176,191,146,166,177,217,,,
122,127,124,116,108,121,113,145,151,185,203,,
146,150,150,140,135,141,133,164,170,204,220,41,",h=F)))
> fst=fst/mean(fst)
> mult=as.matrix(k13)%*%cmdscale(fst,ncol(fst)-1)
> s=sort(as.matrix(dist(mult))[,"Lemminkainen(Finn)"])
> cat(head(paste(sprintf("%.3f",s),names(s)),50),sep="\n")
0.000 Lemminkainen(Finn)
1.338 Southwest_Finnish
1.729 Not_a_Cop_Grandmother1(Russian)
1.755 Russian_average
1.781 Mary(Russian)
2.001 Estonian
2.080 Silentkiller(Russian)
2.203 North-Swedish
2.224 Leto(Russian-Belorussian)
2.359 Pipa(Russian)
2.430 Not_a_Cop(Russian)
2.491 Russian_Kostroma
2.529 Vyacheslav(Russian)
2.544 Finnish
2.723 Blondbeast(Russian)
2.943 Mazik_grandpa(Swede)
2.996 Stanislav(Russian-Pole)
2.999 Krivich(Russian)
3.227 valera27(Russian)
3.266 Russian_Kargopol
3.317 Vari(Estonian)
3.320 LecomtsevAlexander(Russian)
3.372 Humanophage(Russian)
3.388 Mordovian
3.395 Mazik(Swede)
3.460 Not_a_Cop_Grandfather2(Russian)
3.679 Leto_Mom(Russian)
3.705 I.vet(Russian)
3.786 Levono(Swede)
3.934 Leto_Dad(Belorussian)
3.958 Yamnaya(Russian_ź_Bashkir)
4.050 Lemgrant(Ukrainian)
4.072 Drogin(Norwegian-Finn)
4.186 Sippola(Finn)
4.226 Aila(Finn)
4.276 Norka(Russian-Tatar)
4.296 Russian_Southwest
4.320 Russian_Northern_Dvina
4.424 East_Finnish
4.424 Michal(Pole)
4.753 Lemgrant_mother(Ukrainian)
4.757 Schwop(Swede)
4.768 Jusarius(Finn)
4.812 Halge(Swede)
4.827 Julkka(Finn)
4.827 Daos777(Ukrainian-Moldovan-Pole)
4.896 Beo242(Russian-German)
4.899 Not_a_Cop_Grandmother2(Russian-Pole)
4.928 rurov0(Russian)
4.940 Sweden_Svealand_East
Does the Southwest_Finnish average consist of actual Southwestern Finns, or does it just include some of the most western-shifted Finnish samples? It seems way too western.
Bookmarks