v<-c(5, 0, 1, -2, 3, 4, 0 2, 1)
v<-c(5, 0, 1, -2, 3, 4, 0, 2, 1)
m<-matrix(v, nrow = 3, ncol = 3)
v
m
det(m)
solve(m)
mi<-solve(m)
round(mi, 2)
help
mt<-t(m)
mt
m
m%*%mt
k<-1+(3.3 * log(80))
k
n<-(1000 * 0.5 * (1 - 0.5) * 1.96) / (1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96
n
n<-(1000 * 0.5 * (1 - 0.5) * 1.96) / ((1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96)
n
n<-(1000 * 0.5 * (1 - 0.5) * 1.96^2) / ((1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96^2)
n
A<- matrix(,nrow = 4, ncol = 4)
A
A<- matrix(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,nrow = 4, ncol = 4)
A<- (1,1,1,1,1,1,1,1,1,1,1,1,1,)
A<- (1,1,1,1,1,1,1,1,1,1,1,1,1)
A<- (1 11 1 1 11 1 11 )
A<- c(1,1,1,1,1,1,1,1,1,1,1,1,1)
A
A<- c(1, 1, 1, 1, 1, 1, -1, 0, 2, 0, -1, 1, 0, 1, -2, 0)
A
M9<- matrix(A, nrow = 4, ncol = 4)
M9
M9<- matrix(A, byrow = 4, ncol = 4)
M9
V<- c(x, y , z, w)
M9i<- solve(M9)
M9i
shit<- c(7/2, 1, 3/2, -1)
b<- matrix(shit, nrow = 4, ncol = 1)
b
x<- M9i %*% b
x
import Dados1;
clc
getwd()
install.packages("readxl")
library("readxl")
my_data <- read_excel("Dados1.xlsx")
my_data