Randomness, Probability, and Distributions

par(mfrow = c(1,2))
x_values <- seq(0,3)
x_props  <- c(1/8, 3/8, 3/8, 1/8)

barplot(
  x_props, # x oxu
  names.arg = x_values, # x oxu x_values deyerleri ile eks olunur
  ylim = c(0,1), # y oxu 0-1 arasinda deyishir
  xlab = "Discrete RV x values", # x oxunun bashlighi
  ylab = "Probabilities") # y oxunun bashlighi


x <- seq(0,2, length = 1000)
y <- dnorm(x, mean = 1, sd = 0.5)

plot(
  x, y, # x ve y oxu
  type = "l", # xetti daha vizual olaraq gosterir
  lwd = "1", # xettin qalinlighi
  ylim = c(0,1), # y oxu 0-1 arasinda deyishir
  xlab = "Continious RV x values", # x oxunun bashlighi
  ylab = "Probabilities") # y oxunun bashlighi