# NOT RUN {
local(envir=.PBSmodEnv,expr={
#law of free food: http://www.phdcomics.com/comics.php?f=1223
createWin( c(
"vector names=\"foodquality hunger cost\" values=\"0.6 0.8 0.1\" width=10",
"entry name=taste edit=F label=taste:" ), astext=TRUE )
getWinVal( scope="P" )
taste <- foodquality * hunger / cost
updateGUI()
})
# }
Run the code above in your browser using DataLab