marcelcosta/Elispots-app
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

correction

Browse Source
This commit is contained in:
Costa
2020-11-04 12:05:58 +01:00
parent d252b74866
commit 43e29b5260
1 changed files with 21 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app.R
+5 -4
View File
@@ -96,10 +96,8 @@ server <- function(input, output) {
colnames(t_maps$label)<-c("x", "y") colnames(t_maps$label)<-c("x", "y")
t_maps[["brackets"]]<-as.data.frame(matrix(nrow = 0, ncol=4)) t_maps[["brackets"]]<-as.data.frame(matrix(nrow = 0, ncol=4))
colnames(t_maps$brackets)<-c("y1", "y2", "x1", "x2") colnames(t_maps$brackets)<-c("y1", "y2", "x1", "x2")
} dades$stats<<-t_stats
}else{
set.seed(123)
if (input$positive == T){
if (input$test == "T-test (adj Holm)"){ if (input$test == "T-test (adj Holm)"){
t_stats<-multi_stats(t, "value", "variable", "Groups", stat.test = "ttest") t_stats<-multi_stats(t, "value", "variable", "Groups", stat.test = "ttest")
} }
@@ -111,7 +109,10 @@ server <- function(input, output) {
t_stats<-t_stats %>% filter(p.signif != "ns") t_stats<-t_stats %>% filter(p.signif != "ns")
t_maps<-generate_labstats(t_stats, t, "value", "variable", "Groups") t_maps<-generate_labstats(t_stats, t, "value", "variable", "Groups")
}
set.seed(123)
if (input$positive == T){
ggplot(melt(t_substr, id=c("Mice", ctrl, "Groups")), aes(variable, value))+ ggplot(melt(t_substr, id=c("Mice", ctrl, "Groups")), aes(variable, value))+
labs(x="", y="Spots/2.5*10^5 cells")+ labs(x="", y="Spots/2.5*10^5 cells")+
# geom_errorbar(stat="summary", position=position_dodge(width=0.9), width=0.5, aes(fill=Groups))+ # geom_errorbar(stat="summary", position=position_dodge(width=0.9), width=0.5, aes(fill=Groups))+