Test variable B: Difference between revisions
Jump to navigation
Jump to search
(Created page with " '''Brief guidance about the contents.''' This box of text can removed. <nowiki>{{variable}}</nowiki> template: Put your own username in moderator=Username unless ...") |
mNo edit summary |
||
(8 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
{{variable|moderator=Erkki Kuusisto|stub=Yes}} | {{variable|moderator=Erkki Kuusisto|stub=Yes}} | ||
[[Category:Code under inspection]] | |||
== Question == | == Question == | ||
A simple test variable that fetches the '''data''' defined in "Test variable A", as well as a '''function''' defined in Test variable C? | |||
== Answer == | == Answer == | ||
Line 44: | Line 16: | ||
=== Formula === | === Formula === | ||
# The code below is used for practising; under development. | |||
<rcode showcode="1" | |||
name="answer" | |||
label="Run" | |||
include=" | |||
page:Object-oriented_programming_in_Opasnet|name:answer| | |||
page:OpasnetBaseUtils|name:generic| | |||
page:Test_variable_C|name:ERF_road_Lden_HA | |||
" | |||
> | |||
library(OpasnetBaseUtils) | |||
library(xtable) | |||
cat("Initiation successful. \n") | |||
out <- op_baseGetData("opasnet_base", "Op_en5682") # Fetches data from Test variable A. | |||
out <- tidy(out , direction = "wide") | |||
# print(out) | |||
print(xtable(out), type = 'html', html.table.attributes = "class='sortable'") | |||
#mode(out) | |||
#length(out) | |||
#unclass(out) | |||
road_lower_bound <- out[out$Source == "Road" & out$Indicator == "Lden", "Lower bound (dB)"] | |||
road_upper_bound <- out[out$Source == "Road" & out$Indicator == "Lden", "Upper bound (dB)"] | |||
road_exposed <- out[out$Source == "Road" & out$Indicator == "Lden", "Result"] | |||
print(road_exposed) | |||
print(road_lower_bound) | |||
print(road_upper_bound) | |||
# d[d$Row %in% 2:4, ] | |||
# colnames(out)[colnames(out) == "obs.1"] | |||
Lden <- 60 | |||
HA <- ERF_road_Lden_HA(Lden) | |||
Lden | |||
HA | |||
</rcode> | |||
==See also== | ==See also== |
Latest revision as of 11:08, 26 August 2013
Moderator:Erkki Kuusisto (see all) |
This page is a stub. You may improve it into a full page. |
Upload data
|
Question
A simple test variable that fetches the data defined in "Test variable A", as well as a function defined in Test variable C?
Answer
Rationale
Dependencies
Formula
- The code below is used for practising; under development.
library(OpasnetBaseUtils) library(xtable) cat("Initiation successful. \n") out <- op_baseGetData("opasnet_base", "Op_en5682") # Fetches data from Test variable A. out <- tidy(out , direction = "wide") # print(out) print(xtable(out), type = 'html', html.table.attributes = "class='sortable'") #mode(out) #length(out) #unclass(out) road_lower_bound <- out[out$Source == "Road" & out$Indicator == "Lden", "Lower bound (dB)"] road_upper_bound <- out[out$Source == "Road" & out$Indicator == "Lden", "Upper bound (dB)"] road_exposed <- out[out$Source == "Road" & out$Indicator == "Lden", "Result"] print(road_exposed) print(road_lower_bound) print(road_upper_bound) # d[d$Row %in% 2:4, ] # colnames(out)[colnames(out) == "obs.1"] Lden <- 60 HA <- ERF_road_Lden_HA(Lden) Lden HA |
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>