Post Eurogenes K13 - Fresh thread -

Could you do also mine? I have posted here https://www.theapricity.com/forum/sh...3-Fresh-thread the second post.

Quote:

---

Originally Posted by xripkan

Could you do also mine? I have posted here https://www.theapricity.com/forum/sh...3-Fresh-thread the second post.

---

with updated datasheet:

Code:

---

Euro_K13updated(c(17.67,15.8,20.79,13.11,26.77,3.69,0.45,0.3,0.72,0,0.71,0,0),k=60)
      [,1]                        [,2]   
 [1,] "Greek_Thessaly"            "2.7599"
 [2,] "Central_Greek"              "6.6767"
 [3,] "East_Sicilian"              "8.2074"
 [4,] "Italian_Abruzzo"            "8.8336"
 [5,] "West_Sicilian"              "9.7954"
 [6,] "Ashkenazi"                  "10.9603"
 [7,] "South_Italian"              "11.6282"
 [8,] "Bulgarian"                  "11.9398"
 [9,] "Tuscan"                    "12.5215"
[10,] "Romanian"                  "14.722"
[11,] "Algerian_Jewish"            "17.878"
[12,] "North_Italian"              "18.1015"
[13,] "Italian_Jewish"            "18.1664"
[14,] "Sephardic_Jewish"          "18.2381"
[15,] "Serbian"                    "19.6432"
[16,] "Turk_North_West"            "20.7261"
[17,] "Turk_South_West"            "21.3939"
[18,] "Tunisian_Jewish"            "22.2007"
[19,] "Turk_Central_West"          "22.2076"
[20,] "Libyan_Jewish"              "22.5831"
[21,] "Greek_Central_Anatolia"    "24.0105"
[22,] "Cyprian"                    "24.3108"
[23,] "Turk_South"                "24.4275"
[24,] "Turk_Central_East"          "24.9564"
[25,] "Turkish"                    "25.8505"
[26,] "Moldavian"                  "26.062"
[27,] "Turk_Central_Black_Sea"    "27.2278"
[28,] "Lebanese_Muslim"            "27.4922"
[29,] "Portuguese"                "27.5439"
[30,] "Spanish_Extremadura"        "27.7316"
[31,] "Romani"                    "27.9454"
[32,] "Tunisian"                  "28.0689"
[33,] "Syrian"                    "28.2934"
[34,] "Algerian"                  "28.6436"
[35,] "Spanish_Galicia"            "28.7552"
[36,] "Spanish_Andalucia"          "28.9127"
[37,] "Spanish_Murcia"            "29.1146"
[38,] "Hungarian"                  "29.1278"
[39,] "Turk_East"                  "29.4789"
[40,] "Turk_South_East"            "29.5366"
[41,] "Spanish_Valencia"          "29.5475"
[42,] "Croatian"                  "29.5963"
[43,] "Mozabite_Berber"            "29.7163"
[44,] "Spanish_Cataluna"          "29.8921"
[45,] "Spanish_Castilla_Y_Leon"    "30.1649"
[46,] "Moroccan"                  "30.4822"
[47,] "Turk_Azerbaijani"          "30.7519"
[48,] "Jordanian"                  "30.8998"
[49,] "French"                    "31.0558"
[50,] "Spanish_Castilla_La_Mancha" "31.0964"
[51,] "Azeri"                      "31.531"
[52,] "Samaritan"                  "31.6399"
[53,] "Austrian"                  "31.655"
[54,] "Palestinian"                "31.7978"
[55,] "Lebanese_Druze"            "32.482"
[56,] "Bedouin"                    "32.7636"
[57,] "Spanish_Cantabria"          "32.8563"
[58,] "Azerbaijani_Iran"          "32.9562"
[59,] "Lebanese_Christian"        "33.0344"
[60,] "Armenian_Eastern_Anatolia"  "33.2274"

---

Code:

---

Euro_K13updated(c(17.67,15.8,20.79,13.11,26.77,3.69,0.45,0.3,0.72,0,0.71,0,0),k=60,mixedmode=T)
      [,1]                                                [,2]   
 [1,] "8.7% Greek_Central_Anatolia + 91.3% Greek_Thessaly" "1.5608"
 [2,] "8.4% Cyprian + 91.6% Greek_Thessaly"                "1.6255"
 [3,] "6.1% Greek_Pontus + 93.9% Greek_Thessaly"          "1.6664"
 [4,] "6% Armenian_Eastern_Anatolia + 94% Greek_Thessaly"  "1.7606"
 [5,] "94% Greek_Thessaly + 6% Lebanese_Christian"        "1.785"
 [6,] "5.9% Assyrian + 94.1% Greek_Thessaly"              "1.7884"
 [7,] "5.5% Turk_East_Black_Sea + 94.5% Greek_Thessaly"    "1.7998"
 [8,] "5.6% Georgian_Jewish + 94.4% Greek_Thessaly"        "1.8349"
 [9,] "94.4% Greek_Thessaly + 5.6% Kurdish_Jewish"        "1.8432"
[10,] "24.2% Central_Greek + 75.8% Greek_Thessaly"        "1.8462"
[11,] "94.1% Greek_Thessaly + 5.9% Lebanese_Druze"        "1.8736"
[12,] "93.1% Greek_Thessaly + 6.9% Lebanese_Muslim"        "1.876"
[13,] "5.4% Armenian + 94.6% Greek_Thessaly"              "1.8794"
[14,] "4.8% Laz + 95.2% Greek_Thessaly"                    "1.8866"
[15,] "94% Greek_Thessaly + 6% Samaritan"                  "1.8886"
[16,] "94.6% Greek_Thessaly + 5.4% Iranian_Jewish"        "1.9258"
[17,] "87.4% Central_Greek + 12.6% Estonian_Polish"        "1.9449"
[18,] "35.1% Bulgarian + 64.9% Central_Greek"              "1.9548"
[19,] "6.2% Turk_East + 93.8% Greek_Thessaly"              "1.9724"
[20,] "7.1% Turk_Central_East + 92.9% Greek_Thessaly"      "1.9983"
[21,] "85.7% Central_Greek + 14.3% Ukrainian"              "2.0089"
[22,] "4.6% Turk_Ahiska + 95.4% Greek_Thessaly"            "2.015"
[23,] "88.7% Central_Greek + 11.3% Lithuanian"            "2.0249"
[24,] "6.5% Turk_Central_Black_Sea + 93.5% Greek_Thessaly" "2.026"
[25,] "6% Turk_South_East + 94% Greek_Thessaly"            "2.0296"
[26,] "86.6% Central_Greek + 13.4% Southwest_Russian"      "2.043"
[27,] "12.4% Belorussian + 87.6% Central_Greek"            "2.0488"
[28,] "93.9% Greek_Thessaly + 6.1% Syrian"                "2.0515"
[29,] "93.4% Greek_Thessaly + 6.6% Turkish"                "2.062"
[30,] "7.4% Turk_Central_West + 92.6% Greek_Thessaly"      "2.1196"
[31,] "94.6% Greek_Thessaly + 5.4% Jordanian"              "2.1277"
[32,] "18% East_Sicilian + 82% Greek_Thessaly"            "2.143"
[33,] "87.3% Central_Greek + 12.7% Russian_Smolensk"      "2.1546"
[34,] "6.6% Turk_South + 93.4% Greek_Thessaly"            "2.1553"
[35,] "87.7% Central_Greek + 12.3% Kargopol_Russian"      "2.1634"
[36,] "94.9% Greek_Thessaly + 5.1% Palestinian"            "2.1654"
[37,] "7.4% Turk_South_West + 92.6% Greek_Thessaly"        "2.1676"
[38,] "87% Greek_Thessaly + 13% South_Italian"            "2.1705"
[39,] "78.2% South_Italian + 21.8% Southwest_Russian"      "2.1944"
[40,] "40.3% Bulgarian + 59.7% East_Sicilian"              "2.2014"
[41,] "7.4% Turk_North_West + 92.6% Greek_Thessaly"        "2.2129"
[42,] "49.3% Bulgarian + 50.7% South_Italian"              "2.2159"
[43,] "4.8% Azerbaijani_Iran + 95.2% Greek_Thessaly"      "2.218"
[44,] "5.1% Turk_Azerbaijani + 94.9% Greek_Thessaly"      "2.2226"
[45,] "3.4% Abhkasian + 96.6% Greek_Thessaly"              "2.2236"
[46,] "4.6% Kurd_Kurmanji_Turkey + 95.4% Greek_Thessaly"  "2.2271"
[47,] "88.7% Central_Greek + 11.3% Estonian"              "2.2309"
[48,] "93.2% Greek_Thessaly + 6.8% Tunisian_Jewish"        "2.238"
[49,] "95.8% Greek_Thessaly + 4.2% Kurdish"                "2.239"
[50,] "8.3% Algerian_Jewish + 91.7% Greek_Thessaly"        "2.2498"
[51,] "4.8% Azeri + 95.2% Greek_Thessaly"                  "2.2502"
[52,] "85.4% Central_Greek + 14.6% Ukrainian_Lviv"        "2.2566"
[53,] "12.9% Ashkenazi + 87.1% Greek_Thessaly"            "2.2571"
[54,] "87.9% Central_Greek + 12.1% Erzya"                  "2.2637"
[55,] "82.5% Central_Greek + 17.5% Croatian"              "2.2765"
[56,] "86.8% Central_Greek + 13.2% Ukrainian_Belgorod"    "2.2768"
[57,] "3.4% Georgian + 96.6% Greek_Thessaly"              "2.2785"
[58,] "92.1% Greek_Thessaly + 7.9% Sephardic_Jewish"      "2.2863"
[59,] "86.9% Central_Greek + 13.1% Polish"                "2.2894"
[60,] "92.1% Greek_Thessaly + 7.9% Italian_Jewish"        "2.2929"

---

you can Download the RData file here: https://drive.google.com/open?id=1ih...XoAM27qkLeLelJ

Quote:

---

Originally Posted by celticdragongod

It may be the best calculator for many Europeans but not all. For me, puntDNAL K13 Global works much better,

Spoiler!

Admix Results (sorted):

# Population Percent
1 North_Atlantic 50.06
2 Baltic 25.58
3 West_Med 12.24
4 West_Asian 6.16
5 East_Med 3.27
6 South_Asian 1.18
7 Siberian 0.87
8 Oceanian 0.31
9 Amerindian 0.23
10 Red_Sea 0.05
11 Northeast_African 0.03
12 Sub-Saharan 0.01

Single Population Sharing:

# Population (source) Distance
1 North_Dutch 1.87
2 Orcadian 2.13
3 Danish 2.18
4 Irish 3.17
5 Southeast_English 3.52
6 West_Scottish 3.8
7 North_German 3.83
8 Norwegian 3.99
9 Southwest_English 4.69
10 Swedish 6.14
11 South_Dutch 7.46
12 West_German 8.43
13 North_Swedish 12.24
14 Austrian 12.83
15 East_German 13
16 French 13.45
17 Hungarian 17.39
18 Southwest_Finnish 20.22
19 Spanish_Cataluna 20.73
20 Southwest_French 21.77

Mixed Mode Population Sharing:

