d.neuro <- as.matrix(read.table("/u/sfs/ueb/datasets/neuro.dat", header = T)) d.neur2 <- as.matrix(read.table("/u/sfs/ueb/datasets/neuro2.dat", header = T)) dimnames(d.neur2) <- {dn <- dimnames(d.neur2)[[2]]; list(dn,dn) } ## cat.con() & print.tbl() aus unsern Goodies cat.con(d.neuro) # Randsummen cat.con(d.neur2) # Randsummen print.tbl(d.neuro) print.tbl(d.neur2)