| Title: | Vaccine Induced Cellular Immunogenicity with Bivariate Modeling |
|---|---|
| Description: | A shiny app for accurate estimation of vaccine induced immunogenicity with bivariate linear modeling. Method is detailed in: Lhomme, Hejblum, Lacabaratz, Wiedemann, Lelievre, Levy, Thiebaut & Richert (2019). Submitted. |
| Authors: | Boris Hejblum [cre, aut] |
| Maintainer: | Boris Hejblum <[email protected]> |
| License: | GPL-3 |
| Version: | 0.5.4 |
| Built: | 2025-01-31 04:40:44 UTC |
| Source: | https://github.com/sistm/vici |
Toy data to upload in the app.
data(ICS_ex)data(ICS_ex)
A tab-separated .txt file
if(interactive()){ set.seed(1382019) nsubj <- 20 ntp <- 3 nstim <- 3 narm <- 3 subj <- rep(rep(rep(1:nsubj, each = ntp), times = nstim), times = narm) stim <- rep(rep(c("NS", "S1", "S2"), each = nsubj*ntp), times = narm) tp <- rep(rep(c("D0", "D1", "D3"), times=nsubj*nstim), times = narm) a <- rep(c("Placebo", "A2", "A3"), each = nsubj*nstim*ntp) y1 <- round(abs(rnorm(n=nsubj*nstim*ntp*narm,m = 0.03, sd=0.06)) + (stim=="S2" & a == "A2" & tp == "D1")*abs(rnorm(n=nsubj*nstim*ntp*narm, m = 0.05, sd=0.01)), 4) y2 <- round(abs(rnorm(n=nsubj*nstim*ntp*narm,m = 0.03, sd=0.06)) + (stim=="S1" & a =="A3" & tp == "D3")*abs(rnorm(n=nsubj*nstim*ntp*narm, m = 0.1, sd=0.02)), 4) ICS_ex <- cbind.data.frame("Subject" = subj, "StimulationPool" = stim, "TimePoint" = tp, "Arm" = a, "Response1" = y1, "Response2" = y2) #View(ICS_ex) write.table(ICS_ex, file="Documents/GitHub/vici/data/ICS_ex.txt", sep="\t", row.names = FALSE, quote = FALSE) }if(interactive()){ set.seed(1382019) nsubj <- 20 ntp <- 3 nstim <- 3 narm <- 3 subj <- rep(rep(rep(1:nsubj, each = ntp), times = nstim), times = narm) stim <- rep(rep(c("NS", "S1", "S2"), each = nsubj*ntp), times = narm) tp <- rep(rep(c("D0", "D1", "D3"), times=nsubj*nstim), times = narm) a <- rep(c("Placebo", "A2", "A3"), each = nsubj*nstim*ntp) y1 <- round(abs(rnorm(n=nsubj*nstim*ntp*narm,m = 0.03, sd=0.06)) + (stim=="S2" & a == "A2" & tp == "D1")*abs(rnorm(n=nsubj*nstim*ntp*narm, m = 0.05, sd=0.01)), 4) y2 <- round(abs(rnorm(n=nsubj*nstim*ntp*narm,m = 0.03, sd=0.06)) + (stim=="S1" & a =="A3" & tp == "D3")*abs(rnorm(n=nsubj*nstim*ntp*narm, m = 0.1, sd=0.02)), 4) ICS_ex <- cbind.data.frame("Subject" = subj, "StimulationPool" = stim, "TimePoint" = tp, "Arm" = a, "Response1" = y1, "Response2" = y2) #View(ICS_ex) write.table(ICS_ex, file="Documents/GitHub/vici/data/ICS_ex.txt", sep="\t", row.names = FALSE, quote = FALSE) }
Launch VICI Shiny App
run_app(...)run_app(...)
... |
additional arguments to be passed to the runApp function. |
if(interactive()){ vici::run_app() }if(interactive()){ vici::run_app() }