# Array Example 
# Read data from a file into a 3x3x3 array.

cat('Array A\n\n')
A <- array(scan('array.txt'), c(3, 3, 3))
print(A)