# Primary Population (source) Secondary Population (source) Distance
1 66.1% Orcadian + 33.9% North_German @ 0.95
2 94% Danish + 6% French_Basque @ 1.25
3 50.9% Orcadian + 49.1% Danish @ 1.28
4 72% Danish + 28% Southwest_English @ 1.3
5 94.5% Orcadian + 5.5% Ukrainian_Belgorod @ 1.31
6 93.1% Orcadian + 6.9% South_Polish @ 1.33
7 86.3% West_Scottish + 13.7% South_Polish @ 1.35
8 94.5% North_Dutch + 5.5% Southwest_French @ 1.37
9 94.6% Orcadian + 5.4% Southwest_Russian @ 1.37
10 91.4% Orcadian + 8.6% Hungarian @ 1.37
11 88.7% Orcadian + 11.3% Austrian @ 1.38
12 56.3% North_Dutch + 43.7% Orcadian @ 1.38
13 95.7% North_Dutch + 4.3% French_Basque @ 1.39
14 93.4% Orcadian + 6.6% Croatian @ 1.4
15 78.5% West_Scottish + 21.5% East_German @ 1.4
16 88.9% Orcadian + 11.1% East_German @ 1.4
17 83.1% West_Scottish + 16.9% Hungarian @ 1.4
18 95.4% North_Dutch + 4.6% Spanish_Andalucia @ 1.4
19 72.5% North_Dutch + 27.5% Southeast_English @ 1.41
20 97.6% North_Dutch + 2.4% Sardinian @ 1.41

Least-squares method.

Using 1 population approximation:
1 North_Dutch @ 1.983446
2 Orcadian @ 2.343702
3 Danish @ 2.367940
4 Irish @ 3.527809
5 Southeast_English @ 3.956445
6 West_Scottish @ 4.313029
7 North_German @ 4.314313
8 Norwegian @ 4.451674
9 Southwest_English @ 5.244908
10 Swedish @ 6.892406
11 South_Dutch @ 8.504539
12 West_German @ 9.677938
13 North_Swedish @ 13.766022
14 Austrian @ 14.753152
15 East_German @ 14.907146
16 French @ 15.268310
17 Hungarian @ 20.034651
18 Southwest_Finnish @ 22.820957
19 Spanish_Cataluna @ 23.451824
20 Southwest_French @ 24.417194

Using 2 populations approximation:
1 50% Danish +50% Orcadian @ 1.316510


Using 3 populations approximation:
1 50% Norwegian +25% South_Dutch +25% West_Scottish @ 1.125897


Using 4 populations approximation:
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++
1 Danish + North_German + Orcadian + Southwest_English @ 0.990895
2 Danish + North_German + Orcadian + Orcadian @ 1.010570
3 North_Dutch + North_German + Orcadian + Orcadian @ 1.011869
4 North_German + Orcadian + Orcadian + Orcadian @ 1.048185
5 North_Dutch + North_German + Orcadian + Southeast_English @ 1.080707
6 Danish + Irish + Norwegian + South_Dutch @ 1.092084
7 North_Dutch + North_German + Orcadian + Southwest_English @ 1.094477
8 North_German + Norwegian + Southeast_English + Southwest_English @ 1.099659
9 North_German + Norwegian + Orcadian + Southwest_English @ 1.114356
10 Norwegian + Norwegian + South_Dutch + West_Scottish @ 1.125897
11 Danish + Norwegian + South_Dutch + West_Scottish @ 1.127568
12 North_German + North_German + Orcadian + Southwest_English @ 1.135290
13 North_German + Norwegian + Orcadian + Southeast_English @ 1.138591
14 Danish + North_Dutch + North_German + Southwest_English @ 1.152499
15 Irish + North_Dutch + North_German + Southeast_English @ 1.158436
16 Danish + Irish + North_German + Southeast_English @ 1.169139
17 Irish + North_German + Norwegian + Southeast_English @ 1.177042
18 Danish + North_German + Orcadian + Southeast_English @ 1.186367
19 Danish + Irish + North_German + Orcadian @ 1.193884
20 North_Dutch + Norwegian + South_Dutch + West_Scottish @ 1.214151

---

So let's improve it slightly

Download (RData file for R software): https://drive.google.com/open?id=1av...JKaUvlQZEvVlD4

Datasheet: https://drive.google.com/open?id=1mQ...nlKvneVtP8SML2

Code:

---

calc_k13(c(50.06,25.58,12.24,6.16,3.27,0.05,1.18,0,0.87,0.23,0.31,0.03,0.01),k=60)
      [,1]                          [,2]   
 [1,] "British_Irish"              "3.3103"
 [2,] "Dutch"                      "3.8705"
 [3,] "Danish_Swedish_Norwegian"    "4.2389"
 [4,] "North_German"                "4.3164"
 [5,] "West_German"                "9.6893"
 [6,] "North_Swedish"              "13.7648"
 [7,] "Austrian"                    "14.7564"
 [8,] "East_German"                "14.9107"
 [9,] "French"                      "15.2762"
[10,] "Hungarian"                  "20.0352"
[11,] "Southwest_Finnish"          "22.8205"
[12,] "Southwest_French"            "24.4204"
[13,] "South_Polish"                "25.6433"
[14,] "Portuguese_Spanish_Extr_Gal" "25.8625"
[15,] "Spanish"                    "26.0907"
[16,] "Croatian"                    "26.1221"
[17,] "Serbian"                    "26.7084"
[18,] "Polish"                      "28.0767"
[19,] "Moldavian"                  "28.2139"
[20,] "La_Brana-1"                  "28.896"
[21,] "Finnish"                    "29.3043"
[22,] "Ukrainian"                  "29.8646"
[23,] "Estonian"                    "31.2714"
[24,] "French_Basque"              "31.2997"
[25,] "Russian_Smolensk"            "31.9225"
[26,] "Belorussian"                "32.055"
[27,] "Romanian_Bulgarian"          "32.2943"
[28,] "Estonian_Polish"            "32.605"
[29,] "Southwest_Russian"          "32.8438"
[30,] "East_Finnish"                "33.1612"
[31,] "North_Italian_Tuscan"        "34.152"
[32,] "Kargopol_Russian"            "34.8516"
[33,] "Lithuanian"                  "35.8603"
[34,] "Tatar"                      "36.8399"
[35,] "Albanian"                    "37.6516"
[36,] "Erzya"                      "39.2418"
[37,] "Italian_Abruzzo"            "42.6173"
[38,] "Central_Greek_Thessaly"      "43.7112"
[39,] "Chuvash"                    "45.2036"
[40,] "Sicilian"                    "46.04" 
[41,] "Romani"                      "48.4169"
[42,] "Mari"                        "49.3054"
[43,] "Ashkenazi"                  "50.1966"
[44,] "South_Italian"              "50.2985"
[45,] "Nogay"                      "53.0911"
[46,] "Turk_North_West"            "53.3805"
[47,] "Moroccan_Jew"                "53.5944"
[48,] "Turk_South_West"            "54.9172"
[49,] "Italian_Jewish_Sephardic"    "55.5195"
[50,] "Turkmen_Uzbekistan"          "55.7315"
[51,] "Afghan_Turkmen"              "55.7561"
[52,] "Tadjik"                      "55.7774"
[53,] "Turk_Central_West"          "55.879"
[54,] "Algerian_Jewish"            "56.8367"
[55,] "Tabassaran"                  "57.1355"
[56,] "Sardinian"                  "57.3451"
[57,] "Turk_South"                  "57.8288"
[58,] "Uzbeki"                      "58.513"
[59,] "Uygur"                      "58.7507"
[60,] "Moroccan_Algerian_Mozabite"  "58.7662"

---

Code:

---

calc_k13(c(50.06,25.58,12.24,6.16,3.27,0.05,1.18,0,0.87,0.23,0.31,0.03,0.01),k=60,mixedmode=T)
      [,1]                                                               
 [1,] "42.7% North_German + 57.3% British_Irish"                         
 [2,] "8.4% Southwest_Russian + 91.6% British_Irish"                     
 [3,] "7.1% Erzya + 92.9% British_Irish"                                 
 [4,] "10.3% South_Polish + 89.7% British_Irish"                         
 [5,] "7.8% Kargopol_Russian + 92.2% British_Irish"                     
 [6,] "8.4% Russian_Smolensk + 91.6% British_Irish"                     
 [7,] "8.4% Belorussian + 91.6% British_Irish"                           
 [8,] "91.1% British_Irish + 8.9% Ukrainian"                             
 [9,] "8.2% Estonian_Polish + 91.8% British_Irish"                       
[10,] "9.3% Polish + 90.7% British_Irish"                               
[11,] "7.4% Lithuanian + 92.6% British_Irish"                           
[12,] "8.9% Finnish + 91.1% British_Irish"                               
[13,] "7.9% East_Finnish + 92.1% British_Irish"                         
[14,] "8.3% Estonian + 91.7% British_Irish"                             
[15,] "11% Southwest_Finnish + 89% British_Irish"                       
[16,] "57.9% British_Irish + 42.1% Danish_Swedish_Norwegian"             
[17,] "16.9% North_Swedish + 83.1% British_Irish"                       
[18,] "5.7% Chuvash + 94.3% British_Irish"                               
[19,] "10.8% French_Basque + 89.2% Danish_Swedish_Norwegian"             
[20,] "15.2% East_German + 84.8% British_Irish"                         
[21,] "6.7% Tatar + 93.3% British_Irish"                                 
[22,] "9.2% Croatian + 90.8% British_Irish"                             
[23,] "11.7% Hungarian + 88.3% British_Irish"                           
[24,] "5% Mari + 95% British_Irish"                                     
[25,] "46.9% Danish_Swedish_Norwegian + 53.1% Dutch"                     
[26,] "12.4% Spanish + 87.6% Danish_Swedish_Norwegian"                   
[27,] "14.8% Austrian + 85.2% British_Irish"                             
[28,] "8.2% Moldavian + 91.8% British_Irish"                             
[29,] "7.9% La_Brana-1 + 92.1% British_Irish"                           
[30,] "12.9% Southwest_French + 87.1% Danish_Swedish_Norwegian"         
[31,] "18.8% French + 81.2% Danish_Swedish_Norwegian"                   
[32,] "57.4% British_Irish + 42.6% Dutch"                               
[33,] "11.8% Portuguese_Spanish_Extr_Gal + 88.2% Danish_Swedish_Norwegian"
[34,] "7.4% Serbian + 92.6% British_Irish"                               
[35,] "5.4% Sardinian + 94.6% Danish_Swedish_Norwegian"                 
[36,] "3% MA-1 + 97% British_Irish"                                     
[37,] "94.5% British_Irish + 5.5% Romanian_Bulgarian"                   
[38,] "3% Lezgin + 97% British_Irish"                                   
[39,] "3.1% Tabassaran + 96.9% British_Irish"                           
[40,] "3% Chechen + 97% British_Irish"                                   
[41,] "3.2% Nogay + 96.8% British_Irish"                                 
[42,] "2.8% Kabardin + 97.2% British_Irish"                             
[43,] "2.8% Kumyk + 97.2% British_Irish"                                 
[44,] "3% Afghan_Turkmen + 97% British_Irish"                           
[45,] "2.6% North_Ossetian + 97.4% British_Irish"                       
[46,] "2.2% Selkup + 97.8% British_Irish"                               
[47,] "2.6% Adygei + 97.4% British_Irish"                               
[48,] "9.4% French_Basque + 90.6% North_German"                         
[49,] "2.8% Uzbeki + 97.2% British_Irish"                               
[50,] "2.6% Balkar + 97.4% British_Irish"                               
[51,] "2.9% Tadjik + 97.1% British_Irish"                               
[52,] "2.5% Azerbaijani_Dagestan + 97.5% British_Irish"                 
[53,] "2.8% Turkmen_Uzbekistan + 97.2% British_Irish"                   
[54,] "2.1% Ket + 97.9% British_Irish"                                   
[55,] "2.6% Turkmen_Turkmenistan + 97.4% British_Irish"                 
[56,] "2.5% Afghan_Pashtun + 97.5% British_Irish"                       
[57,] "2.6% Afghan_Tadjik + 97.4% British_Irish"                         
[58,] "25% West_German + 75% Danish_Swedish_Norwegian"                   
[59,] "2.4% Shors + 97.6% British_Irish"                                 
[60,] "2.2% Hakas + 97.8% British_Irish"                                 
      [,2]   
 [1,] "1.1761"
 [2,] "1.4189"
 [3,] "1.4305"
 [4,] "1.51" 
 [5,] "1.5374"
 [6,] "1.5475"
 [7,] "1.5496"
 [8,] "1.5518"
 [9,] "1.6093"
