Nothing
userunit <- function(charname, logscalest="", value, format="expression", Nbstyle=T) { ##
tmp <- formatName(charname, format=format, Nbstyle=Nbstyle)
fullstring <- logscalest
if ( ("1D" %in% blackbox.getOption("DemographicModel")) && charname=="latt2Ns2") {
if (Nbstyle) {
fullstring <- paste(" (", blackbox.getOption("GeoUnit"), ")", fullstring, sep="") ## default for Nb in 1D
} else fullstring <- paste(" (lattice units)", fullstring, sep="") ##
}
if (format=="expression") fullstring <- chartr(" ", "~~", fullstring)
if(format!="expression") {return(paste(tmp, fullstring, sep=""))} else {return(parse(text=paste(tmp, eval(bquote(.(fullstring))), sep="")))}
}
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.