-
Notifications
You must be signed in to change notification settings - Fork 12
/
code_mathematica.R
25 lines (23 loc) · 992 Bytes
/
code_mathematica.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
fPrismMathematica <- function(input){
return(prismCodeBlock(text, language = "matlab"))
}
fMathematicacode <- function(input){
if(input$dist=="Normal"){
if(input$property=="pdf")
fMakeFunctionPaste(mainName="PDF[NormalDistribution",
params=c(input$mu,input$sigma),
postfixparams="x",
mathematica=TRUE)
else if(input$property=="log_pdf")
fMakeFunctionPaste(mainName=paste0("-0.5 Log[2 Pi] - Log[", eval(parse(text=input$sigma)),
"] - (x - ",
eval(parse(text=input$mu)), ")^2 / (2 ",
eval(parse(text=input$sigma)), "^2)"),
freeform=TRUE)
else if(input$property=="random")
fMakeFunctionPaste(mainName="RandomVariate[NormalDistribution",
params=c(input$mu,input$sigma),
postfixparams="n",
mathematica=TRUE)
}
}