[10,] "1.6386"
[11,] "1.6485"
[12,] "1.6595"
[13,] "1.6831"
[14,] "1.6989"
[15,] "1.7408"
[16,] "1.7542"
[17,] "1.8113"
[18,] "1.8413"
[19,] "1.9408"
[20,] "1.9721"
[21,] "1.9796"
[22,] "1.9961"
[23,] "1.9975"
[24,] "2.0438"
[25,] "2.0981"
[26,] "2.1121"
[27,] "2.1351"
[28,] "2.1355"
[29,] "2.1975"
[30,] "2.2514"
[31,] "2.3855"
[32,] "2.4507"
[33,] "2.4546"
[34,] "2.55" 
[35,] "2.6939"
[36,] "2.7036"
[37,] "2.7338"
[38,] "2.7357"
[39,] "2.7542"
[40,] "2.7705"
[41,] "2.8012"
[42,] "2.8131"
[43,] "2.8233"
[44,] "2.8261"
[45,] "2.8397"
[46,] "2.8399"
[47,] "2.8411"
[48,] "2.8626"
[49,] "2.8661"
[50,] "2.8713"
[51,] "2.8781"
[52,] "2.8798"
[53,] "2.8876"
[54,] "2.8947"
[55,] "2.8963"
[56,] "2.898"
[57,] "2.9029"
[58,] "2.9037"
[59,] "2.9044"
[60,] "2.922"

---

FilhoV

Code:

---

calc_k13(c(37.18,9.47,26.89,3.35,14.93,3.3,0,0,0,0,0.24,2.45,2.2),k=60)
      [,1]                          [,2]   
 [1,] "Portuguese_Spanish_Extr_Gal" "3.5227"
 [2,] "Spanish"                    "5.211" 
 [3,] "Southwest_French"            "10.5931"
 [4,] "North_Italian_Tuscan"        "12.1962"
 [5,] "French"                      "13.5473"
 [6,] "West_German"                "20.4659"
 [7,] "Albanian"                    "21.2039"
 [8,] "French_Basque"              "22.338"
 [9,] "Italian_Abruzzo"            "23.9582"
[10,] "Serbian"                    "24.3058"
[11,] "Romanian_Bulgarian"          "24.5847"
[12,] "Dutch"                      "25.0035"
[13,] "Austrian"                    "25.3346"
[14,] "Sicilian"                    "25.6917"
[15,] "Central_Greek_Thessaly"      "26.2649"
[16,] "East_German"                "27.6716"
[17,] "British_Irish"              "27.6985"
[18,] "Hungarian"                  "27.8244"
[19,] "North_German"                "28.9729"
[20,] "South_Italian"              "29.6754"
[21,] "Moldavian"                  "31.035"
[22,] "Sardinian"                  "31.1637"
[23,] "Moroccan_Jew"                "31.3495"
[24,] "Ashkenazi"                  "31.62" 
[25,] "Danish_Swedish_Norwegian"    "31.7706"
[26,] "Croatian"                    "32.041"
[27,] "Italian_Jewish_Sephardic"    "34.3086"
[28,] "Algerian_Jewish"            "34.8515"
[29,] "Moroccan_Algerian_Mozabite"  "35.8399"
[30,] "North_Swedish"              "37.0074"
[31,] "Tunisian"                    "37.0501"
[32,] "South_Polish"                "38.1972"
[33,] "Tunisian_Jewish"            "38.9923"
[34,] "Libyan_Jewish"              "39.0285"
[35,] "Romani"                      "39.3438"
[36,] "Turk_North_West"            "41.1253"
[37,] "Ukrainian"                  "41.2559"
[38,] "Polish"                      "41.9193"
[39,] "Turk_South_West"            "42.1387"
[40,] "Southwest_Finnish"          "42.2492"
[41,] "Turk_Central_West"          "42.613"
[42,] "Tatar"                      "43.3488"
[43,] "Southwest_Russian"          "44.8187"
[44,] "Turk_South"                  "44.8801"
[45,] "Russian_Smolensk"            "45.5747"
[46,] "Cyprian"                    "45.7177"
[47,] "Greek_Central_Anatolia"      "45.8408"
[48,] "Estonian_Polish"            "45.9416"
[49,] "Belorussian"                "46.2897"
[50,] "Turk_Central_East"          "46.3758"
[51,] "Finnish"                    "47.3253"
[52,] "Turk_Central_Black_Sea"      "47.861"
[53,] "Kargopol_Russian"            "47.9041"
[54,] "La_Brana-1"                  "48.1032"
[55,] "Nogay"                      "48.5168"
[56,] "Estonian"                    "48.5395"
[57,] "Syrian"                      "48.7816"
[58,] "Egyptian"                    "49.5912"
[59,] "East_Finnish"                "49.6085"
[60,] "Turkmen_Uzbekistan"          "49.9844"

---

Code:

---

calc_k13(c(37.18,9.47,26.89,3.35,14.93,3.3,0,0,0,0,0.24,2.45,2.2),k=60,mixedmode=T)
      [,1]                                                                  [,2]   
 [1,] "11.7% Tunisian + 88.3% Spanish"                                      "1.7157"
 [2,] "9% Egyptian + 91% Spanish"                                          "1.822"
 [3,] "88.1% Spanish + 11.9% Moroccan_Algerian_Mozabite"                    "1.8922"
 [4,] "8.5% Bedouin + 91.5% Spanish"                                        "2.1712"
 [5,] "8.5% Jordanian + 91.5% Spanish"                                      "2.1767"
 [6,] "10.7% Libyan_Jewish + 89.3% Spanish"                                "2.3265"
 [7,] "8.3% Palestinian + 91.7% Spanish"                                    "2.3867"
 [8,] "11.7% Algerian_Jewish + 88.3% Spanish"                              "2.3977"
 [9,] "8.7% Syrian + 91.3% Spanish"                                        "2.4058"
[10,] "10.6% Tunisian_Jewish + 89.4% Spanish"                              "2.4368"
[11,] "84.8% Spanish + 15.2% Sicilian"                                      "2.4863"
[12,] "8.1% Samaritan + 91.9% Spanish"                                      "2.4908"
[13,] "7.2% Moroccan_Jew + 92.8% Portuguese_Spanish_Extr_Gal"              "2.5711"
[14,] "6.5% Algerian_Jewish + 93.5% Portuguese_Spanish_Extr_Gal"            "2.5776"
[15,] "9% Cyprian + 91% Spanish"                                            "2.6168"
[16,] "93.6% Portuguese_Spanish_Extr_Gal + 6.4% Italian_Jewish_Sephardic"  "2.635"
[17,] "5.7% Libyan_Jewish + 94.3% Portuguese_Spanish_Extr_Gal"              "2.6388"
[18,] "5.7% Tunisian_Jewish + 94.3% Portuguese_Spanish_Extr_Gal"            "2.6422"
[19,] "92% Spanish + 8% Lebanese"                                          "2.6444"
[20,] "13.2% South_Italian + 86.8% Spanish"                                "2.6621"
[21,] "7.2% South_Italian + 92.8% Portuguese_Spanish_Extr_Gal"              "2.6698"
[22,] "12.4% Ashkenazi + 87.6% Spanish"                                    "2.6712"
[23,] "88.4% Spanish + 11.6% Italian_Jewish_Sephardic"                      "2.6719"
[24,] "12.5% Moroccan_Jew + 87.5% Spanish"                                  "2.6863"
[25,] "5.8% Tunisian + 94.2% Portuguese_Spanish_Extr_Gal"                  "2.69" 
[26,] "4.7% Cyprian + 95.3% Portuguese_Spanish_Extr_Gal"                    "2.7068"
[27,] "94.2% Portuguese_Spanish_Extr_Gal + 5.8% Moroccan_Algerian_Mozabite" "2.7439"
[28,] "92.2% Portuguese_Spanish_Extr_Gal + 7.8% Sicilian"                  "2.7727"
[29,] "4% Samaritan + 96% Portuguese_Spanish_Extr_Gal"                      "2.7874"
[30,] "4.5% Greek_Central_Anatolia + 95.5% Portuguese_Spanish_Extr_Gal"    "2.7942"
[31,] "96.1% Portuguese_Spanish_Extr_Gal + 3.9% Lebanese"                  "2.8139"
[32,] "6.5% Yemenite_Jewish + 93.5% Spanish"                                "2.8189"
[33,] "7.2% Kurdish_Jewish + 92.8% Spanish"                                "2.8358"
[34,] "4% Egyptian + 96% Portuguese_Spanish_Extr_Gal"                      "2.8523"
[35,] "6.2% Sardinian + 93.8% Portuguese_Spanish_Extr_Gal"                  "2.8527"
[36,] "6.7% Saudi + 93.3% Spanish"                                          "2.854"
[37,] "85.2% Portuguese_Spanish_Extr_Gal + 14.8% North_Italian_Tuscan"      "2.8548"
[38,] "3.9% Jordanian + 96.1% Portuguese_Spanish_Extr_Gal"                  "2.8603"
[39,] "3.6% Greek_Pontus + 96.4% Portuguese_Spanish_Extr_Gal"              "2.8623"
[40,] "85.7% Spanish + 14.3% Central_Greek_Thessaly"                        "2.8654"
[41,] "7.1% Iranian_Jewish + 92.9% Spanish"                                "2.8695"
[42,] "15.4% Italian_Abruzzo + 84.6% Spanish"                              "2.88" 
[43,] "7.8% Italian_Abruzzo + 92.2% Portuguese_Spanish_Extr_Gal"            "2.8845"
[44,] "3.8% Palestinian + 96.2% Portuguese_Spanish_Extr_Gal"                "2.894"
[45,] "3.5% Armenian_Eastern_Anatolia + 96.5% Portuguese_Spanish_Extr_Gal"  "2.902"
[46,] "3.9% Syrian + 96.1% Portuguese_Spanish_Extr_Gal"                    "2.9036"
[47,] "8.6% Greek_Central_Anatolia + 91.4% Spanish"                        "2.9075"
[48,] "3.4% Turk_East_Black_Sea + 96.6% Portuguese_Spanish_Extr_Gal"        "2.9183"
[49,] "73.3% Spanish + 26.7% North_Italian_Tuscan"                          "2.9205"
[50,] "3.3% Kurdish_Jewish + 96.7% Portuguese_Spanish_Extr_Gal"            "2.9275"
[51,] "3.4% Assyrian + 96.6% Portuguese_Spanish_Extr_Gal"                  "2.9304"
[52,] "5.8% Ashkenazi + 94.2% Portuguese_Spanish_Extr_Gal"                  "2.9317"
[53,] "7.2% Assyrian + 92.8% Spanish"                                      "2.9377"
[54,] "3.4% Armenian + 96.6% Portuguese_Spanish_Extr_Gal"                  "2.9403"
[55,] "3.1% Laz + 96.9% Portuguese_Spanish_Extr_Gal"                        "2.959"
[56,] "3.3% Iranian_Jewish + 96.7% Portuguese_Spanish_Extr_Gal"            "2.9606"
[57,] "3.2% Georgian_Jewish + 96.8% Portuguese_Spanish_Extr_Gal"            "2.9998"
[58,] "3.4% Bedouin + 96.6% Portuguese_Spanish_Extr_Gal"                    "3.0188"
[59,] "7% Georgian_Jewish + 93% Spanish"                                    "3.0262"
[60,] "7.2% Armenian_Eastern_Anatolia + 92.8% Spanish"                      "3.0335"

