This page is a method.
The page identifier is Op_en7458 |
|---|
| Moderator:Jouni (see all) |
|
Give your opinion to the peer rating of the content of this page. |
| Upload data
|
Test branch is a branch of Handprinter. This page is a test case how to manage branches.
How to estimate the life-cycle impacts of Test branch?
# This is code Op_enXXXX/ on page [[Garden Tower]]
library(OpasnetUtils)
objects.latest(paste('Op_en', PAGEID, sep = ''), code_name = 'gardenTower')
gardenTower <- EvalOutput(gardenTower)
oprint(summary(gardenTower))
|
# This is code Op_enXXXX/vegetable on page [[Garden Tower]]
library(OpasnetUtils)
vegetable <- Ovariable('vegetable',
ddata = paste('Op_en', PAGEID, sep = ''),
subset = 'vegetable')
objects.store(vegetable)
cat('Object',vegetable@name, 'stored.n')
|
# This is code Op_enXXXX/gardenTower on page [[Garden Tower]]
library(OpasnetUtils)
gardenTower <- Ovariable('gardenTower',
dependencies = data.frame(
Name = c('vegeproduction', 'waterconsumption')
),
formula = function(...) {
gardenTower <- vegeproduction / 1000 # Scale to kg
return(gardenTower)
}
)
objects.store(gardenTower)
cat('Object ',gardenTower@name, ' stored.n')
|
