transfer from old repo
This commit is contained in:
parent
cfa4a5f9cc
commit
277e2b8cf3
1111 changed files with 83736 additions and 0 deletions
22
apps/HWE Calc test app.R
Normal file
22
apps/HWE Calc test app.R
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
## -----------------------------------------------------------------------------
|
||||
## HWE Calc test app deployment
|
||||
## -----------------------------------------------------------------------------
|
||||
##
|
||||
## This app was written as proof of concept for my Research year program,
|
||||
## as no online calculators were found to calculate the
|
||||
## Hardy-Weinberg-equilibrium of allele distributions.
|
||||
##
|
||||
## Source: https://raw.githubusercontent.com/agdamsbo/daDoctoR/master/R/hwe_geno.R
|
||||
##
|
||||
## /AG Damsbo
|
||||
##
|
||||
|
||||
old_wd<-getwd()
|
||||
|
||||
setwd(paste0(old_wd,"/apps/HWE Calc"))
|
||||
shiny::runApp()
|
||||
|
||||
source(paste0(old_wd,"/apps/app_deploy.R"))
|
||||
|
||||
setwd(old_wd)
|
||||
|
||||
Loading…
Reference in a new issue