Amer — Nov 12, 2012, 4:47 PM
#----------------------------------------------------#
# Operadores logicos e matrizes #
# Amer Cavalheiro Hamdan #
# novembro/2012 #
#----------------------------------------------------#
#------------------------------------------------
#8.Operadores logicos
#-----------------------------------------------
#Digite
1 == 2
[1] FALSE
1 < 2
[1] TRUE
1 >= 2
[1] FALSE
#---------------------------------------
# && igual a "e"
TRUE && FALSE
[1] FALSE
TRUE && TRUE
[1] TRUE
F && F
[1] FALSE
#--------------------------------------
# || igual a "ou"
TRUE || FALSE
[1] TRUE
T || T
[1] TRUE
F || F
[1] FALSE
#--------------------------------------
# ! igual a "não"
! F
[1] TRUE
! T
[1] FALSE
#--------------------------------------------------
#-----------------------------------------------------
#9. Matrizes
#-------------------------------------------------------
# Criando matriz
x<-1:12 #cria uma seqüência de 1 a 12 no objeto x
x
[1] 1 2 3 4 5 6 7 8 9 10 11 12
xmat<-matrix(x,ncol=3) #cria uma matriz de 3 colunas usando o objeto x
xmat #exibe a matriz criada
[,1] [,2] [,3]
[1,] 1 5 9
[2,] 2 6 10
[3,] 3 7 11
[4,] 4 8 12
matrix(x,ncol=3,byrow=TRUE) #preenche a matriz pelas linhas
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 4 5 6
[3,] 7 8 9
[4,] 10 11 12
matrix(1:6,nrow=3) #este comando utiliza o argumento byrow com F (False) como padrão
[,1] [,2]
[1,] 1 4
[2,] 2 5
[3,] 3 6
matrix(1:6,ncol=3) #que faz com que o vetor seja preenchido por coluna na matriz
[,1] [,2] [,3]
[1,] 1 3 5
[2,] 2 4 6
matrix(1:6,ncol=3,byrow=T) #utilizando a op¸c~ao T (True), preenche-se por linha
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 4 5 6
pessoas<-cbind(c(1,2,3,4,5),c(43,55,52,23,46),c(1,1,0,1,1))
pessoas
[,1] [,2] [,3]
[1,] 1 43 1
[2,] 2 55 1
[3,] 3 52 0
[4,] 4 23 1
[5,] 5 46 1
#---------------------------------------------------------
#retirando dados de uma matriz
x1<-rbind(1:3,c(1,3,-1))
x1
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 1 3 -1
x2<-cbind(c(1,3),c(0,4))
x2
[,1] [,2]
[1,] 1 0
[2,] 3 4
cbind(x2,x1)
[,1] [,2] [,3] [,4] [,5]
[1,] 1 0 1 2 3
[2,] 3 4 1 3 -1
x1[2,] #extrai a 2a linha de x1
[1] 1 3 -1
x1[,2] #extrai a 2a coluna de x1
[1] 2 3
x1[,2:3] #extrai uma submatriz de x1
[,1] [,2]
[1,] 2 3
[2,] 3 -1
x1[,-1] #outra maneira
[,1] [,2]
[1,] 2 3
[2,] 3 -1
x1[,c(1,3)] #outra submatriz
[,1] [,2]
[1,] 1 3
[2,] 1 -1
#----------------------------------------------------------------
#10. fatores
#------------------------------------------------------------
altura<-c("alto", "medio", "baixo")
altura<-factor()
altura
factor(0)
Levels:
is.factor(altura)
[1] TRUE
#-----------------------------------------------------------
#--------------------------------------------