[R-es] Nueva consulta

[J. Miguel Marin]

Hola,

funciona si usas esto (traes los datos desde Internet):

> tabla <- read.csv("http://www.hofroe.net/stat557/data/crab.txt", 
> header=T, sep="\t")

> dimnames(tabla)[[2]] = c("color" ,"spine" ,"width" ,"satell","weight")

> names(tabla)

[1] "color"  "spine"  "width"  "satell" "weight"

> (tabla$satell.bin = ifelse(tabla$satell > 0, 1, 0))
  [1] 1 0 1 0 1 0 0 0 0 0 0 0 1 0 1 1 1 1 0 1 1 1 1 1 1 0 1 1 0 0 1 0 0 1 1 0 0
[38] 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 1 1 1 0 1
[75] 0 0 1 1 0 1 0 0 0 1 0 1 0 0 0 0 1 0 0 0 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[112] 1 0 1 1 0 1 0 1 1 1 1 0 1 1 0 1 1 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 0 
0 1 1 1
[149] 1 1 1 0 0 0 0 1 0 1 0 1 1 1 1 0 1 0 0 1 1 1 0 0 0

> tabla[1:5,]

  color spine width satell weight satell.bin
1     3     3  28.3      8   3050          1
2     4     3  22.5      0   1550          0
3     2     1  26.0      9   2300          1
4     4     3  24.8      0   2100          0
5     4     3  26.0      4   2600          1

De algún modo no estabas leyendo el campo de "satell.bin".

Un saludo


> Estimado Manuel Máquez
>
> ¿Que pasa si cambias tabla$satell.bin?
>
> Algo como
>
> datos <- ifelse (tabla$satell > 0, 1, 0))
>
> Javier Marcuzzi
>
>
> El 28 de mayo de 2013 14:45, Manuel Máquez <manuelmx11 en gmail.com> escribió:
>
>> Hola buenas tardes:
>> Vuelvo a solicitar su ayuda porque no puedo saber que pasa. Estoy usando el
>> documento 'Regresión Logística Categor/Tema 4 Cate.pdf como guía y el
>> ejemplo que ustedes conocen de los cangrejos (crab.txt).
>> Cargo los datos, los guardo en un data frame llamado tabla; al pedir
>> tabla[1:5,] obtengo:
>>   color spine width satell weight
>> 1  3       3       28.3     8      3050
>> 2  4       3       22.5     0      1550
>> 3  2       1       24.0     9      2300
>> 4  4       3       24.8     0      2100
>> 5  4       3       26.0     4      2600
>> Se desea discretizar satell para tener 1 si tiene concubinos y 0 para
>> cuando no los hay y el documento dice se use:
>> (tabla$satell.bin=ifelse (tabla$satell > 0, 1, 0))
>> pero la Pc reporta:
>> Error en '$<-.data.frame'('*tmp*',"satell.bin", value = logical(0)):
>> replacement has 0 rows, data has 173.
>> La pregunta es ¿el documento esta mal?  o existe alguna otra manera de
>> discretizar.
>> Gracias anticipadas.
>>
>>
>>
>> *MANOLO MÁRQUEZ P.*
>>
>>         [[alternative HTML version deleted]]
>>
>>
>> _______________________________________________
>> R-help-es mailing list
>> R-help-es en r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>>
>
> 	[[alternative HTML version deleted]]
>
>




jm~

_______________________________

        J. Miguel Marin

http://www.est.uc3m.es/jmmarin

    Dep. of Statistics
University Carlos III of Madrid
     European Union (EU)