INSULAVOn mittaustulokset

Tämä sivu on tutkimus. Sivutunniste: Op_fi2695
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2695}}

INSULAVO-projektin mittaustulokset sisältävät kouluista mitattuja sisäilmatietoja. Tällä sivulla on toiminnallisuuksia, joiden avulla voit katsella tuloksia kuvaajina.

Aineisto ja menetelmät

Tutkimuksen yleiskuvaus löytyy sivulta INSULAVO.

Tulokset

Mittaustulokset aikasarjana

Huom! Dataa ei vielä ole, joten aikasarjoja ei voi näyttää.

Aikasarjan alku:
..-::

Aikasarjan loppu:
..-::

Mittauspaikan tunniste:

Parametrit:
Hiilidioksidi
Suhteellinen kosteus
Lämpötila

+ Näytä koodi - Piilota koodi

library(OpasnetBaseUtils)
library(ggplot2)
library(xtable)
library(KuovesiDatabase)

b <- function(a) {
	par(mar=c(5, length(levels(a$TagName)) * 3.5 + 1.5, 4, 4) + 0.1)
	
	x <- 0
	
	for (i in levels(a$TagName)) {
		if(i != levels(a$TagName)[1]) par(new = TRUE)
		plot(if(precision == 0) list(x = a$DateTime[a$TagName == i], y = a$Value[a$TagName == i]) else loess.smooth(a$DateTime[a$TagName == i], a$Value[a$TagName == i], 
			degree = 1, span = precision), axes = FALSE, xlab = "", ylab = "", type = "l", col = rainbow(length(levels(a$TagName)))[x + 1], main = "", 
			xlim = c(min(a$DateTime), max(a$DateTime)), ylim = c(min(a$Value[a$TagName == i]) - sd(a$Value[a$TagName == i]) * 
			0.1, max(a$Value[a$TagName == i]) + sd(a$Value[a$TagName == i]) * 0.1))
		axis(2, col = rainbow(length(levels(a$TagName)))[x + 1],lwd = 2, line = x * 3.5)
		mtext(2, text = i, line = x * 3.5 + 2, col = rainbow(length(levels(a$TagName)))[x + 1])
		x <- x + 1
	}
	
	axis.POSIXct(1, a$DateTime)
	mtext("Time", side = 1, col = "black", line = 2)
}

data <- op_baseGetData("opasnet_base", "Op_fi####")[, -c(1,2)]

#a <- kuovesi.Read(substr(start, 1, 19), substr(end, 1, 19), tags)

if(nrow(a) == 0) cat("Tyhjä datasetti, valitse eri aikasarja tai parametrit.\n") else b(a)

Mittaustulokset jakaumina

Tulokset voisi näyttää frekvenssijakaumina, josta siis näkyisi kuinka paljon mittaussuureet vaihtelevat.

Tuloksia voisi myös näyttää taulukkoina (esim. keskiarvo ± keskihajonta) tai korrelaatiokuvina RT * CO2 tms.

Katso myös

INSULAVO

Avainsanat

Sisäilma, koulu, rakennuskanta

Viitteet

Aiheeseen liittyviä tiedostoja