diff --git a/R/create_LDprofile.R b/R/create_LDprofile.R index 31e5a760e28edfa8200d6db0642d936559009e67..7fbc4f3c2fd2c0b1061d96fe29bb31850471c5c4 100644 --- a/R/create_LDprofile.R +++ b/R/create_LDprofile.R @@ -20,6 +20,11 @@ #' data(snps) #' ## Create an LD profile using this data #' create_LDprofile(snps$distances,as.matrix(snps[,3:12]),0.001) +#' ## To get the Beta distribution parameter estimates, the fitdistrplus package is required +#' if (requireNamespace("fitdistrplus", quietly = TRUE)==TRUE) { +#' create_LDprofile(snps$distances,as.matrix(snps[,3:12]),0.001,beta_params=TRUE) +#' } +#' #' #' @export #' @seealso \code{\link{Zalpha_expected}} \code{\link{Zalpha_rsq_over_expected}} \code{\link{Zalpha_log_rsq_over_expected}} \code{\link{Zalpha_Zscore}} \code{\link{Zalpha_BetaCDF}} \code{\link{Zbeta_expected}} \code{\link{Zbeta_rsq_over_expected}} \code{\link{Zbeta_log_rsq_over_expected}} \code{\link{Zbeta_Zscore}} \code{\link{Zbeta_BetaCDF}} \code{\link{Zalpha_all}} diff --git a/man/create_LDprofile.Rd b/man/create_LDprofile.Rd index 95c51f28f1278f70c9bb35b517b0123de0ecda60..30a62b8904dfe9207a2f717adf48b338d6f56077 100644 --- a/man/create_LDprofile.Rd +++ b/man/create_LDprofile.Rd @@ -33,6 +33,11 @@ By default, Beta parameters are not calculated. To calcualte Beta parameters, ne data(snps) ## Create an LD profile using this data create_LDprofile(snps$distances,as.matrix(snps[,3:12]),0.001) +## To get the Beta distribution parameter estimates, the fitdistrplus package is required +if (requireNamespace("fitdistrplus", quietly = TRUE)==TRUE) { + create_LDprofile(snps$distances,as.matrix(snps[,3:12]),0.001,beta_params=TRUE) +} + } \references{