---

Quote:

---

Originally Posted by Matxe92

Can you do one for me please?
North_Atlantic 44.91 Pct
Baltic 32.04 Pct
West_Med 9.95 Pct
West_Asian 6.63 Pct
East_Med 0.86 Pct
Red_Sea 1.32 Pct
South_Asian 1.13 Pct
East_Asian 1.49 Pct
Siberian 0.19 Pct
Amerindian 0.36 Pct
Oceanian -
Northeast_African 1.11 Pct
Sub-Saharan -

---

Code:

---

calc_k13(c(44.91,32.04,9.95,6.63,0.86,1.32,1.13,1.49,0.19,0.36,0,1.11,0),k=60,mixedmode=T)
      [,1]                                                     
 [1,] "22.8% Polish + 77.2% Danish_Swedish_Norwegian"         
 [2,] "19.8% Russian_Smolensk + 80.2% Danish_Swedish_Norwegian"
 [3,] "20.9% Ukrainian + 79.1% Danish_Swedish_Norwegian"       
 [4,] "15.7% Erzya + 84.3% Danish_Swedish_Norwegian"           
 [5,] "17.7% Kargopol_Russian + 82.3% Danish_Swedish_Norwegian"
 [6,] "18.7% Southwest_Russian + 81.3% Danish_Swedish_Norwegian"
 [7,] "18.9% Estonian_Polish + 81.1% Danish_Swedish_Norwegian" 
 [8,] "24% South_Polish + 76% Danish_Swedish_Norwegian"       
 [9,] "17.2% Lithuanian + 82.8% Danish_Swedish_Norwegian"     
[10,] "19.1% Belorussian + 80.9% Danish_Swedish_Norwegian"     
[11,] "19.5% Estonian + 80.5% North_German"                   
[12,] "29.6% Lithuanian + 70.4% British_Irish"                 
[13,] "16.6% Lithuanian + 83.4% North_German"                 
[14,] "20.5% Finnish + 79.5% North_German"                     
[15,] "52.7% North_German + 47.3% North_Swedish"               
[16,] "73.2% North_German + 26.8% Southwest_Finnish"           
[17,] "19.2% Estonian + 80.8% Danish_Swedish_Norwegian"       
[18,] "17.5% East_Finnish + 82.5% North_German"               
[19,] "32.6% Russian_Smolensk + 67.4% British_Irish"           
[20,] "33.2% Estonian + 66.8% British_Irish"                   
[21,] "17.4% East_Finnish + 82.6% Danish_Swedish_Norwegian"   
[22,] "20% Finnish + 80% Danish_Swedish_Norwegian"             
[23,] "19.7% La_Brana-1 + 80.3% North_German"                 
[24,] "20.3% Croatian + 79.7% Danish_Swedish_Norwegian"       
[25,] "32.2% Belorussian + 67.8% British_Irish"               
[26,] "82.2% North_German + 17.8% Russian_Smolensk"           
[27,] "79.5% North_German + 20.5% Polish"                     
[28,] "36.3% Polish + 63.7% British_Irish"                     
[29,] "35% Finnish + 65% British_Irish"                       
[30,] "15.9% Kargopol_Russian + 84.1% North_German"           
[31,] "11.7% Chuvash + 88.3% Danish_Swedish_Norwegian"         
[32,] "25.8% Southwest_Finnish + 74.2% Danish_Swedish_Norwegian"
[33,] "17.1% Estonian_Polish + 82.9% North_German"             
[34,] "17.5% Belorussian + 82.5% North_German"                 
[35,] "61.8% North_Swedish + 38.2% Dutch"                     
[36,] "31.6% Estonian_Polish + 68.4% British_Irish"           
[37,] "26.5% Erzya + 73.5% British_Irish"                     
[38,] "29.6% Kargopol_Russian + 70.4% British_Irish"           
[39,] "13.6% Erzya + 86.4% North_German"                       
[40,] "17.5% Moldavian + 82.5% Danish_Swedish_Norwegian"       
[41,] "13.6% Tatar + 86.4% Danish_Swedish_Norwegian"           
[42,] "30.9% East_Finnish + 69.1% British_Irish"               
[43,] "46.9% North_Swedish + 53.1% Danish_Swedish_Norwegian"   
[44,] "33.2% East_German + 66.8% Danish_Swedish_Norwegian"     
[45,] "31% Southwest_Russian + 69% British_Irish"             
[46,] "43.3% Southwest_Finnish + 56.7% British_Irish"         
[47,] "67.3% North_Swedish + 32.7% British_Irish"             
[48,] "70.4% North_Swedish + 29.6% West_German"               
[49,] "84.3% North_German + 15.7% Southwest_Russian"           
[50,] "82.7% North_German + 17.3% Ukrainian"                   
[51,] "9.6% Mari + 90.4% Danish_Swedish_Norwegian"             
[52,] "18% La_Brana-1 + 82% Danish_Swedish_Norwegian"         
[53,] "79.9% North_German + 20.1% South_Polish"               
[54,] "28.3% Estonian + 71.7% Dutch"                           
[55,] "66.5% British_Irish + 33.5% Ukrainian"                 
[56,] "22.6% Hungarian + 77.4% Danish_Swedish_Norwegian"       
[57,] "30% Finnish + 70% Dutch"                               
[58,] "38.1% Southwest_Finnish + 61.9% Dutch"                 
[59,] "20.4% French + 79.6% North_Swedish"                     
[60,] "38.1% South_Polish + 61.9% British_Irish"               
      [,2]   
 [1,] "2.831"
 [2,] "2.8587"
 [3,] "2.862"
 [4,] "2.9478"
 [5,] "3.0204"
 [6,] "3.0964"
 [7,] "3.1321"
 [8,] "3.1421"
 [9,] "3.2155"
[10,] "3.2976"
[11,] "3.3674"
[12,] "3.3926"
[13,] "3.5103"
[14,] "3.5328"
[15,] "3.5426"
[16,] "3.5556"
[17,] "3.6134"
[18,] "3.6998"
[19,] "3.7199"
[20,] "3.7854"
[21,] "3.8153"
[22,] "3.8643"
[23,] "3.8842"
[24,] "3.951"
[25,] "3.9642"
[26,] "4.0087"
[27,] "4.0101"
[28,] "4.017"
[29,] "4.0242"
[30,] "4.0417"
[31,] "4.0597"
[32,] "4.0687"
[33,] "4.0798"
[34,] "4.0802"
[35,] "4.0917"
[36,] "4.1047"
[37,] "4.1213"
[38,] "4.1408"
[39,] "4.253"
[40,] "4.2676"
[41,] "4.2753"
[42,] "4.3302"
[43,] "4.3637"
[44,] "4.3746"
[45,] "4.4071"
[46,] "4.4377"
[47,] "4.4814"
[48,] "4.526"
[49,] "4.5324"
[50,] "4.5644"
[51,] "4.6001"
[52,] "4.6032"
[53,] "4.6617"
[54,] "4.6754"
[55,] "4.6987"
[56,] "4.7187"
[57,] "4.7238"
[58,] "4.7438"
[59,] "4.8705"
[60,] "4.9176"

---

Code:

---

calc_k13(c(44.91,32.04,9.95,6.63,0.86,1.32,1.13,1.49,0.19,0.36,0,1.11,0),k=60)
      [,1]                          [,2]   
 [1,] "North_German"                "6.4629"
 [2,] "Danish_Swedish_Norwegian"    "6.5048"
 [3,] "North_Swedish"              "6.9883"
 [4,] "Dutch"                      "10.0527"
 [5,] "East_German"                "10.6395"
 [6,] "British_Irish"              "11.9277"
 [7,] "Austrian"                    "11.9775"
 [8,] "West_German"                "13.4432"
 [9,] "Southwest_Finnish"          "15.1621"
[10,] "Hungarian"                  "16.0286"
[11,] "South_Polish"                "18.3492"
[12,] "Polish"                      "20.0802"
[13,] "French"                      "20.1545"
[14,] "Croatian"                    "20.7062"
[15,] "Finnish"                    "21.2773"
[16,] "La_Brana-1"                  "21.425"
[17,] "Ukrainian"                  "22.2861"
[18,] "Estonian"                    "23.068"
[19,] "Moldavian"                  "23.5159"
[20,] "Russian_Smolensk"            "23.7714"
[21,] "Belorussian"                "24.0224"
[22,] "Serbian"                    "24.582"
[23,] "Estonian_Polish"            "24.6038"
[24,] "Southwest_Russian"          "25.1102"
[25,] "East_Finnish"                "25.2295"
[26,] "Kargopol_Russian"            "26.8843"
[27,] "Lithuanian"                  "27.4683"
[28,] "Southwest_French"            "29.4539"
[29,] "Portuguese_Spanish_Extr_Gal" "30.3479"
[30,] "Romanian_Bulgarian"          "30.9042"
[31,] "Erzya"                      "31.2806"
[32,] "Tatar"                      "31.3158"
[33,] "Spanish"                    "31.394"
[34,] "North_Italian_Tuscan"        "36.9297"
[35,] "French_Basque"              "38.0964"
[36,] "Albanian"                    "38.526"
[37,] "Chuvash"                    "38.6776"
[38,] "Mari"                        "43.4541"
[39,] "Central_Greek_Thessaly"      "44.2734"
[40,] "Italian_Abruzzo"            "44.3213"
[41,] "Sicilian"                    "47.4504"
[42,] "Romani"                      "47.5592"
[43,] "Ashkenazi"                  "51.0099"
[44,] "Nogay"                      "51.1443"
[45,] "South_Italian"              "51.8476"
[46,] "Turk_North_West"            "52.7992"
[47,] "Afghan_Turkmen"              "53.7094"
[48,] "Turkmen_Uzbekistan"          "54.0717"
[49,] "Tadjik"                      "54.0823"
[50,] "Turk_South_West"            "54.5201"
[51,] "Tabassaran"                  "55.2684"
[52,] "Moroccan_Jew"                "55.8075"
[53,] "Turk_Central_West"          "55.8357"
[54,] "Uzbeki"                      "56.1715"
[55,] "Uygur"                      "56.539"
[56,] "Chechen"                    "57.1598"
[57,] "Aghan_Hazara"                "57.2349"
[58,] "Italian_Jewish_Sephardic"    "57.3249"
[59,] "Turk_South"                  "57.5047"
[60,] "MA-1"                        "57.6259"

