Mixed mode oracle algorithm from Gedmatch applied to G25 Datasheet

[Cumansky]

because we have big dicks

Or Romans took you niggas?

[Dick]

Or Romans took you niggas?

as sex slaves

[Lucas]

for example Hungary_Medieval_Szolad:SZ37 sample is Greek as can be seen here-> https://i.imgur.com/YmaC9kW.png

I think would be good to add designation to "southern" Szolad and Collegno samples according to that PCA. Rest would be Longobard.

[celticdragongod]

ANCIENTS ONLY

G25ancient_unscaled(c(0.0118,0.0133,0.0168,0.015,0 .0122,0.0071,0.0017,0.0044,0.0036,0.0005,-0.0023,0.0042,-0.0097,-0.0068,0.0149,-0.0001,-0.011,0,0.0062,0.0053,-0.0003,0.0008,0.0067,0.0138,-0.0012),k=60)
[,1] [,2]
[1,] "Italy_Medieval_Collegno:CL146" "0.0125"
[2,] "England_IA:I0160" "0.0136"
[3,] "England_Anglo-Saxon:O3-I0774" "0.0157"
[4,] "England_Anglo-Saxon:NO3423" "0.0171"
[5,] "Hungary_Medieval_Szolad:SZ7" "0.0172"
[6,] "Hungary_Medieval_Szolad:SZ16" "0.0173"
[7,] "England_MBA:I7573" "0.0175"
[8,] "Sweden_IA:RISE174" "0.0181"
[9,] "Beaker_Czech:I4889" "0.0182"
[10,] "England_Anglo-Saxon:HS3-I0161" "0.0185"
[11,] "Sweden_Viking_Age_Sigtuna:vik_stg021" "0.0185"
[12,] "England_Anglo-Saxon:HS2-I0159" "0.0185"
[13,] "Ireland_BA:Rathlin1" "0.0187"
[14,] "Germany_Medieval:NW_255" "0.0187"
[15,] "England_MBA:I7575" "0.0187"
[16,] "Italy_Medieval_Collegno:CL83" "0.0188"
[17,] "Italy_Medieval_Collegno:CL84" "0.019"
[18,] "Beaker_Britain:I3256" "0.019"
[19,] "Hungary_Medieval_Szolad:SZ4" "0.0191"
[20,] "England_MBA:I7579" "0.0192"
[21,] "England_Anglo-Saxon:HS1-I0157" "0.0193"
[22,] "England_Roman:6DT21" "0.0198"
[23,] "Germany_Medieval_ACD:STR_220" "0.0198"
[24,] "Hungary_Medieval_Szolad:SZ38" "0.0198"
[25,] "Germany_Medieval:STR_316" "0.0199"
[26,] "England_Roman:6DT18" "0.02"
[27,] "England_CA_EBA:I6680" "0.0201"
[28,] "Sweden_Viking_Age_Sigtuna:vik_grt035" "0.0201"
[29,] "Germany_Medieval:ALH_3" "0.0201"
[30,] "Beaker_Bavaria:I5658" "0.0201"
[31,] "Hungary_Medieval_Szolad:SZ42" "0.0202"
[32,] "England_MBA:I7570" "0.0203"
[33,] "England_Roman:3DT16" "0.0206"
[34,] "England_Roman:6DT3" "0.0206"
[35,] "Beaker_Britain:I1767" "0.0206"
[36,] "Hungary_Medieval_Szolad:SZ9" "0.0208"
[37,] "Scotland_MBA:I2655" "0.021"
[38,] "Italy_Medieval_Collegno:CL151" "0.0212"
[39,] "Beaker_The_Netherlands:I4076" "0.0212"
[40,] "Hungary_Medieval_Szolad:SZ30" "0.0214"
[41,] "Beaker_Hungary:I4178" "0.0214"
[42,] "Scotland_LBA:I2861" "0.0214"
[43,] "Germany_Medieval:ALH_1" "0.0215"
[44,] "Scotland_LBA:I2860" "0.0216"
[45,] "England_Anglo-Saxon:O2-I0773" "0.0217"
[46,] "BenzigerodeHeimburg_LN:I0059" "0.0218"
[47,] "Beaker_Czech:I7269" "0.022"
[48,] "England_MBA:I7577" "0.022"
[49,] "England_MBA:I7627" "0.022"
[50,] "Wales_CA_EBA:I1775" "0.022"
[51,] "Beaker_Bavaria:I5529" "0.022"
[52,] "England_MBA:I7580" "0.0221"
[53,] "Beaker_Britain:I5382" "0.0222"
[54,] "Alberstedt_LN:I0118" "0.0223"
[55,] "Hungary_Medieval_Szolad:SZ23" "0.0225"
[56,] "Beaker_Czech:I7275" "0.0225"
[57,] "England_MBA:I7572" "0.0226"
[58,] "Beaker_Czech:I6480" "0.0226"
[59,] "Beaker_Mittelelbe-Saale:I1549" "0.0226"
[60,] "England_MBA:I2639" "0.0227"
> G25ancient_unscaled(c(0.0118,0.0133,0.0168,0.015,0 .0122,0.0071,0.0017,0.0044,0.0036,0.0005,-0.0023,0.0042,-0.0097,-0.0068,0.0149,-0.0001,-0.011,0,0.0062,0.0053,-0.0003,0.0008,0.0067,0.0138,-0.0012),k=60,mixedmode=T)
[,1]
[1,] "27.7% Beaker_France_South:I3874 + 72.3% Italy_Medieval_Collegno:CL146"
[2,] "19.8% Iberia_Northeast_c.8-12CE:I10892 + 80.2% Italy_Medieval_Collegno:CL146"
[3,] "13% Iberia_Southeast_c.5-8CE:I3575 + 87% Italy_Medieval_Collegno:CL146"
[4,] "51.3% England_Anglo-Saxon:HS3-I0161 + 48.7% England_MBA:I7579"
[5,] "79.6% Italy_Medieval_Collegno:CL146 + 20.4% Italy_Medieval_Collegno:CL23"
[6,] "34.2% Beaker_Czech:I7287 + 65.8% Germany_Medieval:NW_255"
[7,] "16% Iberia_Southeast_c.10-16CE:I12514 + 84% Italy_Medieval_Collegno:CL146"
[8,] "14.7% Iberia_Southeast_c.3-4CE:I3982 + 85.3% Italy_Medieval_Collegno:CL146"
[9,] "70.9% England_IA:I0160 + 29.1% Hungary_Medieval_Szolad:SZ24"
[10,] "60% Germany_Medieval:NW_255 + 40% Halberstadt_LBA:I0099"
[11,] "13.3% Iberia_Southeast_c.5-8CE:I3582 + 86.7% Italy_Medieval_Collegno:CL146"
[12,] "62.5% England_MBA:I7579 + 37.5% Hungary_Medieval_Szolad:SZ15"
[13,] "47.3% England_MBA:I7570 + 52.7% Germany_Medieval:NW_255"
[14,] "45.3% England_IA:I0160 + 54.7% Italy_Medieval_Collegno:CL146"
[15,] "23% Beaker_Hungary:I3529 + 77% Italy_Medieval_Collegno:CL146"
[16,] "15.9% Iberia_Southeast_c.10-16CE:I7425 + 84.1% Italy_Medieval_Collegno:CL146"
[17,] "44.3% Alberstedt_LN:I0118 + 55.7% Germany_Medieval:NW_255"
[18,] "16.6% Iberia_Southeast_c.10-16CE:I12515 + 83.4% Italy_Medieval_Collegno:CL146"
[19,] "85.4% Italy_Medieval_Collegno:CL146 + 14.6% Maros:RISE373"
[20,] "17.6% Iberia_Northeast_c.8-12CE:I10895 + 82.4% Italy_Medieval_Collegno:CL146"
[21,] "12.5% Iberia_Southeast_c.10-16CE:I7457 + 87.5% Italy_Medieval_Collegno:CL146"
[22,] "77.9% Italy_Medieval_Collegno:CL146 + 22.1% Italy_Medieval_Collegno:CL57"
[23,] "8.5% Balkans_ChL:I2509 + 91.5% Italy_Medieval_Collegno:CL146"
[24,] "10.8% Germany_Medieval_o:STR_300 + 89.2% Italy_Medieval_Collegno:CL146"
[25,] "63.1% England_IA:I0160 + 36.9% England_MBA:I7575"
[26,] "14.2% Iberia_Southeast_c.10-16CE:I7498 + 85.8% Italy_Medieval_Collegno:CL146"
[27,] "8.1% Balkans_ChL:I0781 + 91.9% Italy_Medieval_Collegno:CL146"
[28,] "16.2% Beaker_Bavaria:I5524 + 83.8% Italy_Medieval_Collegno:CL146"
[29,] "6.9% Balkans_N:I3498 + 93.1% Italy_Medieval_Collegno:CL146"
[30,] "14.1% Iberia_Southeast_c.10-16CE:I7424 + 85.9% Italy_Medieval_Collegno:CL146"
[31,] "86.9% Italy_Medieval_Collegno:CL146 + 13.1% Scythian_Moldova:scy197"
[32,] "8.2% Guanche_Canary_Islands:gun008 + 91.8% Italy_Medieval_Collegno:CL146"
[33,] "67.8% Italy_Medieval_Collegno:CL146 + 32.2% Sweden_Viking_Age_Sigtuna:vik_stg021"
[34,] "11.2% Hungary_Medieval_Szolad_o1:SZ19 + 88.8% Italy_Medieval_Collegno:CL146"
[35,] "13.5% Italy_Medieval_Collegno:CL121 + 86.5% Italy_Medieval_Collegno:CL146"
[36,] "31.7% England_MBA:I7575 + 68.3% Italy_Medieval_Collegno:CL146"
[37,] "92% Italy_Medieval_Collegno:CL146 + 8% Tisza_LN:I2358"
[38,] "92.4% Italy_Medieval_Collegno:CL146 + 7.6% LBK_N_Austria:I5204"
[39,] "8.2% Balkans_ChL:I4089 + 91.8% Italy_Medieval_Collegno:CL146"
[40,] "87.5% Italy_Medieval_Collegno:CL146 + 12.5% Scythian_HungaryA198"
[41,] "84.3% Italy_Medieval_Collegno:CL146 + 15.7% Italy_Medieval_Collegno:CL36"
[42,] "14.2% Iberia_Northeast_c.8-12CE:I10853 + 85.8% Italy_Medieval_Collegno:CL146"
[43,] "11.9% Iberia_Southeast_c.5-8CE:I3581 + 88.1% Italy_Medieval_Collegno:CL146"
[44,] "14.8% Balkans_BA:I3313 + 85.2% Italy_Medieval_Collegno:CL146"
[45,] "14.2% Iberia_Southeast_c.5-8CE:I3585 + 85.8% Italy_Medieval_Collegno:CL146"
[46,] "52.5% Germany_Medieval:NW_255 + 47.5% Sweden_Viking_Age_Sigtuna:vik_grt035"
[47,] "26.9% Beaker_Bavaria:I5529 + 73.1% Italy_Medieval_Collegno:CL146"
[48,] "13.5% Hungary_BA:I7041 + 86.5% Italy_Medieval_Collegno:CL146"
[49,] "57.3% Germany_Medieval:NW_255 + 42.7% Scotland_MBA:I2653"
[50,] "37.4% England_Anglo-Saxon:O3-I0774 + 62.6% Italy_Medieval_Collegno:CL146"
[51,] "77.1% Italy_Medieval_Collegno:CL146 + 22.9% Italy_Medieval_Collegno:CL63"
[52,] "9.6% Iberia_Northeast_Empuries2:I8208 + 90.4% Italy_Medieval_Collegno:CL146"
[53,] "8.3% Balkans_ChL:I2431 + 91.7% Italy_Medieval_Collegno:CL146"
[54,] "91.9% Italy_Medieval_Collegno:CL146 + 8.1% Tiszapolgar_ECA:I2354"
[55,] "93.5% Italy_Medieval_Collegno:CL146 + 6.5% TDLN:I4184"
[56,] "60.9% England_IA:I0160 + 39.1% Hungary_Medieval_Szolad:SZ16"
[57,] "15.4% Hungary_Medieval_Szolad:SZ37 + 84.6% Italy_Medieval_Collegno:CL146"
[58,] "44.5% England_MBA:I7627 + 55.5% Germany_Medieval:NW_255"
[59,] "31.3% Beaker_Czech:I4945 + 68.7% England_MBA:I7579"
[60,] "40% Beaker_Bavaria:E09569 + 60% Germany_Medieval:NW_255"
[,2]
[1,] "0.0087"
[2,] "0.0088"
[3,] "0.0089"
[4,] "0.0089"
[5,] "0.0089"
[6,] "0.0092"
[7,] "0.0094"
[8,] "0.0094"
[9,] "0.0094"
[10,] "0.0095"
[11,] "0.0095"
[12,] "0.0095"
[13,] "0.0095"
[14,] "0.0095"
[15,] "0.0096"
[16,] "0.0096"
[17,] "0.0096"
[18,] "0.0097"
[19,] "0.0098"
[20,] "0.0098"
[21,] "0.0098"
[22,] "0.0098"
[23,] "0.0099"
[24,] "0.0099"
[25,] "0.0099"
[26,] "0.0099"
[27,] "0.0099"
[28,] "0.0099"
[29,] "0.01"
[30,] "0.01"
[31,] "0.01"
[32,] "0.01"
[33,] "0.01"
[34,] "0.0101"
[35,] "0.0101"
[36,] "0.0101"
[37,] "0.0101"
[38,] "0.0101"
[39,] "0.0101"
[40,] "0.0101"
[41,] "0.0101"
[42,] "0.0101"
[43,] "0.0101"
[44,] "0.0101"
[45,] "0.0102"
[46,] "0.0102"
[47,] "0.0102"
[48,] "0.0102"
[49,] "0.0102"
[50,] "0.0102"
[51,] "0.0102"
[52,] "0.0102"
[53,] "0.0102"
[54,] "0.0102"
[55,] "0.0102"
[56,] "0.0102"
[57,] "0.0102"
[58,] "0.0102"
[59,] "0.0102"
[60,] "0.0102"

