Mercurial > repos > greg > coral_multilocus_genotype
changeset 11:fcaccc633769 draft default tip
Uploaded
| author | greg |
|---|---|
| date | Wed, 13 Nov 2024 18:58:57 +0000 |
| parents | acf4da0489f0 |
| children | |
| files | coral_multilocus_genotype.R coral_multilocus_genotype.xml |
| diffstat | 2 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/coral_multilocus_genotype.R Wed Aug 21 13:53:57 2024 +0000 +++ b/coral_multilocus_genotype.R Wed Nov 13 18:58:57 2024 +0000 @@ -711,7 +711,10 @@ # from the affy_id collumn in the report_user data table. i <- i[!apply(i=="", 1, all),]; # Subset the genclone object to the user data. -allele_vector <- genind_clone[i, mlg.reset=FALSE, drop=FALSE]; +#allele_vector <- genind_clone[i, mlg.reset=FALSE, drop=FALSE]; +affy_list <- affy_list[affy_list != "FORMAT"] +affy_list <- affy_list[affy_list != is.na(affy_list)] +allele_vector <- genind_clone[affy_list, mlg.reset=FALSE, drop=FALSE]; # Convert the subset genclone to a data frame. allele_data_frame <- genind2df(allele_vector, sep=""); allele_data_frame <- allele_data_frame %>%
--- a/coral_multilocus_genotype.xml Wed Aug 21 13:53:57 2024 +0000 +++ b/coral_multilocus_genotype.xml Wed Nov 13 18:58:57 2024 +0000 @@ -1,4 +1,4 @@ -<tool id="coral_multilocus_genotype" name="Coral multilocus genotype" version="1.0.1"> +<tool id="coral_multilocus_genotype" name="Coral multilocus genotype" version="1.0.2"> <description>unique combination of alleles for loci</description> <requirements> <requirement type="package" version="1.36.0">bioconductor-snprelate</requirement>