---

Quote:

---

Originally Posted by Mr.G

These are my results for K13 when I combine my AncestryDNA and 23andMe v5 in one superkit. Can anyone do a 2-way mixed mode oracle with these (using the new data sheet)? Thank you!

1 North_Atlantic 38.81
2 Baltic 25.85
3 West_Med 13.92
4 East_Med 8.56
5 West_Asian 6.69
6 Red_Sea 2.17
7 South_Asian 1.74
8 Siberian 1.08
9 Amerindian 0.66
10 Oceanian 0.53

---

Code:

---

calc_k13(c(38.81,25.85,13.92,6.69,8.56,2.17,1.74,0,1.08,0.66,0.53,0,0),k=60,mixedmode=T)
      [,1]                                                         
 [1,] "38.5% Hungarian + 61.5% West_German"                         
 [2,] "26.3% Croatian + 73.7% West_German"                         
 [3,] "40% Serbian + 60% Dutch"                                     
 [4,] "50.8% Serbian + 49.2% British_Irish"                         
 [5,] "24.6% Moldavian + 75.4% West_German"                         
 [6,] "56.6% Austrian + 43.4% West_German"                         
 [7,] "80.6% West_German + 19.4% Ukrainian"                         
 [8,] "14.2% Erzya + 85.8% West_German"                             
 [9,] "17.2% Southwest_Russian + 82.8% West_German"                 
[10,] "60.9% North_Swedish + 39.1% North_Italian_Tuscan"           
[11,] "73.2% Austrian + 26.8% French"                               
[12,] "15.5% Kargopol_Russian + 84.5% West_German"                 
[13,] "40.8% Romanian_Bulgarian + 59.2% Danish_Swedish_Norwegian"   
[14,] "22.1% South_Polish + 77.9% West_German"                     
[15,] "16.7% Russian_Smolensk + 83.3% West_German"                 
[16,] "35.7% Moldavian + 64.3% Dutch"                               
[17,] "16.3% Estonian_Polish + 83.7% West_German"                   
[18,] "58.4% North_German + 41.6% Serbian"                         
[19,] "66.6% North_German + 33.4% Romanian_Bulgarian"               
[20,] "44% East_German + 56% West_German"                           
[21,] "31.6% Romanian_Bulgarian + 68.4% Dutch"                     
[22,] "18.7% Polish + 81.3% West_German"                           
[23,] "16.1% Belorussian + 83.9% West_German"                       
[24,] "11.8% Chuvash + 88.2% West_German"                           
[25,] "49.4% Serbian + 50.6% Danish_Swedish_Norwegian"             
[26,] "70.5% French + 29.5% Southwest_Russian"                     
[27,] "63.2% French + 36.8% South_Polish"                           
[28,] "14.9% Tatar + 85.1% West_German"                             
[29,] "51.5% Hungarian + 48.5% Dutch"                               
[30,] "70.8% French + 29.2% Russian_Smolensk"                       
[31,] "62.7% East_German + 37.3% French"                           
[32,] "29.6% Central_Greek_Thessaly + 70.4% Danish_Swedish_Norwegian"
[33,] "24.7% Erzya + 75.3% French"                                 
[34,] "72.9% French + 27.1% Kargopol_Russian"                       
[35,] "13.5% Lithuanian + 86.5% West_German"                       
[36,] "28.7% Belorussian + 71.3% French"                           
[37,] "10.3% Mari + 89.7% West_German"                             
[38,] "67.6% French + 32.4% Ukrainian"                             
[39,] "44.4% French + 55.6% Hungarian"                             
[40,] "57.9% British_Irish + 42.1% Romanian_Bulgarian"             
[41,] "67.5% French + 32.5% Polish"                                 
[42,] "87% Austrian + 13% Spanish"                                 
[43,] "86.1% Austrian + 13.9% Portuguese_Spanish_Extr_Gal"         
[44,] "33.9% Albanian + 66.1% Danish_Swedish_Norwegian"             
[45,] "73.5% Austrian + 26.5% Dutch"                               
[46,] "14% East_Finnish + 86% West_German"                         
[47,] "28.5% Estonian_Polish + 71.5% French"                       
[48,] "74.8% French + 25.2% Lithuanian"                             
[49,] "25.4% Serbian + 74.6% West_German"                           
[50,] "28.5% Finnish + 71.5% French"                               
[51,] "46.5% Moldavian + 53.5% British_Irish"                       
[52,] "26.9% Albanian + 73.1% North_German"                         
[53,] "76.9% North_German + 23.1% Central_Greek_Thessaly"           
[54,] "26.4% East_Finnish + 73.6% French"                           
[55,] "14.1% Estonian + 85.9% West_German"                         
[56,] "63.1% Hungarian + 36.9% British_Irish"                       
[57,] "27.3% Estonian + 72.7% French"                               
[58,] "92% Austrian + 8% French_Basque"                             
[59,] "83.1% Austrian + 16.9% British_Irish"                       
[60,] "14.5% Finnish + 85.5% West_German"                           
      [,2]   
 [1,] "1.8094"
 [2,] "1.9098"
 [3,] "1.9421"
 [4,] "1.9485"
 [5,] "2.1513"
 [6,] "2.1988"
 [7,] "2.3157"
 [8,] "2.3312"
 [9,] "2.3946"
[10,] "2.5486"
[11,] "2.5522"
[12,] "2.5931"
[13,] "2.598"
[14,] "2.6132"
[15,] "2.7177"
[16,] "2.7287"
[17,] "2.7305"
[18,] "2.7809"
[19,] "2.814"
[20,] "2.8584"
[21,] "2.8851"
[22,] "2.9051"
[23,] "2.9211"
[24,] "2.9353"
[25,] "2.9891"
[26,] "2.9952"
[27,] "3.084"
[28,] "3.1058"
[29,] "3.1076"
[30,] "3.1311"
[31,] "3.1724"
[32,] "3.1918"
[33,] "3.2066"
[34,] "3.2311"
[35,] "3.2365"
[36,] "3.2497"
[37,] "3.2797"
[38,] "3.294"
[39,] "3.3635"
[40,] "3.3714"
[41,] "3.3838"
[42,] "3.4046"
[43,] "3.4103"
[44,] "3.4137"
[45,] "3.4175"
[46,] "3.4178"
[47,] "3.451"
[48,] "3.4697"
[49,] "3.4929"
[50,] "3.5725"
[51,] "3.5819"
[52,] "3.605"
[53,] "3.6193"
[54,] "3.6199"
[55,] "3.6336"
[56,] "3.6481"
[57,] "3.6588"
[58,] "3.6869"
[59,] "3.7119"
[60,] "3.7805"

---

Code:

---

calc_k13(c(38.81,25.85,13.92,6.69,8.56,2.17,1.74,0,1.08,0.66,0.53,0,0),k=60)
      [,1]                          [,2]   
 [1,] "Austrian"                    "4.709" 
 [2,] "West_German"                "5.8535"
 [3,] "East_German"                "7.0944"
 [4,] "Hungarian"                  "9.0897"
 [5,] "Dutch"                      "9.5993"
 [6,] "North_German"                "10.3347"
 [7,] "French"                      "11.1089"
 [8,] "Danish_Swedish_Norwegian"    "13.918"
 [9,] "Serbian"                    "14.2515"
[10,] "British_Irish"              "14.7093"
[11,] "Croatian"                    "15.6361"
[12,] "North_Swedish"              "16.0563"
[13,] "Moldavian"                  "16.7826"
[14,] "South_Polish"                "18.6093"
[15,] "Romanian_Bulgarian"          "20.0133"
[16,] "Portuguese_Spanish_Extr_Gal" "20.3351"
[17,] "Southwest_Finnish"          "21.2773"
[18,] "Southwest_French"            "21.6977"
[19,] "Spanish"                    "22.1294"
[20,] "Polish"                      "22.2616"
[21,] "Ukrainian"                  "22.3976"
[22,] "North_Italian_Tuscan"        "24.828"
[23,] "Southwest_Russian"          "25.7794"
[24,] "Russian_Smolensk"            "25.9917"
[25,] "Albanian"                    "26.5166"
[26,] "Belorussian"                "26.5722"
[27,] "Finnish"                    "26.5758"
[28,] "Estonian_Polish"            "26.6621"
[29,] "La_Brana-1"                  "27.9952"
[30,] "Estonian"                    "28.1173"
[31,] "Tatar"                      "28.4625"
[32,] "Kargopol_Russian"            "28.8041"
[33,] "East_Finnish"                "29.4934"
[34,] "Lithuanian"                  "31.4865"
[35,] "Central_Greek_Thessaly"      "32.3773"
[36,] "Italian_Abruzzo"            "32.4035"
[37,] "Erzya"                      "32.5086"
[38,] "French_Basque"              "33.7618"
[39,] "Sicilian"                    "35.3718"
[40,] "Chuvash"                    "37.9847"
[41,] "Romani"                      "38.7061"
[42,] "Ashkenazi"                  "39.0802"
[43,] "South_Italian"              "39.8193"
[44,] "Mari"                        "42.4418"
[45,] "Turk_North_West"            "42.8483"
[46,] "Moroccan_Jew"                "43.7443"
[47,] "Turk_South_West"            "44.3863"
[48,] "Nogay"                      "44.5033"
[49,] "Italian_Jewish_Sephardic"    "45.2945"
[50,] "Turk_Central_West"          "45.623"
[51,] "Algerian_Jewish"            "46.1895"
[52,] "Turkmen_Uzbekistan"          "46.9396"
[53,] "Turk_South"                  "47.4808"
[54,] "Afghan_Turkmen"              "47.5094"
[55,] "Tadjik"                      "48.3509"
[56,] "Moroccan_Algerian_Mozabite"  "48.8422"
[57,] "Turk_Central_East"          "49.3259"
[58,] "Tunisian"                    "49.3988"
[59,] "Tunisian_Jewish"            "49.5685"
[60,] "Libyan_Jewish"              "49.7561"

---

Quote:

---

Originally Posted by xripkan

Could you do also mine? I have posted here https://www.theapricity.com/forum/sh...3-Fresh-thread the second post.

---

Code:

---

