search for: pareja

Dear Friends. I am just starting to use R. And in this occasion I want to construct a high-dimensional contingency table, because I want to crate a mosaic plot with the vcd package. My table is in this format: año ac.rep cat.gru conteos 1 2005 R parejas 253 2 2005 N parejas 23 3 2006 R parejas 347 4 2006 N parejas 39 5 2007 R parejas 266 6 2007 N parejas 83 7 2005 R solitarios 53 8 2005 N solitarios 1 9 2006 R solitarios 109 10 2006 N sol...

Hola a todos Estoy cargando una base de datos a R llamada "Base", desde excel. A la hora de utilizar funciones como: >pairs(Base) Error in pairs.default(Base) : non-numeric argument to 'pairs' Una forma de arreglar este problema es utilizando la funcion as.numeric(), pero me toca hacerlo variable por variable: >Base$Variable1<-as.numeric( Base$Variable1)

...columnas (desordenados) y un set de numeros de fila el loop lo que hace es ir a la fila y columna correspondiente de data, tomar el valor y luego hacer la media sobre esos. data=matrix(rnorm(100*20),20,100) col=sample(1:100,100) t1=Sys.time() medias=replicate(1000,{ sel=sample(1:20,10) pareja=sample(sel,100,replace = T) ta=Sys.time() recep=NULL for(i in 1:100){ n=col[i] m=pareja[i] c=data[m,n] recep=c(recep,c) } tb=Sys.time() media=mean(recep) tt=tb-ta c(media,tt) },simplify=T) t2=Sys.time() diftime=(t2-t1)[[1]] sum(medias[2,])/diftime Fe...

...> en este caso "mapply()", mejore los tiempos frente a la solución > basada en un bucle. > > #------------------------- > t1 <- Sys.time() > > *myfun <- function(x,y) { data[x,y] }* > > medias <- replicate(1000,{ > sel <- sample(1:20,10) > pareja <- sample(sel,100,replace = T) > ta <- Sys.time() > *#cambio > resnew <- mapply(myfun, pareja, col) > #cambio * > tb <- Sys.time() > media <- mean(resnew) > tt <- tb-ta > c(media,tt) > }) > > t2 <- Sys.time() > > diftime=(t2-...

Hola a todos. Ya he escrito sobre esto pero vuelvo a no ser capaz de resolver una cosa Tengo este archivo año   mes      fecha  puerto           barco   origen       arte            2007 enero 2007-01-04 Ribeira  juan        Norte     PAREJA      2007 enero 2007-01-04 Ribeira    luis        -Norte     BETA    2007 enero 2007-01-04 Ribeira  pedro     Norte     PAREJA      2007 enero 2007-01-04 Ribeira    marcosNorte     BACA     2007 enero 2007-01-04 Ribeira       nolo    Norte     GNR   2007 enero 2007-01-04 Ribeira      bein    ...

...to de los loops como usar for(). Conozco las ventajas de usar estas funciones y por eso mi intento de hacerme de ellas. Por ejemplo en este problema: data=matrix(rnorm(100*20),20,100) col=sample(1:100,100) t1=Sys.time() medias=replicate(1000,{ sel=sample(1:20,10) pareja=sample(sel,100,replace = T) ta=Sys.time() *recep=NULL** ** for(i in 1:100){** ** n=col[i]** ** m=pareja[i]** ** c=data[m,n]** ** recep=c(recep,c)** ** }** * tb=Sys.time() media=mean(recep) tt=tb-ta c(media,tt) }) t2...

...nt-Type: text/plain > > Hola a todos. > Ya he escrito sobre esto pero vuelvo a no ser capaz de resolver una cosa > > Tengo este archivo > > > > año mes fecha puerto barco origen arte > > 2007 enero 2007-01-04 Ribeira juan Norte PAREJA > 2007 enero 2007-01-04 Ribeira luis -Norte BETA > 2007 enero 2007-01-04 Ribeira pedro Norte PAREJA > 2007 enero 2007-01-04 Ribeira marcosNorte BACA > 2007 enero 2007-01-04 Ribeira nolo Norte GNR > 2007 enero 2007-01-04 Ribeira bein...

...tk. Me gustaría modificar la salida del comando cat y que se muestre tanto en la ventana de comandos R, como en una variable de tipo tktext dentro de la interfaz. Muchas gracias. _________________________________________________________________ ¡Citas! ¡Ligues! ¿Salimos? ¿Cómo es tu pareja ideal? Búscala en[[elided Hotmail spam]] [[alternative HTML version deleted]]

...ados-Divisiones > EsGraDivTmp <- as.matrix(EsGraDiv, ncol=1, nrow=length(EsGraDiv) ) > EsGraDivEnd <- as.data.frame(EsGraDivTmp) > > #---------------------- Profesores > #Asignar a cada uno de los T maestros a 2 clases en 1 grado y 1 escuela > #Al ser 2 clases creo todas las parejas posibles > #de las que escogeré 2 clases del mismo grado y misma escuela > Allpairs <- as.data.frame(t(combn(EsGraDivTmp, 2))) > AllpairsTmp <- paste(Allpairs$V1, Allpairs$V2, sep=" ") > > #Aqui tengo las parejas en la misma fila y separadas en columnas > library(...

