3.10 연습문제
비누 중량에 대한 비누 거품 높이의 관계식을 구하고자 한다비누 데이터에 대해 (a) (X,Y) 산점도를 그리시오 > x=c(3.5,4.0,4.5,5.0,5.5,6.0,6.5,7.0,7.5,8.0)> y=c(24.4,32.1,37.1,40.4,43.3,51.4,61.9,66.1,77.2,79.2)> plot(x,y,pch = 19, col = "blue") (b) 통계적 모형 Y= β1X+ ε 를 적합하시오 > soap.lm=lm(y~x)> summary(soap.lm) Call:lm(formula = y ~ x) Residuals: Min 1Q Median 3Q Max -4.899 -1.374 0.490 1.322 4.116 Coefficients: E..
3.9 연습문제
화학 오염 물질에 대한 메기의 민감성을 알아보기 귀해 실험한 결과이다 2리터의 물에 오염물질의 양을 달리하여 생존시간을 측정하여 데이터를 받았다 (A) 오염물질양(X)와 생존시간(Y) 간의 산점도를 그리시오 > y=c(2.51,2.57,2.43,2.62,2.74,2.68,2.83,2.91,2.98,3.17,3.05,3.09,3.32,3.22,3.29,3.44,3.52,3.55)> x=c(5.0,5.0,5.0,4.8,4.8,4.8,4.6,4.6,4.6,4.4,4.4,4.4,4.2,4.2,4.2,4.0,4.0,4.0)> plot(x,y,pch = 19, col = "blue") (B) 오염물질양(X)과 생존시간(Y)간의 상관계수를 구하시오> cor(x, y)[1] -0.9882052 상관계수는 cor()함..
2.3 연습문제
주어진 행렬 A=2114에 대해여(a) 행벡터를쓰고 2차원 좌표평면에 나타내시오> A=matrix(c(2,1,1,4),ncol=2)> row1 = A[1, ]> row2 = A[2, ]> row1 [1] 2 1> row2[1] 1 4> plot(0, 0, xlim=c(0, 5), ylim=c(0, 5), xlab="X", ylab="Y")> arrows(0, 0, row1[1], row1[2], col="blue", lwd=2, length=0.1)> arrows(0, 0, row2[1], row2[2], col="red", lwd=2, length=0.1) plot : 좌표평면 그리기 xlim: x좌표의 범위 xlab: x축에 대한 이름 지정arrows: 화살표 그리기/ 0, 0 : 화살표의 시작 방향..
2.4 연습문제
확률벡터 X의 공분산행렬 A=1000900016 (a)rank(A)를 구하시오 > A=matrix(c(1,0,0,0,9,0,0,0,16),ncol=3)> library(Matrix)> rankMatrix(A)[1] 3attr(,"method")[1] "tolNorm2"attr(,"useGrad")[1] FALSEattr(,"tol")[1] 6.661338e-16 rank 란?행렬에 대하여 기본 행연산을 시행하여 행 사다리꼴(row echelon form)으로 변환시켜 놓으면 그 행렬의 계수(rank)를 쉽게 알 수 있음 행 사다리꼴 행렬의 0 아닌 행의 개수를 세면 되기 때문R로 행렬의 계수(rank)를 구할 때는 rank() 함수를 사용하면 안되며, Matrix 패키지의 rankMatrix() 함수를 ..
2.5 연습문제
행렬 A5-43-486369일때1. 고유값과 고유벡터를 구하시오 > A = matrix(c(5, -4, 3, -4, 8, 6, 3, 6, 9),nrow = 3, ncol = 3)> lamda=eigen(A)> lamda$values[1] 14.554216 8.844169 -1.398385$vectors[,1] [,2] [,3][1,] -0.06655815 0.7859942 -0.6146407[2,] 0.69553198 -0.4051259 -0.5933871[3,] 0.71540567 0.4669970 0.5197197 고유값 구하는 법: eigen 함수 이용 2. tr(A)를 구하고 고유값들의 합과 같은지 확인해 보시오 > sum(diag(A))[1] 22> sum(lamda$values)[1] 22 t..
