f <- function(){
	ks.test(c(1,2,3,4,5),(9,10,11,12))
}

f