# NOT RUN {
data(autism)
par(mfrow=c(1,3))
pcplot(x=X, batch=batch, y=y, alpha=0.25, main="alpha = 0.25")
pcplot(x=X, batch=batch, y=y, alpha=0.75, main="alpha = 0.75")
pcplot(x=X, batch=batch, y=y, col=1:length(unique(batch)),
main="col = 1:length(unique(batch))")
par(mfrow=c(1,1))
# }
Run the code above in your browser using DataLab