R Function For Square