#### Curso introdução ao R ###

#Numérico

#declara e exibe valor
(valor <- 605)

#declara
aux <- 506

#exibe valor
aux

#Caracteres
(string <- "IMD")

#operadores lógicos
2 < 6

#numeros complexos

nc = 2 + 3i
nc

#exibe o tipo da variável
mode(valor)
mode(2-6)
mode(2<4)
mode(nc)

length(valor)


#cria um vetor de números aleat´roios com uma distribuição normal
(x <- rnorm(5))
length(x)
print(x)

#cria um vetor de números aleatórios com distribuição normal baseada no vetor x


(y <- rnorm(x))


#cria um vetor ordenado com base nos valores de x
(x <- sort(x))
x[1]
(x[2:4])
floor(x)
round(x)



#Criando vetores
x1 <- 1:20
w <- 1 + sqrt(x1)/2

#Soma dos valores de um vetor
sum(x1)


#comando para saber o tipo da variável (vetor, matriz, etc)
is.vector(x1)
is.matrix(x1)
is.data.frame(x1)


#gerando sequencia com razao 0.1
x3 <- seq(0,1, by = 0.1)

#listando valores
x3[x3 > 0.5]



#comando de repetição
x4 <- rep(1,5)
x4

#comando de repetição com concatenação
x5 <- rep(c(1,2),c(3,5))
x5

re <- rep(1:4, 12)
re
length(re)


#criar matriz

#cria 2 matrizes, com numeros de 1 a 24, de tamanho 3x4
ar1 <- array(1:24, dim = c(3,4,2))
ar1[, 2:3,]
ar1[1:2,,]
ar1[3,1:3,1]

#soma todos os elementos da matriz 1
sum(ar1[,,1])

#soma todos os elementos das linhas 1 a 2 da matriz 1
sum(ar1[1:2,,1])


dados1 <- data.frame(x = x, y = x + rnorm(x) * w, w = w)
dados1
is.data.frame(ar1)

mean(x)
median(x)
sd(x)
summary(dados1)
var(x)
sqrt(var(x))