Branch creator

This page is a knowledge crystal of subtype method. The page identifier is Op_en7457
Moderator:Jouni (see all)
Upload data {{#opasnet_base_link:Op_en7457}}

Question

How to create a branch for handprinter?

Answer

Step 1: Create a page for branch

Open two copies of this page to your browser. Give a name to your branch and click to create a new page for it. On the other page, continue from step 2.

<createbox> break=yes width=50 buttonlabel=Create branch align=left </createbox>

Step 2: Fill in data about your branch

Fill in the form below, click to create the content for the page, and copy-paste that onto the page you created in step 1. Save the page.

What was the branch name again?: Give a short name (no spaces!) to the final outcome variable in the branch model.: What are the input variables for the outcome variable? Format c('var1', 'var2'): Give free-text rationale about what the outcome variable is and how it is calculated.: Give a short name for one input variable (others are added afterwards if needed): Give a data table for the input variable: - paste table here - Cancel Give free-text rationale about what the intermediate variable is and how it is calculated.: + Show code- Hide code library(OpasnetUtils) t2bdata <- "" #wiki_username <- "Jouni" #branchname <- "Garden tower branch" #PAGEID <- "1234" #output.ovariable <- "gardentower" #intermediate.ovariable <- "vegeproduction" #t2bdata <- "tobefilled" #dependencies <- c("vegeproduction", "wasteproduction", "waterconsumption") #output.rationale <- "Garden tower composts kitchen waste and turns it into soil." #intermediate.rationale <- "vegeproduction is the amount of vegetables produced in the garden tower. It is a critical benefit that reduces consumption of other products and thus footprint." #<t2b name='Tire inflation parameters' index='Parameter,Unit' obs='Result' unit='-'> #Pressure drop per temperature drop|PSI /10°F|0.5:1:2 #Fuel economy sensitivity|% /PSI|0.4 #Miles driven per year|mi /a|10000 #Fuel consumption|gl /mi|0.04 #Pressure deficit|PSI|2 #</t2b> text1 <- paste("[[Category:Life cycle assessment]] [[Category:Handprinter]] {{method|moderator=", wiki_username, "}} ", "'''{{PAGENAME}}''' is a '''branch''' of Handprinter. This page is a test case how to manage branches. == Question == How to estimate the life-cycle impacts of '''{{PAGENAME}}'''? == Answer == @rcode embed=1 variables=' name:PAGEID|type:hidden|default:`{{PAGEID}}` '> # This is code Op_enXXXX/ on page [[", branchname, "]] library(OpasnetUtils) objects.latest(paste('Op_en', PAGEID, sep = ''), code_name = '", output.ovariable, "') ", output.ovariable, " <- EvalOutput(", output.ovariable, ") oprint(summary(", output.ovariable, ")) @/rcode> == Rationale == === ", output.ovariable, " === @rcode name='", output.ovariable, "' embed=1 label='Initiate ", output.ovariable, " (for developers only)' variables=' name:PAGEID|type:hidden|default:`{{PAGEID}}` '> # This is code Op_enXXXX/", output.ovariable, " on page [[", branchname, "]] library(OpasnetUtils) ", output.ovariable, " <- Ovariable('", output.ovariable, "', dependencies = data.frame( Name = c('", paste(dependencies, collapse = "', '"), ") ), formula = function(...) { ", output.ovariable, " <- ", intermediate.ovariable, " return(", output.ovariable, ") } ) rm(wiki_username) objects.store(list=ls()) cat('Objects', ls(), 'stored.\n') @/rcode> ", output.rationale, " ", "=== ", intermediate.ovariable, " === ", t2bdata, "@rcode name='", intermediate.ovariable, "' embed=1 label='Initiate ", intermediate.ovariable, " (for developers only)'> # This is code Op_enXXXX/", intermediate.ovariable, " on page [[", branchname, "]] library(OpasnetUtils) ", intermediate.ovariable, " <- Ovariable('", intermediate.ovariable, "', ddata = 'Op_en{{PAGEID}}', subset = ", intermediate.ovariable, ") objects.store(", intermediate.ovariable, ") cat('", intermediate.ovariable, "stored.@@') ", "@/rcode> ", intermediate.rationale, " ", "== See also == * [[Handprinter]] * [[Developing branches]] ", "== Related files == ", sep = "") text2 <- strsplit(text1, split = "\n")[[1]] text2 <- gsub("@@", "\n", text2) text2 <- gsub("@", "<", text2) text2 <- data.frame(Pagetemplate = text2) oprint(text2, include.rownames = FALSE)