added structureeffect R code for data analysis
cosmetics