1# Generated by using Rcpp::compileAttributes() -> do not edit by hand 2# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393 3 4NewPgen <- function(filename, pvar = NULL, raw_sample_ct = NULL, sample_subset = NULL) { 5 .Call(`_pgenlibr_NewPgen`, filename, pvar, raw_sample_ct, sample_subset) 6} 7 8GetRawSampleCt <- function(pgen) { 9 .Call(`_pgenlibr_GetRawSampleCt`, pgen) 10} 11 12GetVariantCt <- function(pvar_or_pgen) { 13 .Call(`_pgenlibr_GetVariantCt`, pvar_or_pgen) 14} 15 16GetAlleleCt <- function(pvar_or_pgen, variant_num) { 17 .Call(`_pgenlibr_GetAlleleCt`, pvar_or_pgen, variant_num) 18} 19 20GetMaxAlleleCt <- function(pvar_or_pgen) { 21 .Call(`_pgenlibr_GetMaxAlleleCt`, pvar_or_pgen) 22} 23 24HardcallPhasePresent <- function(pgen) { 25 .Call(`_pgenlibr_HardcallPhasePresent`, pgen) 26} 27 28Buf <- function(pgen) { 29 .Call(`_pgenlibr_Buf`, pgen) 30} 31 32AlleleCodeBuf <- function(pgen) { 33 .Call(`_pgenlibr_AlleleCodeBuf`, pgen) 34} 35 36IntBuf <- function(pgen) { 37 .Call(`_pgenlibr_IntBuf`, pgen) 38} 39 40IntAlleleCodeBuf <- function(pgen) { 41 .Call(`_pgenlibr_IntAlleleCodeBuf`, pgen) 42} 43 44BoolBuf <- function(pgen) { 45 .Call(`_pgenlibr_BoolBuf`, pgen) 46} 47 48ReadHardcalls <- function(pgen, buf, variant_num, allele_num = 2L) { 49 invisible(.Call(`_pgenlibr_ReadHardcalls`, pgen, buf, variant_num, allele_num)) 50} 51 52Read <- function(pgen, buf, variant_num, allele_num = 2L) { 53 invisible(.Call(`_pgenlibr_Read`, pgen, buf, variant_num, allele_num)) 54} 55 56ReadAlleles <- function(pgen, acbuf, variant_num, phasepresent_buf = NULL) { 57 invisible(.Call(`_pgenlibr_ReadAlleles`, pgen, acbuf, variant_num, phasepresent_buf)) 58} 59 60ReadIntList <- function(pgen, variant_subset) { 61 .Call(`_pgenlibr_ReadIntList`, pgen, variant_subset) 62} 63 64ReadList <- function(pgen, variant_subset, meanimpute = FALSE) { 65 .Call(`_pgenlibr_ReadList`, pgen, variant_subset, meanimpute) 66} 67 68VariantScores <- function(pgen, weights, variant_subset = NULL) { 69 .Call(`_pgenlibr_VariantScores`, pgen, weights, variant_subset) 70} 71 72ClosePgen <- function(pgen) { 73 invisible(.Call(`_pgenlibr_ClosePgen`, pgen)) 74} 75 76NewPvar <- function(filename) { 77 .Call(`_pgenlibr_NewPvar`, filename) 78} 79 80GetVariantId <- function(pvar, variant_num) { 81 .Call(`_pgenlibr_GetVariantId`, pvar, variant_num) 82} 83 84GetAlleleCode <- function(pvar, variant_num, allele_num) { 85 .Call(`_pgenlibr_GetAlleleCode`, pvar, variant_num, allele_num) 86} 87 88ClosePvar <- function(pvar) { 89 invisible(.Call(`_pgenlibr_ClosePvar`, pvar)) 90} 91 92