calc_k13(c(17.67,15.8,20.79,13.11,26.77,3.69,0.45,0.3,0.72,0,0.71,0,0),k=60,mixedmode=T)
      [,1]                                                          [,2]   
 [1,] "5% Erzya + 95% Central_Greek_Thessaly"                        "1.5012"
 [2,] "5.5% Southwest_Russian + 94.5% Central_Greek_Thessaly"        "1.5843"
 [3,] "5% Kargopol_Russian + 95% Central_Greek_Thessaly"            "1.6249"
 [4,] "5% Estonian_Polish + 95% Central_Greek_Thessaly"              "1.643"
 [5,] "4.5% Lithuanian + 95.5% Central_Greek_Thessaly"              "1.644"
 [6,] "4.9% Belorussian + 95.1% Central_Greek_Thessaly"              "1.6699"
 [7,] "5.6% Ukrainian + 94.4% Central_Greek_Thessaly"                "1.6852"
 [8,] "5% Russian_Smolensk + 95% Central_Greek_Thessaly"            "1.6908"
 [9,] "4.4% East_Finnish + 95.6% Central_Greek_Thessaly"            "1.7427"
[10,] "7.9% Moldavian + 92.1% Central_Greek_Thessaly"                "1.7724"
[11,] "4.3% Estonian + 95.7% Central_Greek_Thessaly"                "1.7758"
[12,] "4.6% Chuvash + 95.4% Central_Greek_Thessaly"                  "1.7987"
[13,] "5% Polish + 95% Central_Greek_Thessaly"                      "1.8043"
[14,] "14.4% Romanian_Bulgarian + 85.6% Central_Greek_Thessaly"      "1.8073"
[15,] "5.5% South_Polish + 94.5% Central_Greek_Thessaly"            "1.8137"
[16,] "6.9% Croatian + 93.1% Central_Greek_Thessaly"                "1.8237"
[17,] "4.2% Finnish + 95.8% Central_Greek_Thessaly"                  "1.8568"
[18,] "4.1% Mari + 95.9% Central_Greek_Thessaly"                    "1.9116"
[19,] "5.3% Tatar + 94.7% Central_Greek_Thessaly"                    "1.976"
[20,] "9.4% Serbian + 90.6% Central_Greek_Thessaly"                  "2.0093"
[21,] "4.1% Southwest_Finnish + 95.9% Central_Greek_Thessaly"        "2.0483"
[22,] "3.7% La_Brana-1 + 96.3% Central_Greek_Thessaly"              "2.0715"
[23,] "6.1% Hungarian + 93.9% Central_Greek_Thessaly"                "2.1495"
[24,] "78.2% South_Italian + 21.8% Southwest_Russian"                "2.1944"
[25,] "4.7% East_German + 95.3% Central_Greek_Thessaly"              "2.3173"
[26,] "18.6% Lithuanian + 81.4% South_Italian"                      "2.3514"
[27,] "3.4% North_Swedish + 96.6% Central_Greek_Thessaly"            "2.3601"
[28,] "4.8% Austrian + 95.2% Central_Greek_Thessaly"                "2.3793"
[29,] "20.5% Estonian_Polish + 79.5% South_Italian"                  "2.3848"
[30,] "19.9% Erzya + 80.1% South_Italian"                            "2.4004"
[31,] "77.2% South_Italian + 22.8% Ukrainian"                        "2.4622"
[32,] "20.7% Russian_Smolensk + 79.3% South_Italian"                "2.4931"
[33,] "1.8% Selkup + 98.2% Central_Greek_Thessaly"                  "2.5576"
[34,] "18.2% Albanian + 81.8% Central_Greek_Thessaly"                "2.5857"
[35,] "20.2% Belorussian + 79.8% South_Italian"                      "2.587"
[36,] "1.7% Ket + 98.3% Central_Greek_Thessaly"                      "2.6051"
[37,] "97.5% Central_Greek_Thessaly + 2.5% Danish_Swedish_Norwegian" "2.6223"
[38,] "2.7% North_German + 97.3% Central_Greek_Thessaly"            "2.6326"
[39,] "2% MA-1 + 98% Central_Greek_Thessaly"                        "2.6353"
[40,] "20.1% Kargopol_Russian + 79.9% South_Italian"                "2.6399"
[41,] "1.8% Shors + 98.2% Central_Greek_Thessaly"                    "2.6676"
[42,] "1.7% Hakas + 98.3% Central_Greek_Thessaly"                    "2.673"
[43,] "97.6% Central_Greek_Thessaly + 2.4% Dutch"                    "2.6914"
[44,] "2.8% West_German + 97.2% Central_Greek_Thessaly"              "2.6926"
[45,] "1.8% British_Irish + 98.2% Central_Greek_Thessaly"            "2.7362"
[46,] "1.5% Kazakh + 98.5% Central_Greek_Thessaly"                  "2.7438"
[47,] "1.2% Altaian + 98.8% Central_Greek_Thessaly"                  "2.7575"
[48,] "0.9% Dolgan + 99.1% Central_Greek_Thessaly"                  "2.7596"
[49,] "30.4% Moldavian + 69.6% South_Italian"                        "2.7608"
[50,] "1% Tuvinian + 99% Central_Greek_Thessaly"                    "2.7689"
[51,] "53.5% South_Italian + 46.5% Romanian_Bulgarian"              "2.7797"
[52,] "1.6% Afghan_Turkmen + 98.4% Central_Greek_Thessaly"          "2.78" 
[53,] "0.7% Evenki + 99.3% Central_Greek_Thessaly"                  "2.7822"
[54,] "0.7% Yakut + 99.3% Central_Greek_Thessaly"                    "2.7901"
[55,] "1.1% Kirgiz + 98.9% Central_Greek_Thessaly"                  "2.7913"
[56,] "0.7% Evens + 99.3% Central_Greek_Thessaly"                    "2.793"
[57,] "1.4% Uzbeki + 98.6% Central_Greek_Thessaly"                  "2.7957"
[58,] "1.8% French + 98.2% Central_Greek_Thessaly"                  "2.8007"
[59,] "0.8% Mongolian + 99.2% Central_Greek_Thessaly"                "2.8024"
[60,] "0.7% Buryat + 99.3% Central_Greek_Thessaly"                  "2.8024"

---

Code:

---

calc_k13(c(17.67,15.8,20.79,13.11,26.77,3.69,0.45,0.3,0.72,0,0.71,0,0),k=60)
      [,1]                          [,2]   
 [1,] "Central_Greek_Thessaly"      "2.8586"
 [2,] "Albanian"                    "6.0455"
 [3,] "Sicilian"                    "8.4876"
 [4,] "Italian_Abruzzo"            "8.8336"
 [5,] "Ashkenazi"                  "10.9603"
 [6,] "South_Italian"              "11.6282"
 [7,] "Romanian_Bulgarian"          "13.2818"
 [8,] "North_Italian_Tuscan"        "15.0801"
 [9,] "Algerian_Jewish"            "17.878"
[10,] "Italian_Jewish_Sephardic"    "18.0979"
[11,] "Moroccan_Jew"                "18.7687"
[12,] "Serbian"                    "19.6432"
[13,] "Turk_North_West"            "20.7261"
[14,] "Turk_South_West"            "21.3939"
[15,] "Tunisian_Jewish"            "22.2007"
[16,] "Turk_Central_West"          "22.2076"
[17,] "Libyan_Jewish"              "22.5831"
[18,] "Greek_Central_Anatolia"      "24.0105"
[19,] "Cyprian"                    "24.3108"
[20,] "Turk_South"                  "24.4275"
[21,] "Turk_Central_East"          "24.9564"
[22,] "Moldavian"                  "26.062"
[23,] "Turk_Central_Black_Sea"      "27.2278"
[24,] "Romani"                      "27.9454"
[25,] "Portuguese_Spanish_Extr_Gal" "27.958"
[26,] "Tunisian"                    "28.0689"
[27,] "Syrian"                      "28.2934"
[28,] "Hungarian"                  "29.1278"
[29,] "Turk_East"                  "29.4789"
[30,] "Moroccan_Algerian_Mozabite"  "29.5147"
[31,] "Turk_South_East"            "29.5366"
[32,] "Croatian"                    "29.5963"
[33,] "Spanish"                    "30.6385"
[34,] "Lebanese"                    "30.6832"
[35,] "Turk_Azerbaijani"            "30.7519"
[36,] "Jordanian"                  "30.8998"
[37,] "French"                      "31.0558"
[38,] "Azeri"                      "31.531"
[39,] "Samaritan"                  "31.6399"
[40,] "Austrian"                    "31.655"
[41,] "Palestinian"                "31.7978"
[42,] "Bedouin"                    "32.7636"
[43,] "Azerbaijani_Iran"            "32.9562"
[44,] "Armenian_Eastern_Anatolia"  "33.2274"
[45,] "West_German"                "33.3086"
[46,] "Assyrian"                    "33.4776"
[47,] "Kurd_Kurmanji_Turkey"        "33.8266"
[48,] "Egyptian"                    "33.8291"
[49,] "East_German"                "34.1503"
[50,] "Greek_Pontus"                "34.1712"
[51,] "Southwest_French"            "34.256"
[52,] "Nogay"                      "34.5688"
[53,] "Georgian_Jewish"            "34.6201"
[54,] "Iranian_Jewish"              "34.7826"
[55,] "Kumyk"                      "34.9809"
[56,] "Kurdish_Jewish"              "35.0032"
[57,] "Turkmen"                    "35.0859"
[58,] "Armenian"                    "35.283"
[59,] "Turk_East_Black_Sea"        "35.8461"
[60,] "Turkmen_Turkmenistan"        "35.8552"

---

Quote:

---

Originally Posted by Lemgrant

.......

---

Could 'ya try mine for an ol' spin broski? :P

Thanks in advance! ;3

https://media0.giphy.com/media/ToMjG...WY0/source.gif

:P

Quote:

---

Originally Posted by de Burgh II

Admix Results (sorted):

# Population Percent
1 North_Atlantic 50.14
2 Baltic 20.42
3 West_Med 15.82
4 West_Asian 6.38
5 East_Med 3.90
6 Amerindian 1.15
7 South_Asian 1.01


Finished reading population data. 204 populations found.
13 components mode.

--------------------------------

Least-squares method.

Using 1 population approximation:
1 Southwest_English @ 3.403675
2 Southeast_English @ 4.207650
3 Orcadian @ 5.721406
4 Irish @ 5.945767
5 West_Scottish @ 5.988106
6 South_Dutch @ 6.933370
7 North_Dutch @ 7.786008
8 Danish @ 8.339022
9 West_German @ 8.739663
10 North_German @ 9.420705
11 Norwegian @ 10.456498
12 French @ 11.279696
13 Swedish @ 13.010656
14 Austrian @ 16.706760
15 East_German @ 17.630476
16 Spanish_Cataluna @ 18.525318
17 Southwest_French @ 19.384119
18 North_Swedish @ 19.585207
19 Spanish_Castilla_Y_Leon @ 19.819214
20 Spanish_Cantabria @ 19.890196

Using 2 populations approximation:
1 50% South_Dutch +50% Southwest_English @ 3.166019


Using 3 populations approximation:
1 50% Irish +25% Irish +25% Spanish_Cataluna @ 1.430215


