Logsitic_Regresssion <- function(Data, Outcome, Input1){
f <- substitute(glm(Outcome~Input1, data=Data, family=binomial))
ff <- eval(f)
print(summary(ff))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.