Update replication.R

Robust S.E.'s