2013-03-01から1日間の記事一覧

折り返し

メモ(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")

カーネル密度推定の上下限