Commit 9475b80e authored by Virgile Baudrot's avatar Virgile Baudrot
Browse files

update kernel gaussian

parent 91bdbc7c
......@@ -153,6 +153,9 @@ mod_tabItemDispersal_ui <- function(id){
),
numericInput(inputId = ns("kernelGaussian_a"),
label = "parameter a",
value = 1),
numericInput(inputId = ns("kernelGaussian_b"),
label = "parameter b",
value = 1)
),
# negative exponential
......@@ -351,8 +354,8 @@ mod_tabItemDispersal_server <- function(input, output, session, r){
"theta" = input$kernelStudent_theta),
"kernelFatTail" = list("a" = input$kernelFatTail_a,
"b" =input$kernelFatTail_b),
"kernelGaussian" = list("a" = input$lernelGaussian_a,
"b" = input$kernelGausian_b),
"kernelGaussian" = list("a" = input$kernelGaussian_a,
"b" = input$kernelGaussian_b),
"kernelNegExp" = list("a" = input$kernelNegExp_a),
"kernel2Dt" = list("a" = input$kernel2Dt_a,
"b" = input$kernel2Dt_b),
......
Supports Markdown
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