Nuevamente necesito ayuda, parece que en lugar de aprender ¿desaprendo?
Es un problema sencillo, cosas que uno ya hacía y ahora por arte de magia no
salen.

Se trata sobre apply (esta vez no intente con programación). La intención es
crear una columna en el data.frame donde coloco palabras o NA, de acuerdo a
una columna donde está todo codificado.
Posiblemente se entiende mejor copiando y pegando los ejemplos en R que
escribo a continuación, en entonces_quiero está el resultado final
(deseado).

# creo algunos datos
x<-c(1,2,3,4,5,6)
y<-c(1,2,'p','s','s','p')
#  Lo deseo acomodar de la siguiente forma (estilo survival)
quiero_p <-c(NA,NA,'p',NA,NA,'p')
quiero_s <-c(NA,NA,NA,'s','s',NA)
entonces_quiero<-data.frame(x,y,quiero_p,quiero_s)
entonces_quiero
# funcion para el caso 's'
ver <- function(x){
        if (x=='s') {y <- 's'
          return(y)}
        else {y<-NA
          return(y)}
        }
# pruebo la función para valores ingresados de a uno y a mano
ver("p")
ver("s")
ver(1)
ver(2)
# los valores dados por la función ver son los correctos.


#youtube   ejemplo http://www.youtube.com/watch?v=WR8ftX-GJoE
ceros <- function(x){if(x<3){x=0}else{x=1}}
apply(entonces_quiero[,1:2], c(1,2), ceros)
# pero no
apply(entonces_quiero, c(1,2), ceros)

# probando mi función "ver" como la funcion "ceros" (solo para la segunda
columna. Me da un error
apply(entonces_quiero[,2], c(1,2),ver)
# también probe algo como  <- function(x){if(x=='s'){x=='s'}else{x==NA}}
#
# es algo medio tonto, documentado en todos lados, pero tengo un problema y
no me doy cuenta
# hoy me canse de cometer errores con esto

	[[alternative HTML version deleted]]

