First commit
Second commit: Added t(data) since R was reading the data as a list
instead of a matrix.