Untitled
unknown
plain_text
2 years ago
1.7 kB
9
Indexable
## ## Bai kiem tra 1 - Thuc hanh Ly thuyet Thong ke ## Nhom 2 - Thu 3 - tiet 1-2 ## ## Ho ten : Nguyen Trung Duc - MSSV : 21110269 ## # #***************************************** ## Bai 1: ## - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - a <- matrix(data=c(1,2,3,2,2,2,3,2,3), nrow=3, ncol=3, byrow=T) a b <- matrix(data=c(1,-1,3,6,-2,-3,5,1,0,2,7,4,0,1,5), nrow=3, ncol=5, byrow=T) b # 1.1 b[, 3] B.row2.vec <- b[2, c(1, 4, 5)] # 1.2 a %*% b # 1.3 ta <- t(a) ta tb <- t(b) tb ta %*% tb # 1.4 ?solve X <- solve(a, matrix(data=c(1,1,1), byrow=T)) X ## Bai 2: ## - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - # 2.1 count.nb.ex2 <- function(Nmax.ex2, a, b) { n <- 1 count <- 0 while (n < Nmax.ex2) { if (n %% a == 0 & n %% b == 0) { count <- count + 1 last <- n } n <- n + 1 } answer <- c(count, last) return(answer) } count.nb.ex2(150, 3, 4) # 2.2 Month <- c(1:12) Month Nb <- c(55,62,24,34,81,29,65,48,75,82,90,66) Nb mydf <- data.frame(Month, Nb) mydf # 2.3 data <- read.csv('E:/21110269/data01.csv') data attach(data) group <- Age group1 <- group[Age <= 60] group1 group2 <- group[Age >= 61 & Age <= 80] group2 group3 <- group[Age > 80] group3 Number <- c(group1, group2, group3) Number ## Bai 3: ## - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - # 3.1 MassProb.ex3.1 <- function(k, n, p) { return(choose(n, k) * p^k * (1-p)^(n-k)) } MassProb.ex3.1(2, 4, 0.5) # 3.2 cdf.ex3.1 <- function(X, x) { } cdf.ex3.1() ## Bai 4: ## - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - -- - - - - - - - -
Editor is loading...