odstrani_atr.R

#podaj vektor atributov, katere
#funkcija odstrani iz dataseta in izracuna napovedi
#atributi so podani z indeksom (da jih lazje odstranimo)
odstrani.atr.in.izr.napovedi <- function(dataset, attributes, model, formula, ...) {
	cat("OHAI!1!\n")
	results <- ""
	predictions <- ""
	for(i in 1:length(attributes)) {
		pr <- izracunaj.napovedi(formula, model, dataset[,-attributes[i]],...)
		#predictions <- c(predictions,pr)
		val <- rmse(pr)
		results <- c(results,val)
		cat("value: ",val," attribute: ",attributes[i],"\n")
	}
	cat("done.\n")
	data <- data.frame(results=results)
}