Add R scripts for sjtuwifi