Add crosstype argument to read.cross