Online R Compiler

a <- c(1,2,3) barplot(a) prod(1:6)/prod(1:2) pbinom(10, 40, 0.25) qbinom(0.90, 40, 0.25) prop.test(11, 250, 0.02) #(a) n <- 1:70 # vector van aan leerlingen p <- numeric(70) # initializer van vector for (i in n) { q = prod(1 - (0:(i-1))/365) # P(Geen match) als i in de klas p[i] = 1 - q # complement } plot(n, p) # plot van p tegen n dbinom(2,5,1/3) mean(rbinom(10^6,5,1/3)==2) x <- 0:100 (EX <- sum(x*dpois(x,lambda=3))) (VarX <- sum((x-EX)^2*dpois(x,lambda=3))) IQR(rnorm(10^7,7.40,0.025))/1.349