# Print recasted dataset using cast() function cast.data <- cast(molten.data, n~variable, sum) print(cast.data) cat(" ") time.cast <- cast(molten.data, time~variable, mean) print(time.cast)