Difference between revisions of "Adjusting ventilation based on health"

library(OpasnetUtils)
library(xtable)
	dependencies <- data.frame(
		Name = c("C_lim", "k", "P","C_out"),
		Key = c("","")
		)	

	funktio<- function(dependencies, ...) {
		ComputeDependencies(dependencies, ...)

		temp<- C_lim * k / (P * C_out - C_lim)
		
		if(is.numeric(temp)) temp <- data.frame(Result = temp)

		return(temp)
	}

	alim <- new("ovariable",
	 name		="Maximal ventilation level (ach)",
	 dependencies 	= dependencies,
	 formula 	= funktio)

objects.put(alim)
out<-EvalOutput(alim)
print(xtable(out@output), type = 'html')