Differences

This shows you the differences between two versions of the page.

--- normal_distribution [2019/09/24 13:26] – hkimscil
+++ normal_distribution [2024/03/13 08:28] (current) – hkimscil
@@ Line 18: / Line 18: @@
 randomdeviates<-rnorm(1000,0,1)
-# par(mfrow=c(1,3), mar=c(3,4,4,2))
+par(mfrow=c(2,2), mar=c(3,4,4,2))
-plot(xseq, densities, col="darkgreen",xlab="", ylab="Density", type="l",lwd=2, cex=2, main="PDF of Standard Normal", cex.axis=.8)
+plot(xseq, densities, col="darkgreen",
+   xlab="", ylab="Density", type="l", lwd=2, cex=2,
+   main="PDF of Standard Normal", cex.axis=.8)
-plot(xseq, cumulative, col="darkorange", xlab="", ylab="Cumulative Probability",type="l",lwd=2, cex=2, main="CDF of Standard Normal", cex.axis=.8)
+plot(xseq, cumulative, col="darkorange",
+   xlab="", ylab="Cumulative Probability",type="l",lwd=2, cex=2,
+   main="CDF of Standard Normal", cex.axis=.8)
-hist(randomdeviates, main="Random draws from Std Normal", cex.axis=.8, xlim=c(-4,4))
+hist(randomdeviates, main="Random draws from Std Normal",
-</code>
+   cex.axis=.8, xlim=c(-4,4))
+xseq<-seq(-4,4,.01)
+y<-2*xseq + rnorm(length(xseq),0,5.5)
+hist(y, prob=TRUE, ylim=c(0,.06), breaks=20)
+curve(dnorm(x, mean(y), sd(y)), add=TRUE, col="darkblue", lwd=2)
+par(mfrow=c(1,1))
+</code>
+{{:pasted:20240313-082705.png}}