Fill Function In R