"preLoglin"
preLoglin
is.preLoglin(x)
x
crime.pre <- preLoglin(data = crime) is.preLoglin(x = crime.pre)