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