[Lemgrant]

G25 PCA plot of modern, Roman and Medieval Europeans by ph2ter


https://www.theapricity.com/forum/sh...eval-Europeans

[Vasconcelos]

My issue with those plots is scaling the coordinates, it distorts the positioning of a few samples. For instance you can see some IA Iberians inside the modern non-Basque Iberian cluster, something that wasn't shown in either the original paper, or David's "usual" PCA plot, aswell as some others going far too deep within the French cluster.

[Lucas]

My issue with those plots is scaling the coordinates, it distorts the positioning of a few samples. For instance you can see some IA Iberians inside the modern non-Basque Iberian cluster, something that wasn't shown in either the original paper, or David's "usual" PCA plot, aswell as some others going far too deep within the French cluster.

Maybe it isn't be scaling / unscaling question, but problem with much more samples on ph2ter PCA than those mentioned, and some of those additional samples "attract" those Iberians and change their position in some way.

[MagnusDark]

Could someone please run mine? I can't get it to work on my stupid computer. Thanks in advance.



,PC1,PC2,PC3,PC4,PC5,PC6,PC7,PC8,PC9,PC10,PC11,PC1 2,PC13,PC14,PC15,PC16,PC17,PC18,PC19,PC20,PC21,PC2 2,PC23,PC24,PC25
MagnusDark_scaled,0.127482,0.150298,0.020365,-0.02584,0.028621,-0.007251,0.00611,0.002769,-0.002863,0.022233,0.001624,0.007343,-0.011596,0.003165,-0.02158,0.006895,0.030379,-0.00266,0.006159,-0.007379,-0.010606,0.000124,0.000986,0.000964,-0.002036

