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

f()