diff --git a/R/app_server.R b/R/app_server.R
index 2052408..50c4b7d 100644
--- a/R/app_server.R
+++ b/R/app_server.R
@@ -10,7 +10,7 @@ app_server <- function(input, output, session) {
   # Your application server logic
 
   ##Add server configurations
-  options(shiny.maxRequestSize = 10000 * 1024^2)  # Set maximum upload size to 10GB
+  options(shiny.maxRequestSize = 1000000 * 1024^2)  # Set maximum upload size to 1000GB
   #shiny.maxRequestSize = 10000 * 1024^2; # 10 GB <- This is for a future limit when using BI's server remotely
 
   callModule(mod_DosageCall_server,
diff --git a/README.md b/README.md
index bc3a1ba..90199ef 100644
--- a/README.md
+++ b/README.md
@@ -133,7 +133,7 @@ BIGapp leverages a powerful suite of R packages:
 
 ## Funding
 
-BIGapp development is supported by [Breeding Insight](https://www.breedinginsight.org/), a USDA-funded initiative based at Cornell University.
+BIGapp development is supported by [Breeding Insight](https://www.breedinginsight.org/), a USDA-funded initiative based at University of Florida - IFAS.
 
 ## Citation
 
diff --git a/tests/testthat/test-DosageCall.R b/tests/testthat/test-DosageCall.R
index de6f7fd..98bd49b 100644
--- a/tests/testthat/test-DosageCall.R
+++ b/tests/testthat/test-DosageCall.R
@@ -29,8 +29,8 @@ test_that("Dosage Calling from MADC file",{
                           model = model_select,
                           nc = cores)
   
-  expect_equal(sum(mout$snpdf$bias), 412.6139, tolerance = 0.01)
-  expect_equal(sum(mout$inddf$postmean), 95233.1, tolerance = 0.01)
+  expect_equal(sum(mout$snpdf$bias), 413, tolerance = 0.5)
+  expect_equal(sum(mout$inddf$postmean), 95229.13, tolerance = 0.01)
   
   # Convert updog to VCF
   BIGr:::updog2vcf(
@@ -96,8 +96,8 @@ test_that("Dosage Calling from VCF file",{
                           model = model_select,
                           nc = cores)
   
-  expect_equal(sum(mout$snpdf$bias), 412.6139, tolerance = 0.01)
-  expect_equal(sum(mout$inddf$postmean), 95233.1, tolerance = 0.01)
+  expect_equal(sum(mout$snpdf$bias), 413, tolerance = 0.5)
+  expect_equal(sum(mout$inddf$postmean), 95229.13, tolerance = 0.01)
   
   # Convert updog to VCF
   BIGr::updog2vcf(
@@ -221,8 +221,8 @@ test_that("Dosage Calling from VCF file f1 and s1 model",{
                           model = input$updog_model,
                           nc = cores)
   
-  expect_equal(sum(mout$snpdf$bias), 440.109, tolerance = 0.01)
-  expect_equal(sum(mout$inddf$postmean), 94611.59, tolerance = 0.01)
+  expect_equal(sum(mout$snpdf$bias), 440, tolerance = 0.5)
+  expect_equal(sum(mout$inddf$postmean), 94249.05, tolerance = 0.01)
   
   # Convert updog to VCF
   BIGr::updog2vcf(