Ero sivun ”Käyttäjä:Teemu R” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p (→Testikoodia) |
p (→Testikoodia) |
||
| Rivi 32: | Rivi 32: | ||
out <- out * VedKasTeh | out <- out * VedKasTeh | ||
print(xtable(out@output), type = "html") | print(xtable(out@output), type = "html") | ||
</rcode> | |||
<rcode> | |||
library(OpasnetUtils) | |||
library(xtable) | |||
riippuvuudet <- data.frame( | |||
Name = c("RaaPatPitLuo", "VedDesTeh", "VedKasTeh"), | |||
Key = c("AEmnj6ZNfhIHAt2X", "mLHtzkEk6mWuvzGW", "hdXm6afLzU4maZEo") | |||
) | |||
ComputeDependencies(riippuvuudet) | |||
e1 <- RaaPatPitLuo | |||
e2 <- VedDesTeh | |||
out <- merge(e1, e2)@output | |||
test1 <- paste(e1@name, "Result", sep = "") %in% colnames(out) | |||
test2 <- paste(e2@name, "Result", sep = "") %in% colnames(out) | |||
rescol1 <- ifelse(test1, paste(e1@name, "Result", sep = ""), "Result") | |||
rescol2 <- ifelse(test2, paste(e2@name, "Result", sep = ""), "Result") | |||
if (!(test1 & test2)) { | |||
rescol1 <- "Result.x" | |||
rescol2 <- "Result.y" | |||
} | |||
#print(xtable(out), type = "html") | |||
out$Result <- '*'(out[[rescol1]], out[[rescol2]]) | |||
out <- new( | |||
"ovariable", | |||
dependencies = data.frame(Name = c(e1@name, e2@name)), | |||
output = out[, !colnames(out) %in% c(rescol1, rescol2)] | |||
) | |||
out <- CheckMarginals(out) | |||
i <- as.character(out@dependencies$Name)[1] | |||
cat(colnames(get(i)@output)[get(i)@marginal]) | |||
cat("Marginals:", paste(out@output[out@marginal], collapse = ", "),"\n") | |||
#print(xtable(out@output), type = "html") | |||
#print(xtable(RaaPatPitLuo@output), type = "html") | |||
#print(xtable(VedDesTeh@output), type = "html") | |||
#out <- RaaPatPitLuo * VedDesTeh | |||
#print(xtable(out@output), type = "html") | |||
#print(xtable(VedKasTeh@output), type = "html") | |||
#out <- out * VedKasTeh | |||
#print(xtable(out@output), type = "html") | |||
</rcode> | </rcode> | ||
Versio 5. heinäkuuta 2012 kello 08.36
Teemu Rintala
Aktiiviset mailit
- teemu.rintala.a@gmail.com
- teemu.j.rintala@aalto.fi
- teemu.rintala@thl.fi
Tausta
Sivarissa ja töissä Jounilla 2010 kesä - 2011 syksy. Parhaillani opiskelen Bioinformaatioteknologiaa Aalto-yliopistossa.
Taidot
Yli vuoden kokemuksella Opasnetin kanssa paininut. Pääasiassa olen koodannut malleja R:llä.