Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.
Estoy realizando operaciones matemáticas simples por columna en filas de un marco de datos que también implican acceder a filas de marcos de datos adyacentes y anteriores. Aunque el código a continuación funciona, es engorroso (al menos en lo que respecta a mi uso liberal de las funciones cbind() y . . . Read more
Cuando ejecuto este código, obtengo un error: genes<-colnames(survdata)[-c(1:3)] univ_formulas<-sapply(genes,function(x)as.formula(paste(‘Surv(OS,status)~’,x))) Error in str2lang(x) : <texto>:1:31: símbolo inesperado 1: Surv(OS,status)~ ABC7-42389800N19.1 ^ Si elimino el elemento y vuelvo a ejecutar el código, aparece un error similar: univ_formulas<-sapply(genes,function(x)as.formula(paste(‘Surv(OS,status)~’,x))) Error in str2lang(x) : <texto>:1:26: símbolo inesperado 1: Surv(OS,status)~ CITF22-1A6.3 ^ No sé dónde está . . . Read more
Mi dataframe luce así: x s1 s2 s3 s4 1 x1 1 1954 1 yes 2 x2 2 1955 1 no 3 x3 1 1976 2 yes 4 x4 2 1954 2 yes 5 x5 3 1943 1 no Datos de muestra: df <- data.frame(x=c(‘x1′,’x2′,’x3′,’x4′,’x5’), s1=c(1,2,1,2,3), s2=c(1954,1955,1976,1954,1943), s3=c(1,1,2,2,1), s4=c(‘yes’,’no’,’yes’,’yes’,’no’)) ¿Es . . . Read more
He escrito una función que cuenta el número de palabras (unigramas) en una oración: library(ngram) library(stringi) library(tidyverse) set.seed(123) get_unigrams <- function(text) { sapply(text, function(text){ unigram<- ngram(text, n = 1) %>% get.ngrams() %>% length() return(unigram) }) } Para hacer esto, utilicé la función sapply que aplica mi función get_unigrams a cada . . . Read more
Estoy intentando comparar cada fecha (encontrar el valor máximo / última fecha) para cada fila en una columna del marco de datos con una sola fecha. Por ejemplo: Cuando comparo con compare_date="2018-08-02", debe dar una salida de la última fecha entre cada fila y compare_date. Entonces, el nuevo marco de . . . Read more