Commit 9540f3d4 authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Mean parameters for normalisation

parent cc9a6efc
......@@ -306,9 +306,7 @@ CheckMasque <- function(input, values, check_mail=FALSE)
# HowTo = "<h6><strong>Make sure that you have click the &laquo Get key &raquo button and that you have pasted the key sent by mail </strong></h6>"
# }
#
print(check_mail)
if(is.null(Error) && is.null(values$login_email) && check_mail){
print("fuck")
Error = "<h6><strong>Invalid key </strong></h6>";
HowTo = "<h6><strong>Make sure that you have click the &laquo Get key &raquo button </strong></h6>"
}
......
......@@ -568,7 +568,7 @@ body <- dashboardBody(
radioButtons("locfunc",h6(strong("Local function")),choices = c("Median"="median","Shorth"="shorth"))
),
column(width=3,
radioButtons("fitType",h6(strong("Relationship")),choices = c("Parametric"="parametric","Local"="local"))
radioButtons("fitType",h6(strong("Relationship")),choices = c("Parametric"="parametric","Local"="local", "Mean"="mean"))
)
# column(width=3,uiOutput("RefSelect"))
)
......
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