Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commitccc2415

Browse files
committed
fix#41
1 parent2dfd464 commitccc2415

File tree

4 files changed

+9
-0
lines changed

4 files changed

+9
-0
lines changed

‎R/class-associations.R‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -22,6 +22,8 @@ setOldClass(c("tbl_df", "tbl", "data.frame"))
2222
#' \item{snp_interaction}{Whether the association is for a SNP-SNP interaction.}
2323
#' \item{snp_type}{Whether the SNP has previously been reported. Either
2424
#' \code{'known'} or \code{'novel'}.}
25+
#' \item{risk_frequency}{Reported risk/effect allele frequency associated with
26+
#' strongest SNP in controls.}
2527
#' \item{standard_error}{Standard error of the effect size.}
2628
#' \item{range}{Reported 95\% confidence interval associated with strongest SNP
2729
#' risk allele, along with unit in the case of beta coefficients. If 95\% CIs
@@ -191,6 +193,7 @@ associations_tbl <- function(
191193
multiple_snp_haplotype=logical(),
192194
snp_interaction=logical(),
193195
snp_type=character(),
196+
risk_frequency= double(),
194197
standard_error= double(),
195198
range=character(),
196199
or_per_copy_number= double(),
@@ -210,6 +213,7 @@ associations_tbl <- function(
210213
multiple_snp_haplotype=multiple_snp_haplotype,
211214
snp_interaction=snp_interaction,
212215
snp_type=snp_type,
216+
risk_frequency=risk_frequency,
213217
standard_error=standard_error,
214218
range=range,
215219
or_per_copy_number=or_per_copy_number,

‎R/parse-associations.R‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -41,6 +41,7 @@ a_obj_to_associations_tbl <- function(association_ids, obj) {
4141
"multiSnpHaplotype",
4242
"snpInteraction",
4343
"snpType",
44+
"riskFrequency",
4445
"standardError",
4546
"range",
4647
"orPerCopyNum",
@@ -64,6 +65,7 @@ a_obj_to_associations_tbl <- function(association_ids, obj) {
6465
multiple_snp_haplotype= recode_missing(obj$multiSnpHaplotype,type='lgl'),
6566
snp_interaction= recode_missing(obj$snpInteraction,type='lgl'),
6667
snp_type= recode_missing(obj$snpType),
68+
risk_frequency= recode_missing(obj$riskFrequency,type='dbl'),
6769
standard_error= recode_missing(obj$standardError,type='dbl'),
6870
range= recode_missing(obj$range,from= c('nr','NR','NA','na','[NR]')),
6971
or_per_copy_number= recode_missing(obj$orPerCopyNum,type='dbl'),

‎man/associations-class.Rd‎

Lines changed: 2 additions & 0 deletions
Some generated files are not rendered by default. Learn more aboutcustomizing how changed files appear on GitHub.

‎man/associations_tbl.Rd‎

Lines changed: 1 addition & 0 deletions
Some generated files are not rendered by default. Learn more aboutcustomizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp