R/Module_GUI_HelperFunctions.R

In MichaelFolkes/forecastR_package: Forecast stuff

# FUNCTIONS USED ON THER SERVER SIDE OF THE GUI

#model.types <- list("Naive" = "Naive", "Time Series" = c("TimeSeriesArima","TimeSeriesExpSmooth"), "Sibling" = c("SibRegSimple","SibRegLogPower", "SibRegKalman"))


extractSettings <- function(model.type,avg.years,BoxCox,int.avg,pred.var =NULL,rate.avg = NULL,last.n = NULL){

	if(model.type %in% c("Naive")){ settings.out <- list(avg.yrs = avg.years) }
	if(model.type %in% c("TimeSeriesArima","TimeSeriesExpSmooth")){ settings.out <- list(BoxCox = BoxCox) }
	if(model.type %in% c("SibRegSimple","SibRegLogPower")){ settings.out <- NULL }
	if(model.type %in% c( "SibRegKalman")){ settings.out <- list(int.avg = int.avg) }
	if(model.type %in% c( "ReturnRate")){ settings.out <- list(pred.label = pred.var,avg = rate.avg,last.n = last.n)

	#print(settings.out)
	#stop()

	}
	

	
return(settings.out)
}