No ethnicity predicted about planet HOT 7 CLOSED

> predictEthnicity(plBetas) %>%
  head()
1860 of 1860 predictors present.
# A tibble: 6 × 7
  Sample_ID  Predicted_ethnicity_nothr… Predicted_ethni… Prob_African Prob_Asian
  <chr>      <chr>                      <chr>                   <dbl>      <dbl>
1 GSM1944936 Caucasian                  Caucasian            0.00331    0.0164
2 GSM1944939 Caucasian                  Caucasian            0.000772   0.000514
3 GSM1944942 Caucasian                  Caucasian            0.000806   0.000699
4 GSM1944944 Caucasian                  Caucasian            0.000883   0.000792
5 GSM1944946 Caucasian                  Caucasian            0.000885   0.00130
6 GSM1944948 Caucasian                  Caucasian            0.000852   0.000973
# … with 2 more variables: Prob_Caucasian <dbl>, Highest_Prob <dbl>

> predictEthnicity(betas) %>%
  head()
1860 of 1860 predictors present.
# A tibble: 6 × 7
  Sample_ID Predicted_ethnicity_nothre… Predicted_ethni… Prob_African Prob_Asian
  <chr>     <lgl>                       <lgl>                   <dbl>      <dbl>
1 NPBB_1   NA                          NA                         NA         NA
2 NPBB_2   NA                          NA                         NA         NA
3 NPBB_3  NA                          NA                         NA         NA
4 NPBB_4   NA                          NA                         NA         NA
5 NPBB_5   NA                          NA                         NA         NA
6 NPBB_6   NA                          NA                         NA         NA
# … with 2 more variables: Prob_Caucasian <dbl>, Highest_Prob <dbl>

> sessionInfo()
R version 4.2.2 (2022-10-31)
Platform: x86_64-conda-linux-gnu (64-bit)
Running under: CentOS Linux 7 (Core)

Matrix products: default
BLAS/LAPACK: /home/alan/conda_envs/sesame_v1.16.0/lib/libopenblasp-r0.3.21.so

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8
 [7] LC_PAPER=en_US.UTF-8       LC_NAME=C
 [9] LC_ADDRESS=C               LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base

other attached packages:
[1] planet_1.4.0

loaded via a namespace (and not attached):
 [1] compiler_4.2.2  ellipsis_0.3.2  magrittr_2.0.3  cli_3.5.0
 [5] tools_4.2.2     pillar_1.7.0    glue_1.6.2      tibble_3.1.7
 [9] crayon_1.5.1    utf8_1.2.2      fansi_1.0.3     vctrs_0.5.1
[13] lifecycle_1.0.3 pkgconfig_2.0.3 rlang_1.0.6

pf <- intersect(rownames(betas), ethnicityCpGs)
sum(is.na(betas[pf,]))
range(betas[pf,])
head(betas[pf,])

betas[pf,] # just the ethnicity predictors