startup.func <- function()
{
# startup.func: 
# Sources the GAM functions into Splus.
# Usage:
#   source("startup.func")    
#   startup.func()
# This function only needs to be run once. 
	source("indsp.func")
	source("bootstrap.func")
	source("outer.boot.func")
	source("diffop.func")
	source("indmat.derivmat.func")
	source("index.ci.func")
	source("deriv.ci.func")
	source("sp.plot")
}