Nothing
PSM.template <- function(Linear=FALSE,dimX=2,dimY=3,dimU=4,dimEta=5,file="") {
str <- "MyModel <- vector(mode=\"list\")"
if(Linear) {
str <- paste(str,"MyModel$Matrices=function(phi) {",sep="\n")
str <- paste(str," list(",sep="\n")
str <- paste(str,"\n matA=matrix(c( ), nrow=",dimX,", ncol=",dimX,"),",sep="")
if(dimU)
str <- paste(str,"\n matB=matrix(c( ), nrow=",dimX,", ncol=",dimU,"),",sep="")
str <- paste(str,"\n matC=matrix(c( ), nrow=",dimY,", ncol=",dimX,")",sep="")
if(dimU)
str <- paste(str,",\n matD=matrix(c( ), nrow=",dimX,", ncol=",dimU,")",sep="")
str <- paste(str," )",sep="\n")
str <- paste(str,"}",sep="\n")
} else {
str <- paste(str,"MyModel$Functions$f = function(x,u,time,phi) {",sep="\n")
str <- paste(str,"\n matrix(c( ), nrow=",dimX,", ncol=1)",sep="")
str <- paste(str,"}",sep="\n")
str <- paste(str,"MyModel$Functions$df = function(x,u,time,phi) {",sep="\n")
str <- paste(str,"\n matrix(c( ), nrow=",dimX,", ncol=",dimX,")",sep="")
str <- paste(str,"}",sep="\n")
str <- paste(str,"MyModel$Functions$g = function(x,u,time,phi) {",sep="\n")
str <- paste(str,"\n matrix(c( ), nrow=",dimY,", ncol=1)",sep="")
str <- paste(str,"}",sep="\n")
str <- paste(str,"MyModel$Functions$dg = function(x,u,time,phi) {",sep="\n")
str <- paste(str,"\n matrix(c( ), nrow=",dimY,", ncol=",dimX,")",sep="")
str <- paste(str,"}",sep="\n")
}
str <- paste(str,"MyModel$h = function(eta,theta,covar) {",sep="\n")
str <- paste(str," phi <- theta",sep="\n")
str <- paste(str," phi",sep="\n")
str <- paste(str,"}",sep="\n")
if(Linear) {
str <- paste(str,"MyModel$S = function(phi) {",sep="\n")
} else {
str <- paste(str,"MyModel$S = function(u,time,phi) {",sep="\n")
}
str <- paste(str,"\n matrix(c( ), nrow=",dimY,", ncol=",dimY,")",sep="")
str <- paste(str,"}",sep="\n")
if(Linear) {
str <- paste(str,"MyModel$SIG = function(phi) {",sep="\n")
} else {
str <- paste(str,"MyModel$SIG = function(u,time,phi) {",sep="\n")
}
str <- paste(str,"\n matrix(c( ), nrow=",dimX,", ncol=",dimX,")",sep="")
str <- paste(str,"}",sep="\n")
str <- paste(str,"MyModel$X0 = function(Time,phi,U) {",sep="\n")
str <- paste(str,"\n matrix(c( ), nrow=",dimX,", ncol=1)",sep="")
str <- paste(str,"}",sep="\n")
str <- paste(str,"MyModel$ModelPar = function(THETA) {",sep="\n")
str <- paste(str," list(theta=list( )",sep="\n")
if(dimEta)
str <- paste(str,",\n OMEGA=matrix(c( ), nrow=",dimEta,", ncol=",dimEta,")\n ",sep="")
str <- paste(str,")\n}",sep="")
str <- paste("\n",str,"\n\n",sep="\n")
cat(str,file=file)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.