%macro foo (data, yvar, xvar) ; proc glm data = &data ; model &yvar = &xvar / SS2 ; run ; PROC GPLOT DATA = &data ; PLOT &yvar * &xvar ; RUN ; QUIT; %MEND ; あれれ n <- seq(5, 45, 5) x <- rnorm(sum(n)) y <- factor(rep(n, n), labels=paste("…