Update guttaman.R