,PC1,PC2,PC3,PC4,PC5,PC6,PC7,PC8,PC9,PC10,PC11,PC1 2,PC13,PC14,PC15,PC16,PC17,PC18,PC19,PC20,PC21,PC2 2,PC23,PC24,PC25
MagnusDark,0.0112,0.0148,0.0054,-0.008,0.0093,-0.0026,0.0026,0.0012,-0.0014,0.0122,0.001,0.0049,-0.0078,0.0023,-0.0159,0.0052,0.0233,-0.0021,0.0049,-0.0059,-0.0085,0.0001,0.0008,0.0008,-0.0017

[Lemgrant]

Could someone please run mine? I can't get it to work on my stupid computer. Thanks in advance.



,PC1,PC2,PC3,PC4,PC5,PC6,PC7,PC8,PC9,PC10,PC11,PC1 2,PC13,PC14,PC15,PC16,PC17,PC18,PC19,PC20,PC21,PC2 2,PC23,PC24,PC25
MagnusDark_scaled,0.127482,0.150298,0.020365,-0.02584,0.028621,-0.007251,0.00611,0.002769,-0.002863,0.022233,0.001624,0.007343,-0.011596,0.003165,-0.02158,0.006895,0.030379,-0.00266,0.006159,-0.007379,-0.010606,0.000124,0.000986,0.000964,-0.002036

