library(utils)
data(zof.rwl)
powtUniversal <- powt(zof.rwl, method = "universal")
powtCook <- powt(zof.rwl, method = "cook")
op <- par(no.readonly = TRUE)
par(mfcol = c(1, 3))
hist(summary(zof.rwl)$skew,
breaks = seq(-2.25,2.25,by=0.25),
main="Raw Data",xlab="Skew")
hist(summary(powtUniversal)$skew,
breaks = seq(-2.25,2.25,by=0.25),
main="Universal POWT",xlab="Skew")
hist(summary(powtCook)$skew,
breaks = seq(-2.25,2.25,by=0.25),
main="Cook POWT",xlab="Skew")
par(op) # restore graphical parameters
Run the code above in your browser using DataLab