SAS/R/Winbugs Code