arr <- array(1)

arr <- append(arr,3)

arr[1] <- 2

print(arr[1])