The R Project SVN R

Rev

Rev 59039 | Rev 65999 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61168
Line 80... Line 80...
80 
require(stats)
 80 
require(stats)
81 
dim(crimtab)
 81 
dim(crimtab)
82 
utils::str(crimtab)
 82 
utils::str(crimtab)
83 
## for nicer printing:
 83 
## for nicer printing:
84 
local({cT <- crimtab
 84 
local({cT <- crimtab
85 
       colnames(cT) <- substring(colnames(cT), 2,3)
 85 
       colnames(cT) <- substring(colnames(cT), 2, 3)
86 
       print(cT, zero.print = " ")
 86 
       print(cT, zero.print = " ")
87 
})
 87 
})
88 
 
 88 
 
89 
## Repeat Student's experiment:
 89 
## Repeat Student's experiment:
90 
 
 90