原点を通る、右肩上がりの観測点がある npt <- 1000 x <- sort(rnorm(npt)) y <- sort(runif(npt,-10,10)) x <- x-mean(x) y <- y-mean(y) y[which(abs(x)<0.5)]<-sort(rnorm(length(which(abs(x)<0.5)),sd=0.2)) plot(x,y) この観測曲線の原点での傾きにつ…