Update functions.R

getcov