Commit d62426ea authored by NAVRATIL VINCENT's avatar NAVRATIL VINCENT
Browse files

remove site p-value

parent 9e07dee8
......@@ -72,7 +72,7 @@ shinyServer(
raw_selected <- dginn_df_focus_reactive()[selected,]
models <- c("BppM1M2","BppM7M8","codemlM1M2","codemlM7M8")
models <- c("MEME","BppM1M2","BppM7M8","codemlM1M2","codemlM7M8","FUBAR")
df <- data.frame()
......@@ -81,9 +81,11 @@ shinyServer(
if(dginn_df_focus_reactive()[selected,paste(models[i],"NbSites",sep="_")] >0){
dginn_position <- as.integer(strsplit(as.character(dginn_df_focus_reactive()[selected,paste(models[i],"PSS",sep="_")]),",")[[1]])
dginn_pvalue <- as.integer(strsplit(as.character(dginn_df_focus_reactive()[selected,paste(models[i],"p-value",sep="_")]),",")[[1]])
#dginn_pvalue <- as.integer(strsplit(as.character(dginn_df_focus_reactive()[selected,paste(models[i],"p-value",sep="_")]),",")[[1]])
#dginn_position_df <- data.frame("models" = models[i],"site" = dginn_position,"p-value" = dginn_pvalue )
dginn_position_df <- data.frame("models" = models[i],"site" = dginn_position)
dginn_position_df <- data.frame("models" = models[i],"site" = dginn_position,"p-value" = dginn_pvalue )
df <- rbind(df,dginn_position_df)
}
......@@ -104,7 +106,7 @@ shinyServer(
raw_selected <- dginn_df_full_reactive()[selected,]
models <- c("BppM1M2","BppM7M8","codemlM1M2","codemlM7M8")
models <- c("MEME","BppM1M2","BppM7M8","codemlM1M2","codemlM7M8")
df <- data.frame()
......@@ -113,9 +115,10 @@ shinyServer(
if(dginn_df_full_reactive()[selected,paste(models[i],"NbSites",sep="_")] >0){
dginn_position <- as.integer(strsplit(as.character(dginn_df_full_reactive()[selected,paste(models[i],"PSS",sep="_")]),",")[[1]])
dginn_pvalue <- as.integer(strsplit(as.character(dginn_df_full_reactive()[selected,paste(models[i],"p-value",sep="_")]),",")[[1]])
#dginn_pvalue <- as.integer(strsplit(as.character(dginn_df_full_reactive()[selected,paste(models[i],"p-value",sep="_")]),",")[[1]])
dginn_position_df <- data.frame("models" = models[i],"site" = dginn_position,"p-value" = dginn_pvalue )
#dginn_position_df <- data.frame("models" = models[i],"site" = dginn_position,"p-value" = dginn_pvalue )
dginn_position_df <- data.frame("models" = models[i],"site" = dginn_position)
df <- rbind(df,dginn_position_df)
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment