# uncomment to zoom (X axis between 0 and input$alphaVal) (use "+ xlim(0,as.numeric(alphaVal))" instead, to redraw geom_density with only data under threshold)
igraphGraph<-graph_from_adjacency_matrix(adjacency,diag=FALSE,mode="upper",weighted=TRUE)# "upper" for adjusted p-value, lower for p-value not adjusted