折り返し

• メモ(SAS)
• メモ1.5(STATA)
• メモ2

x <- seq(from=-10,to=10,by=0.01)
m <-1.3
y <- dnorm(x,m)
posi <- which(x>=0)
neg <- which(x<=0)
yposi <- y[posi]
yneg <- y[neg[length(neg):1]]
y1 <- yposi+yneg

plot(y1,type="l")