,PC1,PC2,PC3,PC4,PC5,PC6,PC7,PC8,PC9,PC10,PC11,PC1 2,PC13,PC14,PC15,PC16,PC17,PC18,PC19,PC20,PC21,PC2 2,PC23,PC24,PC25
MagnusDark,0.0112,0.0148,0.0054,-0.008,0.0093,-0.0026,0.0026,0.0012,-0.0014,0.0122,0.001,0.0049,-0.0078,0.0023,-0.0159,0.0052,0.0233,-0.0021,0.0049,-0.0059,-0.0085,0.0001,0.0008,0.0008,-0.0017

With updated datasheet:

[1,] "Italian_Abruzzo:ItalyAbruzzo20"   "0.0192"
 [2,] "Macedonian:Macedonian2"           "0.0198"
 [3,] "Albanian:ALB220"                  "0.0198"
 [4,] "Greek:GREEKGRALPOP10"             "0.0203"
 [5,] "Greek:NA17373"                    "0.0209"
 [6,] "Bulgarian:Bulgaria1"              "0.0212"
 [7,] "Italian_Abruzzo:ItalyAbruzzo17"   "0.0213"
 [8,] "Greek:NA17377"                    "0.0226"
 [9,] "Greek:GREEKGRALPOP9"              "0.0226"
[10,] "Montenegrin:Montenegro1"          "0.023" 
[11,] "Macedonian:Macedonian8"           "0.0231"
[12,] "Greek:GREEKGRALPOP5"              "0.0235"
[13,] "Albanian:ALB191"                  "0.0237"
[14,] "Greek:GREEKGRALPOP4"              "0.0237"
[15,] "Greek:GREEKGRALPOP13"             "0.0238"
[16,] "Serbian:Serbian_Serbia5"          "0.0238"
[17,] "Hungary_Medieval_Szolad:SZ40"     "0.0238"
[18,] "Balkans_BA:I4331"                 "0.0245"
[19,] "Italian_Abruzzo:ItalyAbruzzo22"   "0.025" 
[20,] "Balkans_IA:I5769"                 "0.025" 
[21,] "Italian_Tuscan:NA20505"           "0.0251"
[22,] "Bulgarian:BulgarianD6"            "0.0252"
[23,] "Greek:GREEKGRALPOP18"             "0.0252"
[24,] "Greek:GREEKGRALPOP15"             "0.0257"
[25,] "Albanian:ALB202"                  "0.0258"
[26,] "Greek:GREEKGRALPOP14"             "0.0258"
[27,] "Greek:GREEKGRALPOP8"              "0.0259"
[28,] "Greek_Crete:B_Crete-1"            "0.0259"
[29,] "Balkans_BA:I4332"                 "0.0262"
[30,] "Italian_Abruzzo:ItalyAbruzzo13"   "0.0266"
[31,] "Macedonian:Macedonian7"           "0.0272"
[32,] "Romanian:G408"                    "0.0274"
[33,] "Scythian_Hungary:DA195"           "0.0277"
[34,] "Iberia_Northeast_Empuries2:I8215" "0.0278"
[35,] "Romanian:G428"                    "0.0278"
[36,] "Greek:GREEKGRALPOP11"             "0.028" 
[37,] "Montenegrin:Montenegro7"          "0.0281"
[38,] "Romanian:G429"                    "0.0281"
[39,] "Albanian:ALB213"                  "0.0282"
[40,] "Scythian_Moldova:scy192"          "0.0282"
[41,] "Hungary_Medieval_Szolad:SZ43"     "0.0283"
[42,] "Greek:GREEKGRALPOP3"              "0.0285"
[43,] "Anatolia_EBA_Isparta:I2495"       "0.0286"
[44,] "Romanian:A343"                    "0.0286"
[45,] "Italian_Bergamo:HGDP01147"        "0.0287"
[46,] "Italian_Abruzzo:ItalyAbruzzo15"   "0.0288"
[47,] "Greek:GREEKGRALPOP17"             "0.029" 
[48,] "Hungary_Medieval_Szolad:SZ36"     "0.0292"
[49,] "Maltese:Malta4AM91"               "0.0293"
[50,] "Italian_Tuscan:NA20504"           "0.0293"
[51,] "Cypriot:Cyprus13AJ19"             "0.0296"
[52,] "Anatolia_IA_low_res:MA2197"       "0.0296"
[53,] "Greek:GREEKGRALPOP12"             "0.0296"
[54,] "Bulgarian:BulgarianE2"            "0.0298"
[55,] "Italian_Tuscan:NA20502"           "0.0298"
[56,] "Germany_Medieval_ACD:STR_310"     "0.0299"
[57,] "Albanian:ALB212"                  "0.0299"
[58,] "Serbian:Serbian_Serbia2"          "0.03"  
[59,] "Hungary_Medieval_Szolad:SZ28"     "0.0301"
[60,] "Serbian:Serbian_Serbia4"          "0.0301"

