Use Advanced Size Function In R