aprof.R