\(y = x^2 + x\)
a<- -50:50
x<- c(a)
y=x^2+x
Aristóteles nos legou incontáveis tesouros e dentre eles a fórmula, com seus componentes (ethos , pathos e logos) de um discurso persuasivo
# Parte 3 ## Exercício 8
head(iris)
mat<- matrix (c(1,3,4,5,6,7,2,3,5,7,5,6,4,1,3,6,4,2,8,1,3,6,4,1,6), nrow=5, byrow=T)
mat
## [,1] [,2] [,3] [,4] [,5]
## [1,] 1 3 4 5 6
## [2,] 7 2 3 5 7
## [3,] 5 6 4 1 3
## [4,] 6 4 2 8 1
## [5,] 3 6 4 1 6
det(mat)
## [1] 2488
solve(mat)
## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.11093248 0.12781350 0.1153537 -0.013263666 -0.093649518
## [2,] -0.16720257 -0.13344051 -0.2210611 0.164790997 0.405948553
## [3,] 0.42765273 -0.01446945 0.6567524 -0.253215434 -0.696945338
## [4,] 0.06913183 -0.03617363 -0.1081190 0.116961415 0.007636656
## [5,] -0.07395498 0.08520900 -0.2564309 -0.008842444 0.270900322
t(mat)
## [,1] [,2] [,3] [,4] [,5]
## [1,] 1 7 5 6 3
## [2,] 3 2 6 4 6
## [3,] 4 3 4 2 4
## [4,] 5 5 1 8 1
## [5,] 6 7 3 1 6
m<- c("dente mole","era uma vez", "a velha e a mosca", "metamorfose", "o pato")
n<- c(1,2,3,4,5)
o<-c(2,1,4,3,5)
l<-c(TRUE, FALSE, TRUE, TRUE, TRUE)
music<-list(m,n,o,l)
int<-c("Leandro","Leonardo")
inst<-c("violão","voz")
v<-c("morto","vivo")
idad<-c(30, 70)
band<-data.frame(int, inst, v, idad)
band