Chapter 3 Comando do R Studio
3.1 Concatenado dados no R
idade =c(24,48,32, 65,38,56,74,19,29,22)
peso = c(80,67, 49, 55, 89, 72, 45, 88, 56, 74)
altura =c(180, 165, 162, 175, 172, 165, 168, 185, 172, 168)
sexo = c('M','F','M','F','M','F','M','F','M','F')3.2 Inspecionado a Estrutura de dados
#lista objetos criados
ls()## [1] "a" "altura" "Area" "aux" "b" "banknote" "base.treino" "baseTreino" "caixa" "cenario1"
## [11] "cenario2" "classesTeste" "classPred" "cm" "coluna" "configTreino" "correlation" "correlations" "custo" "d"
## [21] "dados" "dados_plot" "data" "Data" "data1" "data2" "dataFinal" "dataInicial" "dataMarca" "dataTemp"
## [31] "desvio" "dfAcoes" "dfAux1" "dfAux2" "dt" "escalas" "filtrarMes" "fit" "groups" "grup"
## [41] "i" "idade" "idade_em_dias" "idade_em_meses" "imdb" "inibina" "iris" "irisS" "km1" "limInf"
## [51] "limSup" "m" "mat" "mat_drop" "md_Cen1" "md_Cen2" "md_Cenario1" "md_Cenario2" "md_lm" "media"
## [61] "mediaA" "mediaC" "mediaH" "mediaL" "mediaO" "mod.reg" "modArvDec01" "modBayes01" "modelo" "modeloNB"
## [71] "modFisher01" "modKnn1_01" "modKnn3_01" "modKnn5_01" "modLogist01" "modNaiveBayes01" "modRedNeural01" "modSVM01" "n" "N"
## [81] "nome" "NomeCompleto" "nomes" "num" "numeros" "numLinhas" "numx" "p1" "peso" "predito"
## [91] "price" "probsTeste" "Q1" "Q2" "Q3" "remove.var" "res" "resA" "resCen1" "Resul"
## [101] "result" "result1" "Ser" "series" "sexo" "SobreNome" "soma" "square" "subConjunto" "tabCustVol"
## [111] "tabdisc" "tabela" "tabelaAcao" "tabelaAir" "tabelaNUBR" "tabfacial" "teste" "totalAcerto" "trControl" "treino"
## [121] "usto" "vars" "volume" "x" "y" "yhat" "ypred"##Tamanho do Objeto
#Qual o tamanho do objeto
length(idade)## [1] 103.3 Tipos de Dados do Objeto
str(idade)## num [1:10] 24 48 32 65 38 56 74 19 29 22str(sexo)## chr [1:10] "M" "F" "M" "F" "M" "F" "M" "F" "M" "F"str(altura)## num [1:10] 180 165 162 175 172 165 168 185 172 1683.4 Removendo um Objeto
#lista todos os objetos
ls()## [1] "a" "altura" "Area" "aux" "b" "banknote" "base.treino" "baseTreino" "caixa" "cenario1"
## [11] "cenario2" "classesTeste" "classPred" "cm" "coluna" "configTreino" "correlation" "correlations" "custo" "d"
## [21] "dados" "dados_plot" "data" "Data" "data1" "data2" "dataFinal" "dataInicial" "dataMarca" "dataTemp"
## [31] "desvio" "dfAcoes" "dfAux1" "dfAux2" "dt" "escalas" "filtrarMes" "fit" "groups" "grup"
## [41] "i" "idade" "idade_em_dias" "idade_em_meses" "imdb" "inibina" "iris" "irisS" "km1" "limInf"
## [51] "limSup" "m" "mat" "mat_drop" "md_Cen1" "md_Cen2" "md_Cenario1" "md_Cenario2" "md_lm" "media"
## [61] "mediaA" "mediaC" "mediaH" "mediaL" "mediaO" "mod.reg" "modArvDec01" "modBayes01" "modelo" "modeloNB"
## [71] "modFisher01" "modKnn1_01" "modKnn3_01" "modKnn5_01" "modLogist01" "modNaiveBayes01" "modRedNeural01" "modSVM01" "n" "N"
## [81] "nome" "NomeCompleto" "nomes" "num" "numeros" "numLinhas" "numx" "p1" "peso" "predito"
## [91] "price" "probsTeste" "Q1" "Q2" "Q3" "remove.var" "res" "resA" "resCen1" "Resul"
## [101] "result" "result1" "Ser" "series" "sexo" "SobreNome" "soma" "square" "subConjunto" "tabCustVol"
## [111] "tabdisc" "tabela" "tabelaAcao" "tabelaAir" "tabelaNUBR" "tabfacial" "teste" "totalAcerto" "trControl" "treino"
## [121] "usto" "vars" "volume" "x" "y" "yhat" "ypred"#remove objeto Idade
rm(idade)
#lista todos os objetos
ls()## [1] "a" "altura" "Area" "aux" "b" "banknote" "base.treino" "baseTreino" "caixa" "cenario1"
## [11] "cenario2" "classesTeste" "classPred" "cm" "coluna" "configTreino" "correlation" "correlations" "custo" "d"
## [21] "dados" "dados_plot" "data" "Data" "data1" "data2" "dataFinal" "dataInicial" "dataMarca" "dataTemp"
## [31] "desvio" "dfAcoes" "dfAux1" "dfAux2" "dt" "escalas" "filtrarMes" "fit" "groups" "grup"
## [41] "i" "idade_em_dias" "idade_em_meses" "imdb" "inibina" "iris" "irisS" "km1" "limInf" "limSup"
## [51] "m" "mat" "mat_drop" "md_Cen1" "md_Cen2" "md_Cenario1" "md_Cenario2" "md_lm" "media" "mediaA"
## [61] "mediaC" "mediaH" "mediaL" "mediaO" "mod.reg" "modArvDec01" "modBayes01" "modelo" "modeloNB" "modFisher01"
## [71] "modKnn1_01" "modKnn3_01" "modKnn5_01" "modLogist01" "modNaiveBayes01" "modRedNeural01" "modSVM01" "n" "N" "nome"
## [81] "NomeCompleto" "nomes" "num" "numeros" "numLinhas" "numx" "p1" "peso" "predito" "price"
## [91] "probsTeste" "Q1" "Q2" "Q3" "remove.var" "res" "resA" "resCen1" "Resul" "result"
## [101] "result1" "Ser" "series" "sexo" "SobreNome" "soma" "square" "subConjunto" "tabCustVol" "tabdisc"
## [111] "tabela" "tabelaAcao" "tabelaAir" "tabelaNUBR" "tabfacial" "teste" "totalAcerto" "trControl" "treino" "usto"
## [121] "vars" "volume" "x" "y" "yhat" "ypred"#Recriar objeto Idade
idade =c(24,48,32, 65,38,56,74,19,29,22)
#lista todos os objetos
ls()## [1] "a" "altura" "Area" "aux" "b" "banknote" "base.treino" "baseTreino" "caixa" "cenario1"
## [11] "cenario2" "classesTeste" "classPred" "cm" "coluna" "configTreino" "correlation" "correlations" "custo" "d"
## [21] "dados" "dados_plot" "data" "Data" "data1" "data2" "dataFinal" "dataInicial" "dataMarca" "dataTemp"
## [31] "desvio" "dfAcoes" "dfAux1" "dfAux2" "dt" "escalas" "filtrarMes" "fit" "groups" "grup"
## [41] "i" "idade" "idade_em_dias" "idade_em_meses" "imdb" "inibina" "iris" "irisS" "km1" "limInf"
## [51] "limSup" "m" "mat" "mat_drop" "md_Cen1" "md_Cen2" "md_Cenario1" "md_Cenario2" "md_lm" "media"
## [61] "mediaA" "mediaC" "mediaH" "mediaL" "mediaO" "mod.reg" "modArvDec01" "modBayes01" "modelo" "modeloNB"
## [71] "modFisher01" "modKnn1_01" "modKnn3_01" "modKnn5_01" "modLogist01" "modNaiveBayes01" "modRedNeural01" "modSVM01" "n" "N"
## [81] "nome" "NomeCompleto" "nomes" "num" "numeros" "numLinhas" "numx" "p1" "peso" "predito"
## [91] "price" "probsTeste" "Q1" "Q2" "Q3" "remove.var" "res" "resA" "resCen1" "Resul"
## [101] "result" "result1" "Ser" "series" "sexo" "SobreNome" "soma" "square" "subConjunto" "tabCustVol"
## [111] "tabdisc" "tabela" "tabelaAcao" "tabelaAir" "tabelaNUBR" "tabfacial" "teste" "totalAcerto" "trControl" "treino"
## [121] "usto" "vars" "volume" "x" "y" "yhat" "ypred"3.5 Ordenando Objeto
#lista os dados do objeto idade
show(idade)## [1] 24 48 32 65 38 56 74 19 29 22#ordena os dados do objeto idade
sort(idade)## [1] 19 22 24 29 32 38 48 56 65 74#ordena os dados do objeto idade descrecente
sort(idade, decreasing=T)## [1] 74 65 56 48 38 32 29 24 22 193.6 Criando um DataFrame
#Criando um DataFrame a atraves dos objeto ( altura, sexo, idade, peso)
tabela = data.frame(altura, sexo, idade, peso)
#tipo de dados do DataFrame criado
str(tabela)## 'data.frame': 10 obs. of 4 variables:
## $ altura: num 180 165 162 175 172 165 168 185 172 168
## $ sexo : chr "M" "F" "M" "F" ...
## $ idade : num 24 48 32 65 38 56 74 19 29 22
## $ peso : num 80 67 49 55 89 72 45 88 56 74#lista o rotulo das colunas da tabela
names(tabela)## [1] "altura" "sexo" "idade" "peso"#Mudar rotulo da coluna da tabela
names(tabela)[1] = "Height"
#lista o rotulo das colunas da tabela
names(tabela)## [1] "Height" "sexo" "idade" "peso"#MUdar rotulo da coluna da tabela
names(tabela)[1] = "Altura"
#lista o rotulo das colunas da tabela
names(tabela)## [1] "Altura" "sexo" "idade" "peso"#Exibir os dados da Tabela
View(tabela)