INTERA:Formaldehyde concentrations in Europe: Difference between revisions
Jump to navigation
Jump to search
m (→Formula) |
m (→Formula) |
||
Line 19: | Line 19: | ||
<rcode> | <rcode> | ||
form <- read.table("M:/Intera_data/Formaldehyde_EU.csv", header = TRUE, sep = ";", dec = ",", strip.white = TRUE, fill = TRUE) #.csv based on excel | form <- read.table("M:/Intera_data/Formaldehyde_EU.csv", header = TRUE, sep = ";", dec = ",", strip.white = TRUE, fill = TRUE) #.csv based on excel | ||
temp1 <- reshape(form[-(1:nrow(form))[duplicated(form[,1:5])],], idvar = c("Country", "City", "Year", "Environment", "Environment_spec"), | |||
times = colnames(form)[6:ncol(form)], timevar = "Parameter", varying = | times = colnames(form)[6:ncol(form)], timevar = "Parameter", varying = | ||
list(colnames(form)[6:ncol(form)]), direction = "long") #reshaped from 2d value representation to 1d | list(colnames(form)[6:ncol(form)]), direction = "long") #reshaped from 2d value representation to 1d | ||
temp2 <- reshape(form[(1:nrow(form))[duplicated(form[,1:5])],], idvar = c("Country", "City", "Year", "Environment", "Environment_spec"), | |||
times = colnames(form)[6:ncol(form)], timevar = "Parameter", varying = | |||
list(colnames(form)[6:ncol(form)]), direction = "long") #resh | |||
form <- rbind(temp1,temp2) | |||
colnames(form)[7] <- "Result" | colnames(form)[7] <- "Result" | ||
form[is.na(form$Result),"Result"] <- "" | |||
form[form$Result=="","Result"] <- NA | form[form$Result=="","Result"] <- NA | ||
#library(OpasnetBaseUtils) | #library(OpasnetBaseUtils) |
Revision as of 13:36, 25 March 2011
[show] |
---|
Scope
The Formaldehyde concentrations in indoor, outdoor and personal measurements in several European countries.
Definition
Data
Data is obtained from various studies (like Expolis). Refs are added later.
Dependencies
Unit
ugm^-3
Formula
Result
If possible, a numerical expression or distribution.
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>