Mixed mode

 [1,] "33.7% Minoan_Lasithi:I9005 + 66.3% Serbian:Serbian_Serbia5"     "0.0093"
 [2,] "66.9% Montenegrin:Montenegro7 + 33.1% Peloponnese_N:I2318"      "0.0097"
 [3,] "31.3% Minoan_Lasithi:I0073 + 68.7% Serbian:Serbian_Serbia5"     "0.0101"
 [4,] "33.5% Boncuklu_N:Bon002 + 66.5% Serbian:Serbian_Serbia5"        "0.0103"
 [5,] "72.3% Montenegrin:Montenegro1 + 27.7% Peloponnese_N:I2318"      "0.0107"
 [6,] "35.7% Minoan_Lasithi:I0071 + 64.3% Serbian:Serbian_Serbia5"     "0.0108"
 [7,] "28.4% Peloponnese_N:I2318 + 71.6% Serbian:Serbian_Serbia5"      "0.0111"
 [8,] "58.8% Minoan_Lasithi:I0071 + 41.2% Russian_Tver:Russia_Tver415" "0.0112"
 [9,] "29.9% Peloponnese_N:I3708 + 70.1% Serbian:Serbian_Serbia5"      "0.0114"
[10,] "63.2% Macedonian:Macedonian7 + 36.8% Minoan_Lasithi:I9005"      "0.0114"
[11,] "60.5% Macedonian:Macedonian7 + 39.5% Minoan_Lasithi:I0070"      "0.0114"
[12,] "29.1% Greece_N:Klei10 + 70.9% Serbian:Serbian_Serbia5"          "0.0115"
[13,] "58.3% Bosnian:Bosnian_14 + 41.7% Minoan_Lasithi:I9005"          "0.0115"
[14,] "28.9% Barcin_N:I0708 + 71.1% Serbian:Serbian_Serbia5"           "0.0116"
[15,] "37.7% Boncuklu_N:Bon002 + 62.3% Montenegrin:Montenegro7"        "0.0117"
[16,] "25% Koros_N:I1508 + 75% Serbian:Serbian_Serbia5"                "0.0118"
[17,] "46.2% Minoan_Lasithi:I0071 + 53.8% Moldovan:747_R01C02"         "0.0118"
[18,] "34.2% Minoan_Lasithi:I0070 + 65.8% Montenegrin:Montenegro1"     "0.0118"
[19,] "60.7% Macedonian:Macedonian7 + 39.3% Minoan_Lasithi:I0071"      "0.012" 
[20,] "33.4% Greece_N:Klei10 + 66.6% Montenegrin:Montenegro7"          "0.012" 
[21,] "36.5% Peloponnese_N_o:I3920 + 63.5% Serbian:Serbian_Serbia5"    "0.012" 
[22,] "47.1% Minoan_Lasithi:I9005 + 52.9% Slovakian:Slovakia96"        "0.012" 
[23,] "29.6% Balaton_Lasinja_CA:I1909 + 70.4% Serbian:Serbian_Serbia5" "0.0121"
[24,] "35.2% Minoan_Lasithi:I0070 + 64.8% Serbian:Serbian_Serbia5"     "0.0121"
[25,] "31.7% Peloponnese_N:I3709 + 68.3% Serbian:Serbian_Serbia5"      "0.0121"
[26,] "54% Minoan_Lasithi:I0071 + 46% Ukrainian:Ukrainian22"           "0.0121"
[27,] "37.5% Minoan_Lasithi:I9005 + 62.5% Montenegrin:Montenegro7"     "0.0121"
[28,] "25.8% Barcin_N:I1579 + 74.2% Serbian:Serbian_Serbia5"           "0.0121"
[29,] "51.1% Minoan_Lasithi:I9005 + 48.9% Ukrainian:Ukrainian22"       "0.0121"
[30,] "28.8% Barcin_N:I1102 + 71.2% Serbian:Serbian_Serbia5"           "0.0122"
[31,] "54% Minoan_Lasithi:I0070 + 46% Ukrainian:Ukrainian22"           "0.0122"
[32,] "25.9% Barcin_N:I1097 + 74.1% Serbian:Serbian_Serbia5"           "0.0122"
[33,] "27.6% Barcin_N:I0708 + 72.4% Montenegrin:Montenegro1"           "0.0122"
[34,] "29.4% Balkans_N:I0634 + 70.6% Serbian:Serbian_Serbia5"          "0.0122"
[35,] "31.6% Boncuklu_N:Bon002 + 68.4% Montenegrin:Montenegro1"        "0.0123"
[36,] "29.5% Barcin_N:I1585 + 70.5% Serbian:Serbian_Serbia5"           "0.0123"
[37,] "34% Minoan_Lasithi:I0071 + 66% Montenegrin:Montenegro1"         "0.0123"
[38,] "28.7% Barcin_N:I1580 + 71.3% Serbian:Serbian_Serbia5"           "0.0124"
[39,] "25.9% LBKT_MN:I1904 + 74.1% Serbian:Serbian_Serbia5"            "0.0124"
[40,] "52.8% Hungarian:NA15207 + 47.2% Minoan_Lasithi:I0071"           "0.0124"
[41,] "46.1% Minoan_Lasithi:I0070 + 53.9% Moldovan:747_R01C02"         "0.0125"
[42,] "40.1% Minoan_Lasithi:I0070 + 59.9% Montenegrin:Montenegro7"     "0.0125"
[43,] "75.2% Macedonian:Macedonian2 + 24.8% Minoan_Lasithi:I0073"      "0.0125"
[44,] "65.9% Montenegrin:Montenegro7 + 34.1% Peloponnese_N:I3708"      "0.0125"
[45,] "49.9% Minoan_Lasithi:I0071 + 50.1% Slovakian:Slovakia96"        "0.0125"
[46,] "27.6% Greece_N:Klei10 + 72.4% Montenegrin:Montenegro1"          "0.0125"
[47,] "55.6% Bosnian:Bosnian_14 + 44.4% Minoan_Lasithi:I0071"          "0.0125"
[48,] "58.9% Minoan_Lasithi:I0070 + 41.1% Russian_Tver:Russia_Tver415" "0.0125"
[49,] "26.8% Boncuklu_N:Bon002 + 73.2% Macedonian:Macedonian2"         "0.0126"
[50,] "40.1% Minoan_Lasithi:I0071 + 59.9% Montenegrin:Montenegro7"     "0.0126"
[51,] "71.7% Montenegrin:Montenegro1 + 28.3% Peloponnese_N:I3708"      "0.0126"
[52,] "25.8% Greece_N:Rev5 + 74.2% Serbian:Serbian_Serbia5"            "0.0126"
[53,] "24.9% Balkans_N:I0676 + 75.1% Serbian:Serbian_Serbia5"          "0.0126"
[54,] "74% Bulgarian:Bulgaria1 + 26% Peloponnese_N:I3708"              "0.0126"
[55,] "28.8% Koros_N:I1508 + 71.2% Montenegrin:Montenegro7"            "0.0127"
[56,] "55.1% Minoan_Lasithi:I0070 + 44.9% Ukrainian:Ukrainian12"       "0.0128"
[57,] "28.8% Boncuklu_N:Bon002 + 71.2% Bulgarian:Bulgaria1"            "0.0128"
[58,] "56.6% Minoan_Lasithi:I9005 + 43.4% Mordovian:Mordovian8"        "0.0128"
[59,] "69.8% Montenegrin:Montenegro1 + 30.2% Peloponnese_N:I3709"      "0.0128"
[60,] "61.1% Hungarian:NA15207 + 38.9% Peloponnese_N:I2318"            "0.0129"

