typo area2radius.stack.R and in plots.r