"preGauss"
preGauss
is.preGauss(x)
x
cholesterol.pre <- preGauss(cholesterol) is.preGauss(cholesterol.pre)