Using 4 populations approximation:
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++
1 Irish + Irish + Irish + Spanish_Cataluna @ 1.430215
2 Irish + Irish + Spanish_Cataluna + West_Scottish @ 1.452703
3 Irish + Irish + Irish + Spanish_Castilla_La_Mancha @ 1.528348
4 Irish + Spanish_Cataluna + West_Scottish + West_Scottish @ 1.552962
5 Irish + Irish + Spanish_Castilla_La_Mancha + West_Scottish @ 1.592589
6 Irish + Irish + Irish + Spanish_Aragon @ 1.744351
7 Irish + Spanish_Castilla_La_Mancha + West_Scottish + West_Scottish @ 1.746338
8 Irish + Irish + Irish + Spanish_Cantabria @ 1.746825
9 Spanish_Cataluna + West_Scottish + West_Scottish + West_Scottish @ 1.751552
10 Irish + Irish + Irish + Spanish_Valencia @ 1.769144
11 Irish + Irish + Irish + Spanish_Castilla_Y_Leon @ 1.792263
12 Irish + Irish + Spanish_Cantabria + West_Scottish @ 1.792519
13 Irish + Irish + Spanish_Castilla_Y_Leon + West_Scottish @ 1.826667
14 Irish + Irish + Irish + Spanish_Andalucia @ 1.833982
15 Irish + Irish + Irish + Spanish_Murcia @ 1.837025
16 Irish + Irish + Norwegian + Spanish_Aragon @ 1.847479
17 Irish + Irish + Spanish_Valencia + West_Scottish @ 1.851462
18 Irish + Irish + Spanish_Andalucia + West_Scottish @ 1.851785
19 Irish + Irish + Southwest_English + Spanish_Cataluna @ 1.877605
20 Irish + Irish + North_Dutch + Spanish_Aragon @ 1.881136

---

Quote:

---

Originally Posted by de Burgh II

Could 'ya try mine for an ol' spin broski? :P

Thanks in advance! ;3

https://media0.giphy.com/media/ToMjG...WY0/source.gif

:P

---

Code:

---

calc_k13(c(50.14,20.42,15.82,6.38,3.9,0,1.01,0,0,1.15,0.3,0,0),k=60,mixedmode=T)
      [,1]                                                   
 [1,] "83.5% British_Irish + 16.5% Spanish"                   
 [2,] "7.1% Sardinian + 92.9% British_Irish"                 
 [3,] "84.1% British_Irish + 15.9% Portuguese_Spanish_Extr_Gal"
 [4,] "17% Southwest_French + 83% British_Irish"             
 [5,] "25.5% French + 74.5% British_Irish"                   
 [6,] "89.1% British_Irish + 10.9% North_Italian_Tuscan"     
 [7,] "26.2% French_Basque + 73.8% North_German"             
 [8,] "12.3% French_Basque + 87.7% British_Irish"             
 [9,] "7% South_Italian + 93% British_Irish"                 
[10,] "8.1% Italian_Abruzzo + 91.9% British_Irish"           
[11,] "92.6% British_Irish + 7.4% Sicilian"                   
[12,] "6.3% Moroccan_Jew + 93.7% British_Irish"               
[13,] "15.6% French_Basque + 84.4% Dutch"                     
[14,] "5.9% Algerian_Jewish + 94.1% British_Irish"           
[15,] "94% British_Irish + 6% Italian_Jewish_Sephardic"       
[16,] "5.2% Greek_Central_Anatolia + 94.8% British_Irish"     
[17,] "5% Cyprian + 95% British_Irish"                       
[18,] "8.5% Albanian + 91.5% British_Irish"                   
[19,] "92.8% British_Irish + 7.2% Central_Greek_Thessaly"     
[20,] "5.4% Tunisian_Jewish + 94.6% British_Irish"           
[21,] "5.3% Libyan_Jewish + 94.7% British_Irish"             
[22,] "4.5% Greek_Pontus + 95.5% British_Irish"               
[23,] "4.4% Turk_East_Black_Sea + 95.6% British_Irish"       
[24,] "4.4% Armenian + 95.6% British_Irish"                   
[25,] "4.2% Laz + 95.8% British_Irish"                       
[26,] "4.4% Armenian_Eastern_Anatolia + 95.6% British_Irish" 
[27,] "4.2% Samaritan + 95.8% British_Irish"                 
[28,] "6% Ashkenazi + 94% British_Irish"                     
[29,] "4.2% Turk_Ahiska + 95.8% British_Irish"               
[30,] "94.8% British_Irish + 5.2% Moroccan_Algerian_Mozabite" 
[31,] "4.2% Assyrian + 95.8% British_Irish"                   
[32,] "95.7% British_Irish + 4.3% Lebanese"                   
[33,] "4.5% Syrian + 95.5% British_Irish"                     
[34,] "4.6% Turk_East + 95.4% British_Irish"                 
[35,] "5% Tunisian + 95% British_Irish"                       
[36,] "4% Kurdish_Jewish + 96% British_Irish"                 
[37,] "4.6% Turk_South_East + 95.4% British_Irish"           
[38,] "5.2% Turk_Central_West + 94.8% British_Irish"         
[39,] "4.8% Turk_Central_Black_Sea + 95.2% British_Irish"     
[40,] "4.1% Georgian_Jewish + 95.9% British_Irish"           
[41,] "4.8% Turk_Central_East + 95.2% British_Irish"         
[42,] "4.5% Turk_Azerbaijani + 95.5% British_Irish"           
[43,] "4% Iranian_Jewish + 96% British_Irish"                 
[44,] "5.2% Turk_South_West + 94.8% British_Irish"           
[45,] "4.9% Turk_South + 95.1% British_Irish"                 
[46,] "5.3% Turk_North_West + 94.7% British_Irish"           
[47,] "4.1% Jordanian + 95.9% British_Irish"                 
[48,] "4.3% Azerbaijani_Iran + 95.7% British_Irish"           
[49,] "4% Palestinian + 96% British_Irish"                   
[50,] "3.7% Abhkasian + 96.3% British_Irish"                 
[51,] "26.1% West_German + 73.9% British_Irish"               
[52,] "3.9% Georgian + 96.1% British_Irish"                   
[53,] "4.3% Azeri + 95.7% British_Irish"                     
[54,] "4% Kurdish + 96% British_Irish"                       
[55,] "4.1% Kurd_Kurmanji_Turkey + 95.9% British_Irish"       
[56,] "27.9% French_Basque + 72.1% Danish_Swedish_Norwegian" 
[57,] "3.8% Bedouin + 96.2% British_Irish"                   
[58,] "4.1% Ossetian + 95.9% British_Irish"                   
[59,] "3.8% Egyptian + 96.2% British_Irish"                   
[60,] "3.8% Iranian + 96.2% British_Irish"                   
      [,2]   
 [1,] "2.2114"
 [2,] "2.3566"
 [3,] "2.478"
 [4,] "2.502"
 [5,] "2.7183"
 [6,] "2.7886"
 [7,] "2.8652"
 [8,] "3.0465"
 [9,] "3.0658"
[10,] "3.1183"
[11,] "3.1764"
[12,] "3.2086"
[13,] "3.2367"
[14,] "3.247"
[15,] "3.2519"
[16,] "3.3167"
[17,] "3.3459"
[18,] "3.357"
[19,] "3.3816"
[20,] "3.3829"
[21,] "3.3866"
[22,] "3.4167"
[23,] "3.4286"
[24,] "3.4654"
[25,] "3.4688"
[26,] "3.4835"
[27,] "3.5474"
[28,] "3.5522"
[29,] "3.556"
[30,] "3.5704"
[31,] "3.5754"
[32,] "3.5814"
[33,] "3.586"
[34,] "3.5895"
[35,] "3.5984"
[36,] "3.6161"
[37,] "3.6186"
[38,] "3.6192"
[39,] "3.6238"
[40,] "3.6287"
[41,] "3.6408"
[42,] "3.6614"
[43,] "3.6683"
[44,] "3.6763"
[45,] "3.6777"
[46,] "3.6915"
[47,] "3.7174"
[48,] "3.7378"
[49,] "3.7406"
[50,] "3.7469"
[51,] "3.7491"
[52,] "3.7495"
[53,] "3.7597"
[54,] "3.7644"
[55,] "3.8022"
[56,] "3.8131"
[57,] "3.8438"
[58,] "3.8566"
[59,] "3.8626"
[60,] "3.8645"

---

Code:

---

calc_k13(c(50.14,20.42,15.82,6.38,3.9,0,1.01,0,0,1.15,0.3,0,0),k=60)
      [,1]                          [,2]   
 [1,] "British_Irish"              "4.6852"
 [2,] "Dutch"                      "5.6908"
 [3,] "West_German"                "8.8046"
 [4,] "North_German"                "9.4688"
 [5,] "Danish_Swedish_Norwegian"    "10.4773"
 [6,] "French"                      "11.4485"
 [7,] "Austrian"                    "16.7665"
 [8,] "East_German"                "17.6689"
 [9,] "Southwest_French"            "19.4398"
[10,] "North_Swedish"              "19.607"
[11,] "Spanish"                    "20.9873"
[12,] "Portuguese_Spanish_Extr_Gal" "21.2488"
[13,] "Hungarian"                  "22.2607"
[14,] "French_Basque"              "25.5354"
[15,] "Serbian"                    "27.0899"
[16,] "Southwest_Finnish"          "28.2165"
[17,] "Croatian"                    "28.4482"
[18,] "South_Polish"                "29.6115"
[19,] "Moldavian"                  "29.8985"
[20,] "North_Italian_Tuscan"        "30.7494"
[21,] "Romanian_Bulgarian"          "31.8461"
[22,] "Polish"                      "32.3906"
[23,] "Ukrainian"                  "33.7307"
[24,] "La_Brana-1"                  "34.149"
[25,] "Finnish"                    "34.6459"
[26,] "Albanian"                    "35.5554"
[27,] "Russian_Smolensk"            "36.3956"
[28,] "Estonian"                    "36.4267"
[29,] "Belorussian"                "36.7599"
[30,] "Southwest_Russian"          "37.054"
[31,] "Estonian_Polish"            "37.0849"
[32,] "East_Finnish"                "38.2835"
[33,] "Kargopol_Russian"            "39.2357"
[34,] "Tatar"                      "39.5286"
[35,] "Italian_Abruzzo"            "39.93" 
[36,] "Lithuanian"                  "40.7646"
[37,] "Central_Greek_Thessaly"      "41.6282"
[38,] "Sicilian"                    "43.3841"
[39,] "Erzya"                      "43.5227"
[40,] "Romani"                      "47.2723"
[41,] "South_Italian"              "47.5094"
[42,] "Ashkenazi"                  "48.1906"
[43,] "Chuvash"                    "48.732"
[44,] "Moroccan_Jew"                "50.6107"
[45,] "Turk_North_West"            "52.0324"
[46,] "Mari"                        "52.6491"
[47,] "Sardinian"                  "52.7413"
[48,] "Italian_Jewish_Sephardic"    "52.7664"
[49,] "Nogay"                      "52.7697"
[50,] "Turk_South_West"            "53.5003"
[51,] "Algerian_Jewish"            "54.1249"
[52,] "Turk_Central_West"          "54.2719"
[53,] "Turkmen_Uzbekistan"          "55.36" 
[54,] "Tadjik"                      "55.5067"
[55,] "Afghan_Turkmen"              "55.8427"
[56,] "Moroccan_Algerian_Mozabite"  "55.95" 
[57,] "Turk_South"                  "56.3519"
[58,] "Tunisian"                    "56.9952"
[59,] "Tabassaran"                  "57.0921"
[60,] "Tunisian_Jewish"            "57.3458"

