How can I plot a 3D array, say a = array(cos(1:(60*50*4)), c(60, 50, 4)), to look something like this (preferably using lattice R package)?

How can I plot a 3D array, say a = array(cos(1:(60*50*4)), c(60, 50, 4)), to look something like this (preferably using lattice R package)?