Ancient

 [1,] "Hungary_Medieval_Szolad:SZ40"     "0.0238"
 [2,] "Balkans_BA:I4331"                 "0.0245"
 [3,] "Balkans_IA:I5769"                 "0.025" 
 [4,] "Balkans_BA:I4332"                 "0.0262"
 [5,] "Scythian_Hungary:DA195"           "0.0277"
 [6,] "Iberia_Northeast_Empuries2:I8215" "0.0278"
 [7,] "Scythian_Moldova:scy192"          "0.0282"
 [8,] "Hungary_Medieval_Szolad:SZ43"     "0.0283"
 [9,] "Anatolia_EBA_Isparta:I2495"       "0.0286"
[10,] "Hungary_Medieval_Szolad:SZ36"     "0.0292"
[11,] "Anatolia_IA_low_res:MA2197"       "0.0296"
[12,] "Germany_Medieval_ACD:STR_310"     "0.0299"
[13,] "Hungary_Medieval_Szolad:SZ28"     "0.0301"
[14,] "Beaker_Italy_North:I1979"         "0.0302"
[15,] "Mycenaean:I9041"                  "0.0309"
[16,] "Hungary_Medieval_Szolad:SZ32"     "0.0311"
[17,] "Maros:RISE374"                    "0.0313"
[18,] "Italy_Medieval_Collegno:CL53"     "0.0315"
[19,] "Italy_Medieval_Collegno_o1:CL38"  "0.0318"
[20,] "Beaker_Czech:I4945"               "0.0319"
[21,] "Beaker_Hungary:I7045"             "0.032" 
[22,] "Germany_Medieval_o:STR_300"       "0.032" 
[23,] "Scythian_Moldova:scy197"          "0.0321"
[24,] "Italy_Medieval_Collegno_o1:CL25"  "0.0323"
[25,] "Hungary_Medieval_Szolad:SZ37"     "0.0323"
[26,] "Anatolia_MLBA:MA2203"             "0.0326"
[27,] "Iberia_Southeast_c.5-8CE:I3980"   "0.0329"
[28,] "Hungary_BA:I7043"                 "0.033" 
[29,] "Beaker_Bavaria:I5017"             "0.0333"
[30,] "Beaker_Hungary:I2364"             "0.0333"
[31,] "Scythian_Moldova:scy300"          "0.0334"
[32,] "Balkans_BA:I2520"                 "0.0335"
[33,] "Scythian_Moldova:scy305"          "0.0338"
[34,] "Germany_Roman:FN_2"               "0.034" 
[35,] "Hungary_BA:I7041"                 "0.0343"
[36,] "Anatolia_EBA_Isparta:I2683"       "0.0343"
[37,] "Scythian_Moldova:scy311"          "0.0344"
[38,] "Mycenaean:I9006"                  "0.0346"
[39,] "Italy_Medieval_Collegno_o1:CL30"  "0.0351"
[40,] "Iberia_Northeast_c.6CE_PL:I12163" "0.0352"
[41,] "Beaker_Poland:I6582"              "0.0352"
[42,] "Beaker_Bavaria:E09538"            "0.0358"
[43,] "Hungary_Medieval_Szolad:SZ5"      "0.0362"
[44,] "Balkans_BA:I2175"                 "0.0362"
[45,] "Iberia_Southeast_c.3-4CE:I4054"   "0.0365"
[46,] "Balkans_BA:I3313"                 "0.0369"
[47,] "Scythian_Hungary:DA197"           "0.0369"
[48,] "Italy_Medieval_Collegno:CL94"     "0.0369"
[49,] "Krepost_N:I0679_d"                "0.037" 
[50,] "Beaker_Bavaria:I5520"             "0.0371"
[51,] "Iberia_East_IA:I3324"             "0.0372"
[52,] "Scythian_Hungary:DA198"           "0.0373"
[53,] "Vucedol:I3499"                    "0.0373"
[54,] "Balkans_BA:I2165"                 "0.0374"
[55,] "Peloponnese_N_o:I3920"            "0.0376"
[56,] "Mycenaean:I9010"                  "0.0376"
[57,] "Hungary_Medieval_Szolad:SZ3"      "0.0377"
[58,] "Hungary_Medieval_Szolad:SZ27"     "0.0379"
[59,] "Hungary_Medieval:DA199"           "0.038" 
[60,] "Beaker_Czech:I4885"               "0.0382"

