The R Project SVN R

Rev

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

Rev 74265 Rev 76160
Line 1... Line 1...
1 
% File src/library/datasets/man/crimtab.Rd
 1 
% File src/library/datasets/man/crimtab.Rd
2 
% Part of the R package, https://www.R-project.org
 2 
% Part of the R package, https://www.R-project.org
3 
% Copyright 1995-2018 R Core Team
 3 
% Copyright 1995-2019 R Core Team
4 
% Distributed under GPL 2 or later
 4 
% Distributed under GPL 2 or later
5 
 
 5 
 
6 
\name{crimtab}
 6 
\name{crimtab}
7 
\alias{crimtab}
 7 
\alias{crimtab}
8 
\docType{data}
 8 
\docType{data}
Line 119... Line 119...
119 
 
 119 
 
120 
zobs <- (h.mean - mean(d.hei[,"height"]))/h.sd
 120 
zobs <- (h.mean - mean(d.hei[,"height"]))/h.sd
121 
 
 121 
 
122 
# 6) Replace infinite values by +/- 6 as in Student's paper:
 122 
# 6) Replace infinite values by +/- 6 as in Student's paper:
123 
 
 123 
 
124 
zobs[infZ <- is.infinite(zobs)] # 3 of them
 124 
zobs[infZ <- is.infinite(zobs)] # none of them
125 
zobs[infZ] <- 6 * sign(zobs[infZ])
 125 
zobs[infZ] <- 6 * sign(zobs[infZ])
126 
 
 126 
 
127 
# 7) Plot the distribution:
 127 
# 7) Plot the distribution:
128 
 
 128 
 
129 
require(grDevices); require(graphics)
 129 
require(grDevices); require(graphics)