{r setup, include=FALSE} knitr::opts_chunk$set(eval = FALSE) 分布变离散，或者纠正skew
我之前在书上看的，为了满足正态分布假设做的调整。
这个可以将一个分布变离散，或者纠正skew。
$$y’ = \exp(n\cdot y)$$
{r} set.seed(123) x <- rnorm(100, mean = 1, sd = 1) library(tidyverse) x %>% as_tibble() %>% ggplot(aes(x = value, fill = "red"),alpha = .25) + geom_density() + # geom_density(aes(x = log(x),fill = "blue"),alpha = .25) + geom_density(aes(x = exp(1.5*x),fill = "green"),alpha = .25)