| Moderator:Jouni (see all) |
|
|
| 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))
|
| Obs | Area | Plant | Shadow | Medium | Sunny | References |
|---|---|---|---|---|---|---|
| 1 | London | Lettuce | 2.1 | 2.2 | 2.3 | A Gardner 2014 |
| 2 | New York | Lettuce | 1.5 | 1.7 | 1.9 | B Clemens 2015 |
| 3 | London | Tomato | 18 | 18 | 18 | A Gardner 2014 |
| 4 | New York | Tomato | 17 | 18 | 19 | B Clemens 2015 |
# 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('vegetable'),
Ident= c('Op_en7458/vegetable')
),
formula = function(...) {
gardenTower <- vegetable / 1000 # Scale to ton
return(gardenTower)
}
)
objects.store(gardenTower)
cat('Object ',gardenTower@name, ' stored.n')
|
