x <- matrix(c(1,4,7,4,0,8,9,4,6,3,2,2,5,7,5,6), byrow = TRUE, nrow = 4)
addmargins(x)
                Sum
     1  4  7  4  16
     0  8  9  4  21
     6  3  2  2  13
     5  7  5  6  23
Sum 12 22 23 16  73

Back to Table of Contents

LS0tDQp0aXRsZTogIkpvaW50IEZyZXF1ZW5jaWVzIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KLSBUaGUgYWJzb2x1dGUgZnJlcXVlbmN5IGhpaiA9IGgoYWksIGJqKSBvZiB0aGUgY29tYmluYXRpb24gKGFpLCBiaiksIGkgPSAxLCDigKYgLCBrLCBqID0gMSwg4oCmICwgbSwgY29ycmVzcG9uZHMgdG8gdGhlIG51bWJlciBvZiBwYWlycyh4aSwgeWopIG9mIHRoZSBvcmlnaW5hbCBsaXN0IHRoYXQgbWF0Y2ggKGFpLCBiaikNCi0gSm9pbnQgZGlzdHJpYnV0aW9ucyA9ICB2YWx1ZXMgaGlqIGkgPSAxLCDigKYgLCBrLCBqID0gMSwg4oCmICwgbQ0KLSB0aGUgZGF0YSBvbiB0aGUgam9pbnQgYWJzb2x1dGUgZnJlcXVlbmNpZXMgY2FuIGJlIHN1bW1hcml6ZWQgaW4gYSBjb250aW5nZW5jeSB0YWJsZToNCmBgYHtyfQ0KeCA8LSBtYXRyaXgoYygxLDQsNyw0LDAsOCw5LDQsNiwzLDIsMiw1LDcsNSw2KSwgYnlyb3cgPSBUUlVFLCBucm93ID0gNCkNCmFkZG1hcmdpbnMoeCkNCmBgYA0KLSB0aGUgc3VtIG9mIHRoZSByb3dzIGFuZCBjb2x1bW5zIGFyZSBjYWxsZWQgdGhlIG1hcmdpbmFsIGFic29sdXRlIGZyZXF1ZW5jaWVzDQotIHRoZSBzYW1lIGNhbiBiZSBkb25lIHdpdGggdGhlIHJlbGF0aXZlIGZyZXF1ZW5jaWVzLCB3aGljaCBjYW4gYmUgY2FsY3VsYXRlZCB0aGF0IHdheTogZmlqID0gaGlqIC8gbg0KLSBub3RlIHRoYXQgayBpcyB0aGUgbnVtYmVyIG9mIHJvd3MgYW5kIG0gaXMgdGhlIG51bWJlciBvZiBjb2x1bW5zDQoNCltCYWNrIHRvIFRhYmxlIG9mIENvbnRlbnRzXSguLi8p