Mixed mode

 [1,] "68% Boncuklu_N:Bon002 + 32% Kubano-Tersk:MK5009"                        
 [2,] "60.7% Peloponnese_N:I2318 + 39.3% CWC_Baltic_early:Gyvakarai1_10bp"     
 [3,] "64.8% Balaton_Lasinja_CA:I1909 + 35.2% Kubano-Tersk:MK5009"             
 [4,] "64% Barcin_N:I1580 + 36% Kubano-Tersk:MK5009"                           
 [5,] "60.5% Boncuklu_N:Bon002 + 39.5% Yamnaya_Ukraine_o:I1917"                
 [6,] "50% Peloponnese_N:I2318 + 50% Sweden_Viking_Age_Sigtuna:vik_urm160"     
 [7,] "33.6% Afanasievo:I5278 + 66.4% Peloponnese_N:I2318"                     
 [8,] "56.8% Balaton_Lasinja_CA:I1909 + 43.2% Yamnaya_Ukraine_o:I1917"         
 [9,] "65.2% Balaton_Lasinja_CA:I1909 + 34.8% Kubano-Tersk:RK1003"             
[10,] "70% Boncuklu_N:Bon002 + 30% Yamnaya_Ukraine:I2105"                      
[11,] "64.9% Barcin_N:I1585 + 35.1% Kubano-Tersk:MK5009"                       
[12,] "69.7% Boncuklu_N:Bon002 + 30.3% Yamnaya_Samara:I0231"                   
[13,] "61.9% Boncuklu_N:Bon002 + 38.1% Sarmatian_Urals:tem003"                 
[14,] "68.6% Boncuklu_N:Bon002 + 31.4% Kubano-Tersk:RK1003"                    
[15,] "28.6% Afanasievo:I5278 + 71.4% Boncuklu_N:Bon002"                       
[16,] "37% Kubano-Tersk:MK5009 + 63% Peloponnese_N:I2318"                      
[17,] "70.5% Boncuklu_N:Bon002 + 29.5% Yamnaya_Kalmykia:RISE552"               
[18,] "59.1% Iberia_Northeast_c.6CE_PL:I12163 + 40.9% Minoan_Lasithi:I0073"    
[19,] "64% Greece_N:Klei10 + 36% Kubano-Tersk:MK5009"                          
[20,] "66.2% Boncuklu_N:Bon002 + 33.8% CWC_Baltic_early:Gyvakarai1_10bp"       
[21,] "60.6% Barcin_N:I1097 + 39.4% Kubano-Tersk:MK5009"                       
[22,] "62.8% Barcin_N:I1585 + 37.2% CWC_Baltic_early:Gyvakarai1_10bp"          
[23,] "71.6% Boncuklu_N:Bon002 + 28.4% Yamnaya_Samara:I0429"                   
[24,] "58.9% Boncuklu_N:Bon002 + 41.1% Sarmatian_West:DA139"                   
[25,] "55.4% Barcin_N:I1585 + 44.6% Krasnoyarsk_MLBA:I3392"                    
[26,] "65.2% Barcin_N:I1585 + 34.8% Kubano-Tersk:RK1003"                       
[27,] "55.9% Barcin_N:I1580 + 44.1% Yamnaya_Ukraine_o:I1917"                   
[28,] "59% Anatolia_EBA_Isparta:I2495 + 41% Hungary_Medieval_Szolad:SZ3"       
[29,] "65% Peloponnese_N:I2318 + 35% Yamnaya_Ukraine:I2105"                    
[30,] "34.8% Kubano-Tersk:RK1003 + 65.2% Peloponnese_N:I3708"                  
[31,] "61.9% Barcin_N:I1580 + 38.1% CWC_Baltic_early:Gyvakarai1_10bp"          
[32,] "64.4% Barcin_N:I1580 + 35.6% Kubano-Tersk:RK1003"                       
[33,] "67.9% Balkans_ChL:I2424 + 32.1% Kubano-Tersk:MK5009"                    
[34,] "65% Balaton_Lasinja_CA:I1909 + 35% Kubano-Tersk:PG2002"                 
[35,] "59.3% Balkans_N:I2533 + 40.7% Kubano-Tersk:RK1003"                      
[36,] "69.2% Balkans_ChL:I4088 + 30.8% Kubano-Tersk:MK5009"                    
[37,] "70.7% Boncuklu_N:Bon002 + 29.3% Catacomb:MK3003"                        
[38,] "70.6% Boncuklu_N:Bon002 + 29.4% Yamnaya_Samara:I0370"                   
[39,] "59% Balkans_N:I2533 + 41% Kubano-Tersk:MK5009"                          
[40,] "64.8% Barcin_N:I1585 + 35.2% CWC_Baltic_early:Plinkaigalis242"          
[41,] "65.3% Peloponnese_N:I2318 + 34.7% Poltavka:I0440"                       
[42,] "65.7% Barcin_N:I1580 + 34.3% Yamnaya_Samara:I0231"                      
[43,] "63.4% Minoan_Lasithi:I0071 + 36.6% Sweden_Viking_Age_Sigtuna:vik_stg020"
[44,] "62% Boncuklu_N:Bon002 + 38% Sarmatian_Pokrovka:I0575"                   
[45,] "30.3% Afanasievo:I5270 + 69.7% Boncuklu_N:Bon002"                       
[46,] "32.1% Kubano-Tersk:MK5009 + 67.9% Tisza_LN:I0449"                       
[47,] "55.8% Barcin_N:I1098 + 44.2% Sintashta_MLBA:I1053"                      
[48,] "36.5% Kubano-Tersk:MK5009 + 63.5% LBK_N:I0026"                          
[49,] "65.3% Barcin_N:I1580 + 34.7% Poltavka:I0374"                            
[50,] "30.5% Afanasievo:I3388 + 69.5% Boncuklu_N:Bon002"                       
[51,] "62% Iberia_Northeast_Empuries2:I8215 + 38% Scythian_Ukraine:scy010"     
[52,] "33.9% Afanasievo:I3388 + 66.1% Balaton_Lasinja_CA:I1909"                
[53,] "40.6% Kubano-Tersk:RK1003 + 59.4% TDLN:I4184"                           
[54,] "63.9% Barcin_N:I1580 + 36.1% CWC_Baltic_early:Plinkaigalis242"          
[55,] "66.5% Barcin_N:I1585 + 33.5% Yamnaya_Samara:I0231"                      
[56,] "50.6% Balkans_N:I2533 + 49.4% Yamnaya_Ukraine_o:I1917"                  
[57,] "53.9% Barcin_N:I1585 + 46.1% Sintashta_MLBA:I1053"                      
[58,] "58.3% Barcin_N:I1585 + 41.7% Sarmatian_Pokrovka:I0575"                  
[59,] "53.7% Mentese_N:I0723 + 46.3% Yamnaya_Ukraine_o:I1917"                  
[60,] "66.1% Barcin_N:I1585 + 33.9% Poltavka:I0374"                            
      [,2]    
 [1,] "0.0133"
 [2,] "0.0141"
 [3,] "0.0142"
 [4,] "0.0145"
 [5,] "0.0145"
 [6,] "0.0147"
 [7,] "0.0147"
 [8,] "0.0147"
 [9,] "0.0148"
