amerhamdan — Nov 7, 2012, 8:41 AM
#----------------------------------------------------#
# Ajuda, instalacao de pacotes, Operacoes aritmeticas
# e vetores #
# Amer Cavalheiro Hamdan #
# Novembro/2012 #
#----------------------------------------------------#
#------------------------------------------------
#5. Ajuda e instacao de pacotes
#--------------------------------------------------
# Digite os seguintes comandos["CTRL"+"ENTER"]:
#help() #busca de ajuda
#?mean
#help.search("mean")
#RSiteSearch("mean")
#library() #mostra os pacotes instalados
#install.packages("psych") #instala pacote "psych"
#require("psych") #Carrega o pacote
#search() #lista os pacotes que estao ativos
#citation() # Mostra como citar o R
#q() #Sair do programa
#--------------------------------------------------------
#---------------------------------------------------------
#6. Operacoes aritmeticas (como uma calculadora)
#-----------------------------------------------#
#Digite:
2+2 # soma
[1] 4
2*2 # multiplicacao
[1] 4
2/2 # divisao
[1] 1
2-2 # subtracao
[1] 0
2^2 # exponenciacao
[1] 4
sqrt(9) #raiz quadrada
[1] 3
log(3) # logaritmo natural de 3
[1] 1.099
#-------------------------------------------------
#-------------------------------------------------
#7. Vetores (entrando e armazenando dados)
#-------------------------------------------------
#Digite:
x<-c(2,3,4,5,6) #cria um vetor e armazena os dados no objeto "x"
x
[1] 2 3 4 5 6
y<-1:10 #cria um vetor em seguencia de 1 a 10
y
[1] 1 2 3 4 5 6 7 8 9 10
xy<-c(x,y) #junta dois vetores
xy
[1] 2 3 4 5 6 1 2 3 4 5 6 7 8 9 10
sort (x) #ordena os valores de um vetor
[1] 2 3 4 5 6
sample(x, size=1,replace=TRUE) #tira amostras aleatorias
[1] 5
rev(x) #ordena os valores de um vetor de modo inverso
[1] 6 5 4 3 2
x[1]<-10 #altera o primeiro valor para 10
x
[1] 10 3 4 5 6
x[-1] #exclui o primeiro valor
[1] 3 4 5 6
XX<-c(1:10) #gera uma sequencia de 1 a 10
XX
[1] 1 2 3 4 5 6 7 8 9 10
x1<-seq(1,10,by=2) #gera uma seguencia de 1 a 10 com intervalos de 2
x1
[1] 1 3 5 7 9
rep(5,10) #repete o valor 5 dez vezes
[1] 5 5 5 5 5 5 5 5 5 5
a<-c("T","F","T","T","F") #cria um vetor logico de 5 elementos
d<-c("barcelona", "paris", "londres", "curitiba") #cria um vetor de 4 caracteres
b = c(1,2,3,NA,4,5) #NA significa Not Available(falta)
b
[1] 1 2 3 NA 4 5
is.na(b)
[1] FALSE FALSE FALSE TRUE FALSE FALSE
ls() #Lista todos os objetos da area de trabalho
[1] "XX" "a" "b" "d" "x" "x1" "xy" "y"
rm(x) #Remove um objeto x
remove(list=ls()) #remove todos os objetos armazenados
#--------------------------------------------------------
#copiando um vetor atraves de "copiar-colar" (digite numeros numa planilia no excel e click copiar)
#z <- scan("clipboard", what=numeric())
#z
#z <- scan("clipboard", what=character(), sep=",")
#z
#---------------------------------------------------------
# Operacoes aritmeticas com vetores
c(1,2,3,4)/2
[1] 0.5 1.0 1.5 2.0
c(1,2,3,4)/c(4,3,2,1)
[1] 0.2500 0.6667 1.5000 4.0000
c(1,2,3,4) + c(4,3)
[1] 5 5 7 7
c(1,2,3,4) + c(4,3,2)#atencao
Warning: longer object length is not a multiple of shorter object length
[1] 5 5 5 8
#----------------------------------------------------------