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]]
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@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@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > >[[alternative HTML version deleted]]
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)
Hola Manuel,
Con el código que pongo a continuación funciona perfectamente:
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)
tabla[1:5,]
(tabla$satell.bin=ifelse (tabla$satell > 0, 1, 0))
El error que te da puede deberse a los espacios que pone de más si copias y
pegas desde el pdf.
Un saludo,
Date: Tue, 28 May 2013 12:45:35 -0500
From: manuelmx11@gmail.com
To: R-help-es@r-project.org
Subject: [R-es] Nueva consulta
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@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[[alternative HTML version deleted]]