Hola, 0. La falta de 'elegancia' hace que sea mas dificil hacer cambios al codigo. Por ejemplo cambiar n.classrooms <- 4 a n.classrooms <- 20 1. Cuando tengo solo 4 puedo hacer esto: schoolGrade$A <- Teachers$Teacher.ID[1:cuttoff1] schoolGrade$B <- Teachers$Teacher.ID[1:cuttoff1] schoolGrade$C <- Teachers$Teacher.ID[(cuttoff1+1):n.teachers] schoolGrade$D <-

Hola a tod en s, queremos hacer una comparación entre dos lugares muy alejados entre sí en relación a la temperatura de cada sitio usando medias horarias de un período determinado. Sólo hay medidas de un sensor en cada sitio y queremos saber si las diferencias son significativas o no entre sitios/curvas. Hemos usado un test de Mann?Whitney U con la función wilcox.test (paired=F) ya que los

...> V1a V1b V2a V2b > 1 1 0 1 1 > 2 1 1 0 1 > 3 0 0 0 0 > 4 1 0 1 0 > 5 0 1 0 0 > 6 0 0 1 0 > 7 1 0 0 0 > 8 1 1 1 0 > 9 0 0 0 0 > 10 0 1 1 1 > > > #--- Función compara parejas de columnas comienzan por mismas 2 letras. > > *colcompare <- function(df)* { > + > + nam_val <- names(df) %>% stri_sub(from = 1, to = 2) %>% unique() > + res_df <- data.table() > + for (i in 1:length(nam_val)) { > + cols_tmp <- nam_val[i] >...

...> V1a V1b V2a V2b > 1 1 0 1 1 > 2 1 1 0 1 > 3 0 0 0 0 > 4 1 0 1 0 > 5 0 1 0 0 > 6 0 0 1 0 > 7 1 0 0 0 > 8 1 1 1 0 > 9 0 0 0 0 > 10 0 1 1 1 > > > #--- Función compara parejas de columnas comienzan por mismas 2 letras. > > *colcompare <- function(df)* { > + > + nam_val <- names(df) %>% stri_sub(from = 1, to = 2) %>% unique() > + res_df <- data.table() > + for (i in 1:length(nam_val)) { > + cols_tmp <- nam_val[i] >...

...V1a V1b V2a V2b > 1 0 1 0 0 > 2 0 0 1 0 > 3 0 1 0 0 > ... > > y quiero que V1a valga "1" si V1a o V1b valen 1, V2a valga "1" si V2a o > V2b valen 1 y así sucesivamente. Lo hago mediante un transform con una > línia para cada pareja de variables: > > df <- transform (df > , V1a = ifelse (V1a == "1" | V1b == "1", "1, "0") > , V2a = ifelse (V2a == "1" | V2b == "1", "1, "0")) > > ) > ¿Habria forma de hacerlo (¿con u...

...s.matrix(EsGraDiv, ncol=1, nrow=length(EsGraDiv) ) >>> EsGraDivEnd <- as.data.frame(EsGraDivTmp) >>> >>> #---------------------- Profesores >>> #Asignar a cada uno de los T maestros a 2 clases en 1 grado y 1 escuela >>> #Al ser 2 clases creo todas las parejas posibles >>> #de las que escogeré 2 clases del mismo grado y misma escuela >>> Allpairs <- as.data.frame(t(combn(EsGraDivTmp, 2))) >>> AllpairsTmp <- paste(Allpairs$V1, Allpairs$V2, sep=" ") >>> >>> #Aqui tengo las parejas en la misma fi...

Buenas tardes, Quiero aplicar la función rbind y necesito tener los mismos nombres de columnas. Como tengo unas 195 variables en cada dataframe, necesito hacerlo de una forma rápida. Tengo 9 bases de datos y tengo que fusionar todas. ¿Como puedo comprobar que los nombres de las variables son los mismos? Y de lo contrario, ¿como detecto las diferencias? He probado con

Hola, Tengo un tabla de datos con pacientes asistidos, para los cuáles tengo variables como dni, género, programa de atención etc. Hay pacientes que atendieron en más de un programa por lo cuál se repiten en la tabla. Lo que quiero es poder contar con una matriz que me permita identificar la cantidad de pacientes que coinciden entre programas. Va un ejemplo: [image: image.png] Intenté de

Hola a todos! perdón por molestarlos nuevamente con los contrastes, pero estoy trantando de entender que es lo que está haciendo R y de donde vienen los valores que informa pero  no lo logro. Creí haberlo entendido pero a la hora de usar mis datos los resultados no dan como deberían. Tengo dos variables explicativas que son factores con 3 niveles cada uno. Esta es la tabla de medias de la

...hd\tmp" 'net use * \\192.168.0.24\tmp' works fine without prompting user and password authentication - with the browser happens the same, using name fails, but with ip, works fine. ---Publicidad-------------------------------------------------------- ?nete a los miles de sin pareja en Meetic... ?te vas a enamorar! http://www.iespana.es/_reloc/email.meetic ---Publicidad-------------------------------------------------------- Juega con Ventura24.es, loter?a inteligente y multiplica tus posibilidades!! http://www.iespana.es/_reloc/email.ventura

...etiqueta") pero se produce el siguiente error Error en parent$ID : $ operator is invalid for atomic vectors Muchas gracias de antemano un saludo _________________________________________________________________ ¡Citas! ¡Ligues! ¿Salimos? ¿Cómo es tu pareja ideal? Búscala en[[elided Hotmail spam]] [[alternative HTML version deleted]]