Nothing
env_soluteProductionRateOverTime <-
function(resultFileFolder,resultFileType,numTimepoints,outputPeriod,soluteReqd)
{
allMeasureResults<-NULL
for(tp in seq(from=0,to=numTimepoints,by=outputPeriod))
{
# Read in the result
xmlResultData<-readSimResultFile(resultFileFolder,resultFileType,tp)
globalProdRates<-env_returnGlobalProductionRates(xmlResultData)
# Append to the list of growth rates
allMeasureResults<-rbind(allMeasureResults,xmlValue(globalProdRates[[soluteReqd]]))
}
return(allMeasureResults)
}
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.