##Ajudar para média
help("mean")

##Ajuda para média no site
RSiteSearch("mean")

##Criar um objeto
x=5
x

##Remover todos os objetos
rm(list=ls(all=TRUE))

##Operações Básicas
x=5
y=2
z=sqrt((x+y)^2)/3
z
w=sin(pi)
w

##Vetor##########################################################3
##Criar vetor
x<-c(9,7.2,5,3,4.2)
x
length(x) ##tamanho do vetor
mode(x)
x[4]

##Vetor de Sequencia
x=seq(1,5,by=0.5)
x
x1=seq(from = 1, to = 5, length = 4)
x1

##Vetor de repetições
y=rep(3, 10)
y
w=rep(1:3, 5)
w

##Operações com vetores
v1 <- c(2,8,5,7)
v2 <- c(5,4,2,9)
v1 + v2

##Matriz#####################################################
A=matrix(1:12,4,3)
A
##linhas e nomes de colunas
rownames(A)=c("linha1","linha2","linha3","linha4")
colnames(A)=c("coluna1","coluna2","coluna3")
A
##acessar elemento da matriz
A[2,1]

##inserir linha e coluna
x=c(3,4,5,6)
y=c(6,7,8,9)
A=cbind(A,y)
A=rbind(A,x)
A

##Numero de linhas e colunas, dimensão
nrow(A)
ncol(A)
dim(A)

##Operações com Matrizes
A=matrix(c(5,2,6,1,6,3,1,4,4),3,3)
B=matrix(c(10,12,8,10,17,6,11,10,12),3,3)
A
B
A+B
A%*%B
t(A)
solve(A)
eigen(A)

##Arquivo de Dados##################

#Mudar Diretório
setwd("C:/Users/anderson/Documents")

##Dados de texto
dados=read.table("nome do arquivo.txt",header=TRUE)

##Dados Excel
require(xlsx)
dados=read.xlsx("nome do arquivo.xls",sheetIndex,header = TRUE)


##Funções Diversas###############################################3
x=seq(0,200,by=5)
x
##amostra de tamanho 10
set.seed(12345)
x1=sample(x,10)
x1

##Dados ordenados de x1
sort(x1)
sort(x1,decreasing=TRUE)


##Ordenar planilha
x2=sample(x,10)
y=cbind(x1,x2)
y
## ordenar y de acordo com os valores de x1,
y1=y[order(y[,1]),]
y1