moda <- function(x) { z <- table(as.vector(x)) names(z)[z == max(z)] } > setwd("H:/R") > dataset <- scan (“datafile2.dat”, what=list (x=“”,y=“”)) Erro: unexpected input in "dataset <- scan (“" > dataset <- scan (“datafile2.dat”, what=list (x=“”,y=“”)) Erro: unexpected input in "dataset <- scan (“" > dataset <- scan ("variaveis.dat" , what=list (a="",b="",c="",d="",e="",f="",g="",h="",i="")) Read 398 records > dataset$b [1] "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "4" "6" "6" "6" [19] "4" "4" "4" "4" "4" "4" "6" "8" "8" "8" "8" "4" "4" "4" "4" "6" "6" "6" [37] "6" "6" "8" "8" "8" "8" "8" "8" "8" "6" "4" "6" "6" "4" "4" "4" "4" "4" [55] "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "3" [73] "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" [91] "8" "8" "8" "8" "8" "8" "8" "6" "6" "6" "6" "6" "4" "8" "8" "8" "8" "6" [109] "4" "4" "4" "3" "4" "6" "4" "8" "8" "4" "4" "4" "4" "8" "4" "6" "8" "6" [127] "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "8" "8" "8" "8" "8" "4" "4" "4" [145] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "6" "6" "8" "8" "8" "8" "6" "6" [163] "6" "6" "6" "8" "8" "4" "4" "6" "4" "4" "4" "4" "6" "4" "6" "4" "4" "4" [181] "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "4" "4" "4" [199] "4" "6" "6" "6" "6" "4" "4" "4" "4" "4" "8" "4" "6" "6" "8" "8" "8" "8" [217] "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "8" "8" "8" "8" "4" [235] "4" "4" "4" "4" "4" "4" "4" "6" "4" "3" "4" "4" "4" "4" "4" "8" "8" "8" [253] "6" "6" "6" "4" "6" "6" "6" "6" "6" "6" "8" "6" "8" "8" "4" "4" "4" "4" [271] "4" "4" "4" "4" "5" "6" "4" "6" "4" "4" "6" "6" "4" "6" "6" "8" "8" "8" [289] "8" "8" "8" "8" "8" "4" "4" "4" "4" "5" "8" "4" "8" "4" "4" "4" "4" "4" [307] "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" [325] "4" "4" "4" "5" "4" "4" "4" "4" "4" "6" "3" "4" "4" "4" "4" "4" "4" "6" [343] "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [361] "6" "6" "6" "6" "8" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [379] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "4" "6" "4" "4" "4" "4" "4" "4" [397] "4" "4" > cilindrada = b Erro: objeto "b" não encontrado > cilindrada = (b) Erro: objeto "b" não encontrado > cilindrada = dataset$b > media = sum(cilindrada)/398 Erro em sum(cilindrada) : invalid 'type' (character) of argument > cilindrada [1] "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "4" "6" "6" "6" [19] "4" "4" "4" "4" "4" "4" "6" "8" "8" "8" "8" "4" "4" "4" "4" "6" "6" "6" [37] "6" "6" "8" "8" "8" "8" "8" "8" "8" "6" "4" "6" "6" "4" "4" "4" "4" "4" [55] "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "3" [73] "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" [91] "8" "8" "8" "8" "8" "8" "8" "6" "6" "6" "6" "6" "4" "8" "8" "8" "8" "6" [109] "4" "4" "4" "3" "4" "6" "4" "8" "8" "4" "4" "4" "4" "8" "4" "6" "8" "6" [127] "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "8" "8" "8" "8" "8" "4" "4" "4" [145] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "6" "6" "8" "8" "8" "8" "6" "6" [163] "6" "6" "6" "8" "8" "4" "4" "6" "4" "4" "4" "4" "6" "4" "6" "4" "4" "4" [181] "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "4" "4" "4" [199] "4" "6" "6" "6" "6" "4" "4" "4" "4" "4" "8" "4" "6" "6" "8" "8" "8" "8" [217] "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "8" "8" "8" "8" "4" [235] "4" "4" "4" "4" "4" "4" "4" "6" "4" "3" "4" "4" "4" "4" "4" "8" "8" "8" [253] "6" "6" "6" "4" "6" "6" "6" "6" "6" "6" "8" "6" "8" "8" "4" "4" "4" "4" [271] "4" "4" "4" "4" "5" "6" "4" "6" "4" "4" "6" "6" "4" "6" "6" "8" "8" "8" [289] "8" "8" "8" "8" "8" "4" "4" "4" "4" "5" "8" "4" "8" "4" "4" "4" "4" "4" [307] "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" [325] "4" "4" "4" "5" "4" "4" "4" "4" "4" "6" "3" "4" "4" "4" "4" "4" "4" "6" [343] "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [361] "6" "6" "6" "6" "8" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [379] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "4" "6" "4" "4" "4" "4" "4" "4" [397] "4" "4" > mean(cilindrada) [1] NA Warning message: In mean.default(cilindrada) : argumento não é numérico nem lógico: retornando NA > sum(cilindrada)/398 Erro em sum(cilindrada) : invalid 'type' (character) of argument > sum(cilindrada) Erro em sum(cilindrada) : invalid 'type' (character) of argument > mean() Erro: unexpected '<' in "mean(<" > cilindrada [1] "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "4" "6" "6" "6" [19] "4" "4" "4" "4" "4" "4" "6" "8" "8" "8" "8" "4" "4" "4" "4" "6" "6" "6" [37] "6" "6" "8" "8" "8" "8" "8" "8" "8" "6" "4" "6" "6" "4" "4" "4" "4" "4" [55] "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "3" [73] "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" [91] "8" "8" "8" "8" "8" "8" "8" "6" "6" "6" "6" "6" "4" "8" "8" "8" "8" "6" [109] "4" "4" "4" "3" "4" "6" "4" "8" "8" "4" "4" "4" "4" "8" "4" "6" "8" "6" [127] "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "8" "8" "8" "8" "8" "4" "4" "4" [145] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "6" "6" "8" "8" "8" "8" "6" "6" [163] "6" "6" "6" "8" "8" "4" "4" "6" "4" "4" "4" "4" "6" "4" "6" "4" "4" "4" [181] "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "4" "4" "4" [199] "4" "6" "6" "6" "6" "4" "4" "4" "4" "4" "8" "4" "6" "6" "8" "8" "8" "8" [217] "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "8" "8" "8" "8" "4" [235] "4" "4" "4" "4" "4" "4" "4" "6" "4" "3" "4" "4" "4" "4" "4" "8" "8" "8" [253] "6" "6" "6" "4" "6" "6" "6" "6" "6" "6" "8" "6" "8" "8" "4" "4" "4" "4" [271] "4" "4" "4" "4" "5" "6" "4" "6" "4" "4" "6" "6" "4" "6" "6" "8" "8" "8" [289] "8" "8" "8" "8" "8" "4" "4" "4" "4" "5" "8" "4" "8" "4" "4" "4" "4" "4" [307] "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" [325] "4" "4" "4" "5" "4" "4" "4" "4" "4" "6" "3" "4" "4" "4" "4" "4" "4" "6" [343] "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [361] "6" "6" "6" "6" "8" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [379] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "4" "6" "4" "4" "4" "4" "4" "4" [397] "4" "4" > mean("cinlindrada") [1] NA Warning message: In mean.default("cinlindrada") : argumento não é numérico nem lógico: retornando NA > mean(cinlindrada) Erro em mean(cinlindrada) : objeto "cinlindrada" não encontrado > mean() Erro: unexpected '<' in "mean(<" > cilidrada Erro: objeto "cilidrada" não encontrado > cilindrada [1] "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "4" "6" "6" "6" [19] "4" "4" "4" "4" "4" "4" "6" "8" "8" "8" "8" "4" "4" "4" "4" "6" "6" "6" [37] "6" "6" "8" "8" "8" "8" "8" "8" "8" "6" "4" "6" "6" "4" "4" "4" "4" "4" [55] "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "3" [73] "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" [91] "8" "8" "8" "8" "8" "8" "8" "6" "6" "6" "6" "6" "4" "8" "8" "8" "8" "6" [109] "4" "4" "4" "3" "4" "6" "4" "8" "8" "4" "4" "4" "4" "8" "4" "6" "8" "6" [127] "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "8" "8" "8" "8" "8" "4" "4" "4" [145] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "6" "6" "8" "8" "8" "8" "6" "6" [163] "6" "6" "6" "8" "8" "4" "4" "6" "4" "4" "4" "4" "6" "4" "6" "4" "4" "4" [181] "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "4" "4" "4" [199] "4" "6" "6" "6" "6" "4" "4" "4" "4" "4" "8" "4" "6" "6" "8" "8" "8" "8" [217] "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "8" "8" "8" "8" "4" [235] "4" "4" "4" "4" "4" "4" "4" "6" "4" "3" "4" "4" "4" "4" "4" "8" "8" "8" [253] "6" "6" "6" "4" "6" "6" "6" "6" "6" "6" "8" "6" "8" "8" "4" "4" "4" "4" [271] "4" "4" "4" "4" "5" "6" "4" "6" "4" "4" "6" "6" "4" "6" "6" "8" "8" "8" [289] "8" "8" "8" "8" "8" "4" "4" "4" "4" "5" "8" "4" "8" "4" "4" "4" "4" "4" [307] "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" [325] "4" "4" "4" "5" "4" "4" "4" "4" "4" "6" "3" "4" "4" "4" "4" "4" "4" "6" [343] "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [361] "6" "6" "6" "6" "8" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [379] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "4" "6" "4" "4" "4" "4" "4" "4" [397] "4" "4" > mean() Erro: unexpected '<' in "mean(<" > mean(cilindrada) [1] NA Warning message: In mean.default(cilindrada) : argumento não é numérico nem lógico: retornando NA > dataset$b [1] "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "4" "6" "6" "6" [19] "4" "4" "4" "4" "4" "4" "6" "8" "8" "8" "8" "4" "4" "4" "4" "6" "6" "6" [37] "6" "6" "8" "8" "8" "8" "8" "8" "8" "6" "4" "6" "6" "4" "4" "4" "4" "4" [55] "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "3" [73] "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" [91] "8" "8" "8" "8" "8" "8" "8" "6" "6" "6" "6" "6" "4" "8" "8" "8" "8" "6" [109] "4" "4" "4" "3" "4" "6" "4" "8" "8" "4" "4" "4" "4" "8" "4" "6" "8" "6" [127] "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "8" "8" "8" "8" "8" "4" "4" "4" [145] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "6" "6" "8" "8" "8" "8" "6" "6" [163] "6" "6" "6" "8" "8" "4" "4" "6" "4" "4" "4" "4" "6" "4" "6" "4" "4" "4" [181] "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "4" "4" "4" [199] "4" "6" "6" "6" "6" "4" "4" "4" "4" "4" "8" "4" "6" "6" "8" "8" "8" "8" [217] "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "8" "8" "8" "8" "4" [235] "4" "4" "4" "4" "4" "4" "4" "6" "4" "3" "4" "4" "4" "4" "4" "8" "8" "8" [253] "6" "6" "6" "4" "6" "6" "6" "6" "6" "6" "8" "6" "8" "8" "4" "4" "4" "4" [271] "4" "4" "4" "4" "5" "6" "4" "6" "4" "4" "6" "6" "4" "6" "6" "8" "8" "8" [289] "8" "8" "8" "8" "8" "4" "4" "4" "4" "5" "8" "4" "8" "4" "4" "4" "4" "4" [307] "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" [325] "4" "4" "4" "5" "4" "4" "4" "4" "4" "6" "3" "4" "4" "4" "4" "4" "4" "6" [343] "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [361] "6" "6" "6" "6" "8" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [379] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "4" "6" "4" "4" "4" "4" "4" "4" [397] "4" "4" > a=(1,4,7) Erro: unexpected ',' in "a=(1," > a<-(1,4,7) Erro: unexpected ',' in "a<-(1," > a <- (1,4,7) Erro: unexpected ',' in "a <- (1," > a <- ( 1, 4 , 7 ) Erro: unexpected ',' in "a <- ( 1," > a=2 > a=2,6 Erro: unexpected ',' in "a=2," > dataset$b [1] "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "4" "6" "6" "6" [19] "4" "4" "4" "4" "4" "4" "6" "8" "8" "8" "8" "4" "4" "4" "4" "6" "6" "6" [37] "6" "6" "8" "8" "8" "8" "8" "8" "8" "6" "4" "6" "6" "4" "4" "4" "4" "4" [55] "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "3" [73] "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" [91] "8" "8" "8" "8" "8" "8" "8" "6" "6" "6" "6" "6" "4" "8" "8" "8" "8" "6" [109] "4" "4" "4" "3" "4" "6" "4" "8" "8" "4" "4" "4" "4" "8" "4" "6" "8" "6" [127] "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "8" "8" "8" "8" "8" "4" "4" "4" [145] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "6" "6" "8" "8" "8" "8" "6" "6" [163] "6" "6" "6" "8" "8" "4" "4" "6" "4" "4" "4" "4" "6" "4" "6" "4" "4" "4" [181] "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "4" "4" "4" [199] "4" "6" "6" "6" "6" "4" "4" "4" "4" "4" "8" "4" "6" "6" "8" "8" "8" "8" [217] "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "8" "8" "8" "8" "4" [235] "4" "4" "4" "4" "4" "4" "4" "6" "4" "3" "4" "4" "4" "4" "4" "8" "8" "8" [253] "6" "6" "6" "4" "6" "6" "6" "6" "6" "6" "8" "6" "8" "8" "4" "4" "4" "4" [271] "4" "4" "4" "4" "5" "6" "4" "6" "4" "4" "6" "6" "4" "6" "6" "8" "8" "8" [289] "8" "8" "8" "8" "8" "4" "4" "4" "4" "5" "8" "4" "8" "4" "4" "4" "4" "4" [307] "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" [325] "4" "4" "4" "5" "4" "4" "4" "4" "4" "6" "3" "4" "4" "4" "4" "4" "4" "6" [343] "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [361] "6" "6" "6" "6" "8" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [379] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "4" "6" "4" "4" "4" "4" "4" "4" [397] "4" "4" > cilindros = dataset$b > cilindros [1] "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "4" "6" "6" "6" [19] "4" "4" "4" "4" "4" "4" "6" "8" "8" "8" "8" "4" "4" "4" "4" "6" "6" "6" [37] "6" "6" "8" "8" "8" "8" "8" "8" "8" "6" "4" "6" "6" "4" "4" "4" "4" "4" [55] "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "3" [73] "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" [91] "8" "8" "8" "8" "8" "8" "8" "6" "6" "6" "6" "6" "4" "8" "8" "8" "8" "6" [109] "4" "4" "4" "3" "4" "6" "4" "8" "8" "4" "4" "4" "4" "8" "4" "6" "8" "6" [127] "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "8" "8" "8" "8" "8" "4" "4" "4" [145] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "6" "6" "8" "8" "8" "8" "6" "6" [163] "6" "6" "6" "8" "8" "4" "4" "6" "4" "4" "4" "4" "6" "4" "6" "4" "4" "4" [181] "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "4" "4" "4" [199] "4" "6" "6" "6" "6" "4" "4" "4" "4" "4" "8" "4" "6" "6" "8" "8" "8" "8" [217] "4" "4" "4" "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "8" "8" "8" "8" "4" [235] "4" "4" "4" "4" "4" "4" "4" "6" "4" "3" "4" "4" "4" "4" "4" "8" "8" "8" [253] "6" "6" "6" "4" "6" "6" "6" "6" "6" "6" "8" "6" "8" "8" "4" "4" "4" "4" [271] "4" "4" "4" "4" "5" "6" "4" "6" "4" "4" "6" "6" "4" "6" "6" "8" "8" "8" [289] "8" "8" "8" "8" "8" "4" "4" "4" "4" "5" "8" "4" "8" "4" "4" "4" "4" "4" [307] "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" [325] "4" "4" "4" "5" "4" "4" "4" "4" "4" "6" "3" "4" "4" "4" "4" "4" "4" "6" [343] "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [361] "6" "6" "6" "6" "8" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" [379] "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "4" "6" "4" "4" "4" "4" "4" "4" [397] "4" "4" > mean() Erro: unexpected '<' in "mean(<" > mean(cilindros) [1] NA Warning message: In mean.default(cilindros) : argumento não é numérico nem lógico: retornando NA > cilindros = dataset$b > mean(cilindros) [1] NA Warning message: In mean.default(cilindros) : argumento não é numérico nem lógico: retornando NA > dataset <- scan ("variaveis.dat" , what=list (a="",b="",c="",d="",e="",f="",g="",h="",i="")) Read 398 records > cilindros=dataset$b > cilindros [1] "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "4" "6" "6" "6" "4" "4" "4" "4" "4" "4" "6" "8" "8" "8" "8" "4" "4" "4" "4" "6" "6" "6" "6" [38] "6" "8" "8" "8" "8" "8" "8" "8" "6" "4" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "3" "8" "8" [75] "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "4" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "8" "6" "6" "6" "6" "6" "4" "8" "8" "8" "8" "6" "4" "4" "4" [112] "3" "4" "6" "4" "8" "8" "4" "4" "4" "4" "8" "4" "6" "8" "6" "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "8" "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" [149] "4" "4" "4" "4" "6" "6" "6" "6" "8" "8" "8" "8" "6" "6" "6" "6" "6" "8" "8" "4" "4" "6" "4" "4" "4" "4" "6" "4" "6" "4" "4" "4" "4" "4" "4" "4" "4" [186] "4" "4" "8" "8" "8" "8" "6" "6" "6" "6" "4" "4" "4" "4" "6" "6" "6" "6" "4" "4" "4" "4" "4" "8" "4" "6" "6" "8" "8" "8" "8" "4" "4" "4" "4" "4" "8" [223] "8" "8" "8" "6" "6" "6" "6" "8" "8" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "3" "4" "4" "4" "4" "4" "8" "8" "8" "6" "6" "6" "4" "6" "6" "6" [260] "6" "6" "6" "8" "6" "8" "8" "4" "4" "4" "4" "4" "4" "4" "4" "5" "6" "4" "6" "4" "4" "6" "6" "4" "6" "6" "8" "8" "8" "8" "8" "8" "8" "8" "4" "4" "4" [297] "4" "5" "8" "4" "8" "4" "4" "4" "4" "4" "6" "6" "4" "4" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "5" "4" "4" "4" "4" "4" [334] "6" "3" "4" "4" "4" "4" "4" "4" "6" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "6" "6" "8" "6" "6" "4" "4" "4" [371] "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "4" "6" "6" "4" "6" "4" "4" "4" "4" "4" "4" "4" "4" > mean(cilindros) [1] NA Warning message: In mean.default(cilindros) : argumento não é numérico nem lógico: retornando NA > sum(cilindros) Erro em sum(cilindros) : invalid 'type' (character) of argument > plot(cilindros) > sumary(cilindros) Erro: não foi posssível encontrar a função "sumary" > summary(cilindros) Length Class Mode 398 character character > dataset <- scan ("variaveis.dat" , what=list (a="",b=0,c="",d="",e="",f="",g="",h="",i="")) Read 398 records > cilindros=dataset$b > summary(cilindros) Min. 1st Qu. Median Mean 3rd Qu. Max. 3.000 4.000 4.000 5.455 8.000 8.000 > mean(cilindros) [1] 5.454774 > sort(cilindros) [1] 3 3 3 3 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 [76] 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 [151] 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 5 5 5 6 6 6 6 6 6 6 6 6 6 6 6 6 6 [226] 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 8 8 8 8 8 [301] 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 [376] 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 > while{ Erro: unexpected '{' in "while{" > var(cilindros,FALSE) Erro em var(cilindros, FALSE) : dimensões incompatíveis > var(clindros, na.rm=FALSE) Erro em inherits(x, "data.frame") : objeto "clindros" não encontrado > var(cilindros, na.rm=FALSE) [1] 2.893415 > sd(cilindros) [1] 1.701004 > mode(cilindros) [1] "numeric" > mode(cilindros) [1] "numeric" >