add na.rm=TRUE