---

Lemgrant, can you run mine whenever you have some time?
North_Atlantic 15.19
Baltic 9.68
West_Med 19.82
West_Asian 15.79
East_Med 29.74
Red_Sea 7.13
South_Asian -
East_Asian -
Siberian -
Amerindian 0.27
Oceanian 1.20
Northeast_African 1.18
Sub-Saharan -

Quote:

---

Originally Posted by Voskos

Lemgrant, can you run mine whenever you have some time?
North_Atlantic 15.19
Baltic 9.68
West_Med 19.82
West_Asian 15.79
East_Med 29.74
Red_Sea 7.13
South_Asian -
East_Asian -
Siberian -
Amerindian 0.27
Oceanian 1.20
Northeast_African 1.18
Sub-Saharan -

---

Code:

---

calc_k13(c(15.19,9.68,19.82,15.79,29.74,7.13,0,0,0,0.27,1.20,1.18,0),k=60)
      [,1]                          [,2]   
 [1,] "Sicilian"                    "5.9572"
 [2,] "South_Italian"              "6.0446"
 [3,] "Central_Greek_Thessaly"      "6.5577"
 [4,] "Ashkenazi"                  "7.8232"
 [5,] "Italian_Abruzzo"            "7.9589"
 [6,] "Italian_Jewish_Sephardic"    "11.6019"
 [7,] "Algerian_Jewish"            "11.9957"
 [8,] "Albanian"                    "12.7787"
 [9,] "Moroccan_Jew"                "13.4443"
[10,] "Tunisian_Jewish"            "14.9468"
[11,] "Libyan_Jewish"              "15.3775"
[12,] "Cyprian"                    "17.0319"
[13,] "Greek_Central_Anatolia"      "17.3715"
[14,] "Turk_Central_West"          "17.6865"
[15,] "Turk_South_West"            "18.0662"
[16,] "Turk_North_West"            "18.353"
[17,] "North_Italian_Tuscan"        "19.1178"
[18,] "Turk_South"                  "20.1498"
[19,] "Turk_Central_East"          "20.2046"
[20,] "Syrian"                      "20.5302"
[21,] "Romanian_Bulgarian"          "20.9805"
[22,] "Turk_Central_Black_Sea"      "22.6783"
[23,] "Lebanese"                    "23.3065"
[24,] "Jordanian"                  "23.3975"
[25,] "Samaritan"                  "24.1722"
[26,] "Tunisian"                    "24.2415"
[27,] "Turk_South_East"            "24.2804"
[28,] "Palestinian"                "24.3397"
[29,] "Turk_East"                  "24.3822"
[30,] "Bedouin"                    "25.6765"
[31,] "Turk_Azerbaijani"            "25.9473"
[32,] "Moroccan_Algerian_Mozabite"  "26.1007"
[33,] "Armenian_Eastern_Anatolia"  "26.6993"
[34,] "Azeri"                      "26.7647"
[35,] "Assyrian"                    "26.821"
[36,] "Serbian"                    "27.0828"
[37,] "Egyptian"                    "27.4966"
[38,] "Kurdish_Jewish"              "27.8773"
[39,] "Iranian_Jewish"              "27.9021"
[40,] "Azerbaijani_Iran"            "28.2677"
[41,] "Greek_Pontus"                "28.2751"
[42,] "Georgian_Jewish"            "28.3747"
[43,] "Romani"                      "29.0336"
[44,] "Armenian"                    "29.2149"
[45,] "Kurd_Kurmanji_Turkey"        "29.253"
[46,] "Turk_East_Black_Sea"        "30.412"
[47,] "Kurdish"                    "32.0576"
[48,] "Portuguese_Spanish_Extr_Gal" "32.2958"
[49,] "Iranian"                    "32.6287"
[50,] "Turkmen"                    "32.8127"
[51,] "Kumyk"                      "33.0771"
[52,] "Azerbaijani_Dagestan"        "33.2628"
[53,] "Moldavian"                  "33.5353"
[54,] "Turkmen_Turkmenistan"        "33.827"
[55,] "Laz"                        "34.4373"
[56,] "Turk_Ahiska"                "34.6104"
[57,] "Spanish"                    "34.9138"
[58,] "Nogay"                      "34.9211"
[59,] "Turkmen_Uzbekistan"          "35.94" 
[60,] "Hungarian"                  "36.3651"

---

Code:

---

calc_k13(c(15.19,9.68,19.82,15.79,29.74,7.13,0,0,0,0.27,1.20,1.18,0),k=60,mixedmode=T)
      [,1]                                                           
 [1,] "23.3% Syrian + 76.7% Central_Greek_Thessaly"                 
 [2,] "20.8% Jordanian + 79.2% Central_Greek_Thessaly"               
 [3,] "61.9% Albanian + 38.1% Syrian"                               
 [4,] "19.9% Palestinian + 80.1% Central_Greek_Thessaly"             
 [5,] "20% Samaritan + 80% Central_Greek_Thessaly"                   
 [6,] "79.5% Central_Greek_Thessaly + 20.5% Lebanese"               
 [7,] "25.9% Cyprian + 74.1% Central_Greek_Thessaly"                 
 [8,] "18.6% Bedouin + 81.4% Central_Greek_Thessaly"                 
 [9,] "17.3% Kurdish_Jewish + 82.7% Central_Greek_Thessaly"         
[10,] "15.3% Georgian_Jewish + 84.7% Sicilian"                       
[11,] "30.3% Austrian + 69.7% Cyprian"                               
[12,] "66% Albanian + 34% Samaritan"                                 
[13,] "71.1% Cyprian + 28.9% East_German"                           
[14,] "14.5% Kurd_Kurmanji_Turkey + 85.5% Sicilian"                 
[15,] "16.9% Iranian_Jewish + 83.1% Central_Greek_Thessaly"         
[16,] "27.8% Tunisian_Jewish + 72.2% Central_Greek_Thessaly"         
[17,] "27.1% Libyan_Jewish + 72.9% Central_Greek_Thessaly"           
[18,] "16.8% Turk_East + 83.2% Sicilian"                             
[19,] "15.4% Assyrian + 84.6% Sicilian"                             
[20,] "16.8% Turk_South_East + 83.2% Sicilian"                       
[21,] "70.1% Cyprian + 29.9% West_German"                           
[22,] "15.4% Armenian_Eastern_Anatolia + 84.6% Sicilian"             
[23,] "57.6% Albanian + 42.4% Cyprian"                               
[24,] "65.3% Albanian + 34.7% Jordanian"                             
[25,] "17.2% Assyrian + 82.8% Central_Greek_Thessaly"               
[26,] "12.8% Iranian + 87.2% Sicilian"                               
[27,] "19.4% Turk_Central_East + 80.6% Sicilian"                     
[28,] "13% Kurdish + 87% Sicilian"                                   
[29,] "14.5% Azerbaijani_Iran + 85.5% Sicilian"                     
[30,] "12.1% Turk_Ahiska + 87.9% Sicilian"                           
[31,] "14.5% Greek_Pontus + 85.5% Sicilian"                         
[32,] "24.4% Greek_Central_Anatolia + 75.6% Central_Greek_Thessaly" 
[33,] "15.1% Azeri + 84.9% Sicilian"                                 
[34,] "14.6% Kurdish_Jewish + 85.4% Sicilian"                       
[35,] "14% Armenian + 86% Sicilian"                                 
[36,] "15.5% Turk_Azerbaijani + 84.5% Sicilian"                     
[37,] "65.3% Albanian + 34.7% Lebanese"                             
[38,] "73% Cyprian + 27% Dutch"                                     
[39,] "17.4% Turk_Central_Black_Sea + 82.6% Sicilian"               
[40,] "12% Laz + 88% Sicilian"                                       
[41,] "13.4% Turk_East_Black_Sea + 86.6% Sicilian"                   
[42,] "14.4% Iranian_Jewish + 85.6% Sicilian"                       
[43,] "21.5% Greek_Central_Anatolia + 78.5% Sicilian"               
[44,] "16.9% Armenian_Eastern_Anatolia + 83.1% Central_Greek_Thessaly"
[45,] "21.1% Turk_Central_West + 78.9% Sicilian"                     
[46,] "18.8% Turk_South + 81.2% Sicilian"                           
[47,] "12.2% Azerbaijani_Dagestan + 87.8% Sicilian"                 
[48,] "10.2% Georgian + 89.8% Sicilian"                             
[49,] "9.6% Abhkasian + 90.4% Sicilian"                             
[50,] "12.3% Saudi + 87.7% Central_Greek_Thessaly"                   
[51,] "75.3% Cyprian + 24.7% Danish_Swedish_Norwegian"               
[52,] "15.8% Georgian_Jewish + 84.2% Central_Greek_Thessaly"         
[53,] "73.8% Cyprian + 26.2% North_German"                           
[54,] "68.6% Cyprian + 31.4% French"                                 
[55,] "16.2% Egyptian + 83.8% Central_Greek_Thessaly"               
[56,] "12.1% Kumyk + 87.9% Sicilian"                                 
[57,] "10.7% Adygei + 89.3% Sicilian"                               
[58,] "20.3% Turk_South_West + 79.7% Sicilian"                       
[59,] "18.1% Syrian + 81.9% Sicilian"                               
[60,] "74.9% Cyprian + 25.1% British_Irish"                         
      [,2]   
 [1,] "2.1633"
 [2,] "2.407"
 [3,] "2.4378"
 [4,] "2.6154"
 [5,] "2.6206"
 [6,] "2.7397"
 [7,] "2.9464"
 [8,] "2.9851"
 [9,] "3.043"
[10,] "3.0541"
[11,] "3.1056"
[12,] "3.2118"
[13,] "3.2473"
[14,] "3.3209"
[15,] "3.3331"
[16,] "3.3801"
[17,] "3.4371"
[18,] "3.4397"
[19,] "3.4591"
[20,] "3.4606"
[21,] "3.481"
[22,] "3.4883"
[23,] "3.5132"
[24,] "3.5294"
[25,] "3.5481"
[26,] "3.5538"
[27,] "3.5555"
[28,] "3.5774"
[29,] "3.5818"
[30,] "3.5963"
[31,] "3.5981"
[32,] "3.6101"
[33,] "3.6288"
[34,] "3.6311"
[35,] "3.6386"
[36,] "3.6483"
[37,] "3.6516"
[38,] "3.6532"
[39,] "3.6554"
[40,] "3.6859"
[41,] "3.7049"
[42,] "3.719"
[43,] "3.7238"
[44,] "3.7441"
[45,] "3.7722"
[46,] "3.7997"
[47,] "3.8034"
[48,] "3.8109"
[49,] "3.8129"
[50,] "3.8409"
[51,] "3.8581"
[52,] "3.882"
[53,] "3.8826"
[54,] "3.8842"
[55,] "3.898"
[56,] "3.9021"
[57,] "3.9215"
[58,] "3.9261"
[59,] "3.9689"
[60,] "4.0096"

---