[10,] "0.0148"
[11,] "0.015" 
[12,] "0.015" 
[13,] "0.015" 
[14,] "0.0151"
[15,] "0.0151"
[16,] "0.0151"
[17,] "0.0151"
[18,] "0.0151"
[19,] "0.0152"
[20,] "0.0152"
[21,] "0.0153"
[22,] "0.0156"
[23,] "0.0157"
[24,] "0.0157"
[25,] "0.0157"
[26,] "0.0157"
[27,] "0.0158"
[28,] "0.0158"
[29,] "0.0158"
[30,] "0.0158"
[31,] "0.0158"
[32,] "0.0158"
[33,] "0.0159"
[34,] "0.0159"
[35,] "0.0159"
[36,] "0.0159"
[37,] "0.0159"
[38,] "0.0159"
[39,] "0.0159"
[40,] "0.0159"
[41,] "0.016" 
[42,] "0.016" 
[43,] "0.016" 
[44,] "0.016" 
[45,] "0.016" 
[46,] "0.0161"
[47,] "0.0161"
[48,] "0.0161"
[49,] "0.0161"
[50,] "0.0161"
[51,] "0.0162"
[52,] "0.0162"
[53,] "0.0162"
[54,] "0.0162"
[55,] "0.0162"
[56,] "0.0163"
[57,] "0.0163"
[58,] "0.0163"
[59,] "0.0163"
[60,] "0.0163"

[ph2ter]

My issue with those plots is scaling the coordinates, it distorts the positioning of a few samples. For instance you can see some IA Iberians inside the modern non-Basque Iberian cluster, something that wasn't shown in either the original paper, or David's "usual" PCA plot, aswell as some others going far too deep within the French cluster.

My plot is with unscaled coords. David's plots are with scaled coords.

You are never satisfied...