add sample.R, update cachematrix.R