Greek and Slavic ancestry qpAdm models

```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Bulgaria_EIA', 'Croatia_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Lebanon_MBA.SG')

left = c('Aegean(Roman_era_1-200AD).SG', 'Greece_Delphi_BA_Mycenaean', 'Russia_Sunghir_Medieval.SG')

target = c('Greek.HO')

results = qpadm(prefix, left, right, target, allsnps = TRUE)
results$weights
results$popdrop
```
```c
P 0.0809
  target   left                         weight     se      z
  <chr>    <chr>                         <dbl>  <dbl>  <dbl>
1 Greek.HO Aegean(Roman_era_1-200AD).SG 0.621  0.0378 16.4
2 Greek.HO Albania_BA_IA                0.0278 0.0592  0.470
3 Greek.HO Russia_Sunghir_Medieval.SG   0.352  0.0295 11.9
```
```c
P 0.114
  target   left                         weight     se      z
  <chr>    <chr>                         <dbl>  <dbl>  <dbl>
1 Greek.HO Aegean(Roman_era_1-200AD).SG 0.586  0.0597  9.81
2 Greek.HO Greece_Delphi_BA_Mycenaean   0.0560 0.0624  0.897
3 Greek.HO Russia_Sunghir_Medieval.SG   0.358  0.0166 21.5
```
```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Bulgaria_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Lebanon_MBA.SG')

left = c('Aegean(Roman_era_1-200AD).SG', 'Croatia_EIA', 'Russia_Sunghir_Medieval.SG')

target = c('Montenegro_Doclea_Roman.SG')

results = qpadm(prefix, left, right, target, allsnps = TRUE)
results$weights
results$popdrop
```
```c
P 0.179
  target                     left                         weight     se     z
  <chr>                      <chr>                         <dbl>  <dbl> <dbl>
1 Montenegro_Doclea_Roman.SG Aegean(Roman_era_1-200AD).SG  0.198 0.0423  4.67
2 Montenegro_Doclea_Roman.SG Croatia_EIA                   0.126 0.0683  1.84
3 Montenegro_Doclea_Roman.SG Russia_Sunghir_Medieval.SG    0.676 0.0491 13.8
```
```c
P 0.0457
   target      left                         weight     se      z
  <chr>       <chr>                         <dbl>  <dbl>  <dbl>
1 Croatian.HO Aegean(Roman_era_1-200AD).SG 0.249  0.0383  6.51
2 Croatian.HO Croatia_EIA                  0.0529 0.0614  0.862
3 Croatian.HO Russia_Sunghir_Medieval.SG   0.698  0.0437 16.0
```
```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Bulgaria_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Croatia_EIA', 'Russia_Sunghir_Medieval.SG', 'Lebanon_MBA.SG')

left = c('Aegean(Roman_era_1-200AD).SG', 'Greece_Delphi_BA_Mycenaean', 'Montenegro_Doclea_Roman.SG')

target = c('Greek.HO')

results = qpadm(prefix, left, right, target, allsnps = TRUE)
results$weights
results$popdrop
```
```c
P 0.278
  target   left                           weight     se      z
  <chr>    <chr>                           <dbl>  <dbl>  <dbl>
1 Greek.HO Aegean(Roman_era_1-200AD).SG  0.521   0.0408 12.8
2 Greek.HO Greece_Delphi_BA_Mycenaean   -0.00820 0.0420 -0.195
3 Greek.HO Montenegro_Doclea_Roman.SG    0.487   0.0189 25.8
```
```c
P 0.352
 target   left                         weight     se     z
  <chr>    <chr>                         <dbl>  <dbl> <dbl>
1 Greek.HO Aegean(Roman_era_1-200AD).SG  0.514 0.0180  28.6
2 Greek.HO Montenegro_Doclea_Roman.SG    0.486 0.0180  27.0
```
```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Bulgaria_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Croatia_EIA')

left = c('Aegean(Roman_era_1-200AD).SG', 'Lebanon_MBA.SG', 'Russia_Sunghir_Medieval.SG', 'Tajikistan_Ksirov_Kushan')

target = c('Cypriot.HO')

results = qpadm(prefix, left, right, target, allsnps = TRUE)
results$weights
results$popdrop
```
```c
P 0.0314
  target     left                         weight     se     z
  <chr>      <chr>                         <dbl>  <dbl> <dbl>
1 Cypriot.HO Aegean(Roman_era_1-200AD).SG 0.643  0.0606 10.6
2 Cypriot.HO Lebanon_MBA.SG               0.246  0.0541  4.54
3 Cypriot.HO Russia_Sunghir_Medieval.SG   0.0353 0.0230  1.53
4 Cypriot.HO Tajikistan_Ksirov_Kushan     0.0763 0.0275  2.77
```
```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Bulgaria_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Croatia_EIA', 'Turkey_Alalakh_MLBA')

left = c('Aegean(Roman_era_1-200AD).SG', 'Lebanon_MBA.SG', 'Russia_Sunghir_Medieval.SG', 'Tajikistan_Ksirov_Kushan')

target = c('Cypriot.HO')

results = qpadm(prefix, left, right, target, allsnps = TRUE)
results$weights
results$popdrop
```
```c
P 0.0217
  target     left                         weight     se     z
  <chr>      <chr>                         <dbl>  <dbl> <dbl>
1 Cypriot.HO Aegean(Roman_era_1-200AD).SG 0.652  0.0603 10.8
2 Cypriot.HO Lebanon_MBA.SG               0.232  0.0530  4.38
3 Cypriot.HO Russia_Sunghir_Medieval.SG   0.0344 0.0235  1.47
4 Cypriot.HO Tajikistan_Ksirov_Kushan     0.0814 0.0273  2.98
```
```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Bulgaria_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Croatia_EIA', 'Turkey_Alalakh_MLBA', 'Tajikistan_Ksirov_Kushan')

left = c('Aegean(Roman_era_1-200AD).SG', 'Lebanon_MBA.SG', 'Russia_Sunghir_Medieval.SG')

target = c('Cypriot.HO')
```
```c
P 0.000377
  target     left                         weight     se     z
  <chr>      <chr>                         <dbl>  <dbl> <dbl>
1 Cypriot.HO Aegean(Roman_era_1-200AD).SG 0.639  0.0641  9.97
2 Cypriot.HO Lebanon_MBA.SG               0.283  0.0527  5.36
3 Cypriot.HO Russia_Sunghir_Medieval.SG   0.0780 0.0176  4.43
```
```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Croatia_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Lebanon_MBA.SG')

left = c('Aegean(Roman_era_1-200AD).SG', 'Bulgaria_EIA', 'Russia_Sunghir_Medieval.SG')

target = c('Bulgarian.HO')

results = qpadm(prefix, left, right, target, allsnps = TRUE)
results$weights
results$popdrop
```
```c
P 0.0271
  target       left                           weight     se        z
  <chr>        <chr>                           <dbl>  <dbl>    <dbl>
1 Bulgarian.HO Aegean(Roman_era_1-200AD).SG 0.452    0.0512  8.81
2 Bulgarian.HO Bulgaria_EIA                 0.000506 0.0551  0.00918
3 Bulgarian.HO Russia_Sunghir_Medieval.SG   0.548    0.0248 22.1

P 0.4.93e- 14
  target       left                       weight     se     z
  <chr>        <chr>                       <dbl>  <dbl> <dbl>
1 Bulgarian.HO Bulgaria_EIA                0.374 0.0308  12.2
2 Bulgarian.HO Russia_Sunghir_Medieval.SG  0.626 0.0308  20.3
```
```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Croatia_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Lebanon_MBA.SG', 'Bulgaria_EIA')

left = c('Aegean(Roman_era_1-200AD).SG', 'Albania_BA_IA', 'Russia_Sunghir_Medieval.SG')

target = c('Bulgarian.HO')

results = qpadm(prefix, left, right, target, allsnps = TRUE)
results$weights
results$popdrop
```
```c
P 0.0389
  target       left                         weight     se      z
  <chr>        <chr>                         <dbl>  <dbl>  <dbl>
1 Bulgarian.HO Aegean(Roman_era_1-200AD).SG 0.430  0.0512  8.41
2 Bulgarian.HO Albania_BA_IA                0.0394 0.0796  0.495
3 Bulgarian.HO Russia_Sunghir_Medieval.SG   0.530  0.0403 13.2
```
```c
P 0.203
  target      left                         weight     se      z
  <chr>       <chr>                         <dbl>  <dbl>  <dbl>
1 Croatian.HO Aegean(Roman_era_1-200AD).SG 0.0174 0.0290  0.601
2 Croatian.HO Montenegro_Doclea_Roman.SG   0.983  0.0290 33.9
```
```c
P 0.0293
  target      left                         weight     se     z
  <chr>       <chr>                         <dbl>  <dbl> <dbl>
1 Albanian.HO Aegean(Roman_era_1-200AD).SG  0.505 0.0452 11.2
2 Albanian.HO Albania_BA_IA                 0.124 0.0700  1.77
3 Albanian.HO Russia_Sunghir_Medieval.SG    0.371 0.0365 10.2
```
```c
P 0.0153
  target      left                         weight     se     z
  <chr>       <chr>                         <dbl>  <dbl> <dbl>
1 Albanian.HO Aegean(Roman_era_1-200AD).SG 0.500  0.0485 10.3
2 Albanian.HO Bulgaria_EIA                 0.0913 0.0522  1.75
3 Albanian.HO Russia_Sunghir_Medieval.SG   0.409  0.0240 17.1
```
```c
right = c('Mbuti.HO', 'Russia_Samara_EBA_Yamnaya', 'Russia_Karelia_HG', 'Serbia_IronGates_Mesolithic', 'Turkey_N', 'Iran_GanjDareh_N', 'Spain_IA', 'Greece_Minoan_Lassithi', 'Croatia_MLBA', 'Netherlands_EIA', 'Netherlands_MBA', 'Russia_IA_Ingria.SG', 'Latvia_BA', 'Turkey_EBA_II.SG', 'Israel_C', 'Armenia_EBA_KuraAraxes', 'Mongolia_North_N', 'Bulgaria_EIA', 'Greece_BA_Mycenaean', 'Macedonia_Classical_Hellenistic', 'Russia_MLBA_Sintashta', 'Iran_C_SehGabi', 'Lebanon_MBA.SG', 'Croatia_EIA', 'Russia_Sunghir_Medieval.SG', 'Aegean(Roman_era_1-200AD).SG')

left = c('Montenegro_Doclea_Roman.SG')

target = c('Croatian.HO')

results = qpadm(prefix, left, right, target, allsnps = TRUE)
results$weights
results$popdrop
```
```c
P 0.249
  target      left                       weight       se       z
  <chr>       <chr>                       <dbl>    <dbl>   <dbl>
1 Croatian.HO Montenegro_Doclea_Roman.SG      1 1.14e-13 8.79e12
```