# NOT RUN {
library(dplyr)
# Without groups
fusion %>%
filter(nv.vv == "VV") %>%
gg_pt(time)
fusion %>%
filter(nv.vv == "VV") %>%
gg_pt(time, taus = c(-0.25, -0.5, -1, 0),
xlabel = "Cuantiles normales", ylabel = "Valores transformados",
nrow = 3, color = "red")
# With groups
gg_pt(fusion, time, nv.vv, taus = c(-0.5, -0.25, 0, 0.25, 0.5))
# }
Run the code above in your browser using DataLab