|
|
| (20 intermediate revisions by 2 users not shown) |
| Line 1: |
Line 1: |
| − | ===Old R-code===
| + | [[Category:Sandbox]] |
| − | | |
| − | '''Test code
| |
| − | | |
| − | <rcode>
| |
| − | library(xtable)
| |
| − | library(OpasnetUtils)
| |
| − | var1 <- data.frame(c = c("A", "A", "C"), d = c("D", "E", "E"), Result = 4:6)
| |
| − | var2 <- var1
| |
| − | dec <- data.frame(Decision = rep(c("Decision 1", "Decision 2"), each = 2), Option = c("OptA", "OptB"), Variable = c("var1", "var1", "var1", "var2"), Cell = c(" c: A; d: E", " d: D"), Change = c("Replace", "Multiply"), Result = 7:10)
| |
| − | var1
| |
| − | dec
| |
| − | out <- decisions.apply(dec)
| |
| − | cat("Variable", names(out)[1], "\n")
| |
| − | print(xtable(out[[1]]), type = 'html')
| |
| − | cat("Variable", names(out)[2], "\n")
| |
| − | print(xtable(out[[2]]), type = 'html')
| |
| − | | |
| − | data <- tidy(op_baseGetData("opasnet_base", "Op_en5466"), direction = "wide")
| |
| − | data <- data[colnames(data) != "Unit"]
| |
| − | data
| |
| − | data <- decisions.apply(data)
| |
| − | | |
| − | </rcode>
| |
| − | | |
| − | {{attack|# |Why does the var2 outcome show row 3 OptB A E 50, because the decision should be applied only for row 1 OptB A D 4 ? There is a bug somewhere. |--[[User:Jouni|Jouni]] 16:12, 16 May 2012 (EEST)}}
| |
| − | | |
| − | ===="Selvemmät" printit====
| |
| − | | |
| − | {{comment|# |Oletko saanut bugin selville? Luulen, että decisions.apply jossain vaiheessa sekoittaa rivit niin, että ensimmäiselle riville tarkoitettu kertolasku kohdistuukin kolmannelle riville. Mutta miksi?|--[[User:Jouni|Jouni]] 08:53, 29 June 2012 (EEST)}}
| |
| − | :{{comment|# |Itsekin ajattelin samaa, mutta en ole vielä ymmärtänyt miksi se toimii niin.. Minulla meni pari päivää jahdatessa tuon yhden virheilmoituksen syytä, kunnes Teemu selvensi minulle että se on tarkoituskin tulla, joskin virheilmoituksessa on kuulemma parantamisen varaa. Nyt vasta alan ymmärtää paremmin miten tuo decisions.apply oikein toimii.|--[[User:Mori|Mori]] 17:06, 3 July 2012 (EEST)}}
| |
| − | | |
| − | <rcode showcode = "1">
| |
| − | library(xtable)
| |
| − | library(OpasnetUtils)
| |
| − | | |
| − | var1 <- data.frame(c = c("A", "A", "C"), d = c("D", "E", "E"), Result = 4:6)
| |
| − | cat("var1\n")
| |
| − | print(xtable(var1), type = "html")
| |
| − | | |
| − | var2 <- var1
| |
| − | cat("var2\n")
| |
| − | print(xtable(var2), type = "html")
| |
| − | | |
| − | dec <- data.frame(Decision = rep(c("Decision 1", "Decision 2"), each = 2), Option = c("OptA", "OptB"), Variable = c("var1", "var1", "var1", "var2"), Cell = c(" c: A; d: E", " d: D"), Change = c("Replace", "Multiply"), Result = 7:10)
| |
| − | | |
| − | cat("Decision\n")
| |
| − | print(xtable(dec), type = "html")
| |
| − | | |
| − | out <- decisions.apply(dec)
| |
| − | | |
| − | cat("Variable", names(out)[1], "output\n")
| |
| − | print(xtable(out[[1]]), type = 'html')
| |
| − | | |
| − | cat("Variable", names(out)[2], "output\n")
| |
| − | print(xtable(out[[2]]), type = 'html')
| |
| − | | |
| − | </rcode>
| |
| − | | |
| − | ===New R-code===
| |
