#==========================================================================================
# Aula 2 da disciplina ce223 (04/03/2011)
# ENTRADA DE DADOS NO R
#                                                               Professor Walmes M. Zeviani
#                                                                     www.leg.ufpr.br/ce223
#==========================================================================================

#------------------------------------------------------------------------------------------
# entrada de dados via teclado, digitando os dados (lei da reciclagem)

x <- c(5,6,7,43,7,76,7,4,3,6,6,886,4,55,37,4568,67,4,45)
y <- matrix(x, 8, 3)

#------------------------------------------------------------------------------------------
# dados com certos padrões

x <- 1:4; x
x <- rep(1:3, times=3); x
x <- rep(1:3, each=3); x

#------------------------------------------------------------------------------------------
# como criar uma sequencia de números pares: 2, 4, 6, 8, 10...


#------------------------------------------------------------------------------------------
# mais sequencias e uso dos argumentos da função

x <- seq(from=0, to=10, by=2); x
x <- seq(0, 10, 2); x
x <- seq(to=10, by=2, from=0); x
help(seq, help_type="html")

#------------------------------------------------------------------------------------------
# usando outros argumentos para criar sequências

x <- seq(0, 10, length.out=3); x
x <- seq(0, by=2.25, length.out=5); x

#------------------------------------------------------------------------------------------
# entrando com dados por meio da função scan()

x <- scan() # passe para o console e digite os dados
x

#------------------------------------------------------------------------------------------
# criar um entrando com dados data.frame com os dados da tabela abaixo

id  peso
 1  80.9
 2  73.5
 3  55.3
 4  97.8
 5  79.9

#------------------------------------------------------------------------------------------
# solução 1: digitando os dados em forma de vetor

#------------------------------------------------------------------------------------------
# solução 2: usando a função scan()

#------------------------------------------------------------------------------------------
# usando a função textConnection() com read.table()

x <- read.table(textConnection("id peso \n 1 80.9 \n 2 73.5"), header=TRUE)
x

#------------------------------------------------------------------------------------------
# uma forma mais fácil de usar

x <- "id  peso
 1  80.9
 2  73.5
 3  55.3
 4  97.8
 5  79.9"
x <- read.table(textConnection(x), header=TRUE)
str(x)

#------------------------------------------------------------------------------------------
# usando a função edit()

x <- edit(data.frame()); x

#------------------------------------------------------------------------------------------
# para acrescentar mais dados use o fix()

fix(x)

#------------------------------------------------------------------------------------------