[R-es] Conexión R y Lime survey
Cordial saludo a todos,
Espero que se encuentren muy bien.
Estoy tratando de automatizar un cleaning de una base de datos, por lo que
requiero que se conecte automáticamente a una data generada de una encuesta
en LimeSurvey. Para esto seguí un par de códigos sencillos que encontré de
LimeSurvey y GitHub:
# first limer (check version: must be recent) must be
installedif(!require("devtools")) {
install.packages("devtools")
library("devtools")}
install_github("cloudyr/limer")#
library(limer)
#change the next options (website, user, password)options(lime_api =
'https://www.XXX.nl/index.php/admin/remotecontrol')options(lime_username
= 'user')options(lime_password =
'password')#
# first get a session access key
get_session_key()
Pero al ejecutar el get_session_key () se genera este error:
Error: Argument 'txt' must be a JSON string, URL or file.
Luego de leer varios casos no entiendo aún realmente cómo solucionar esto,
por lo que si alguien ha presentado esto mismo y lo ha solucionado
agradecería una guía,
Agradezco la ayuda que me puedan dar con esto.
Saludos,
*David Contreras*
Estadístico
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Optimización identificación de casos similares
Gracias Jesús por tu ayuda.
El tema es que como está el código si se identifican, pero el problema es
que tiene que validar cada caso con los otros 99.999 casos y ahí la máquina
no soporta el proceso.
*David Contreras*
Estadístico
Móvil 3124345188. <%2B57%20%281%29%204841410%20Ext.%20257>
davidcontrera...@gmail.com
El jue., 7 feb. 2019 a las 11:31, Jesús Para Fernández (<
j.para.fernan...@hotmail.com>) escribió:
> Pues a mi se me ocurre algo chapuceril psp que puede funcionar.
>
> Separas cada dni ponkendo cada número en una columna.
>
> A continuación calculas las distancias y te quedas con aquellos cuya
> distancia sea menor o igual a nueve.
>
> Tendras mucho falso positivo, eso si, pero se podria afinar mas
>
> Obtener Outlook para Android <https://aka.ms/ghei36>
>
> ----------
> *From:* R-help-es on behalf of David
> Contreras
> *Sent:* Thursday, February 7, 2019 5:23:45 PM
> *To:* r-help-es
> *Subject:* [R-es] Optimización identificación de casos similares
>
> Buen día a todos,
>
> Agradezco su ayuda con lo siguiente:
>
> Tengo 100.000 registros con nombres de personas con su respectivo número de
> documento, quiero identificar casos que tengan un porcentaje de igualdad
> alto, no del 100% porque ya esos los tengo identificados, sino casos como
> por ejemplo:
>
> Nombre: Juan Pérez Documento: 123456789
> Nombre: Juan Pérez Documento: 1234056789
>
> Este caso sería una alerta de posible duplicado y tendría que revisarse
> porque posiblemente en uno de los dos casos se ingreso errado el número de
> documento.
>
> Para calcular esta diferencia uso la función adist del paquete (utils), el
> problema es que la forma en que tengo el código para revisar los 100.000
> casos, la máquina no lo soporta por los recorridos que se hacen:
>
> *El dataframe se llama Citacion.*
>
> *Citacion[,"NombreDoc"]<- paste0(Citacion[,"NOMBRE"]," ",
> Citacion[,"DOCUMENTO"]) # Concatena Nombre y documento*
>
> *Citacion[,"RNomDoc1"]<-0*
> *Citacion[,"RNomDoc2"]<-0*
>
> *ii<-1*
> *for(ii in 1:(nrow(Citacion)-1)){*
> * jj<-ii+1*
> * while(jj<=nrow(Citacion)){*
>
> *if (adist(Citacion[ii,"NombreDoc"],
> Citacion[jj,"NombreDoc"])/nchar(Citacion[ii,"NombreDoc"])<0.15){ #
> Criterio para marcar los posibles casos duplicados*
> * Citacion[ii,"RNomDoc1"]<-1*
> * Citacion[jj,"RNomDoc2"]<-1*
> * jj<-jj+1*
> * } else {*
> *Citacion[jj,"RNomDoc2"]<-0*
> *jj<-jj+1*
> *} *
> * } *
>
> *} *
>
> La idea es optimizar el código de alguna forma para agilizar el proceso y
> lograr que se identifiquen los casos a revisar.
>
> Mil gracias de nuevo.
>
> [[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]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Optimización identificación de casos similares
Buen día a todos,
Agradezco su ayuda con lo siguiente:
Tengo 100.000 registros con nombres de personas con su respectivo número de
documento, quiero identificar casos que tengan un porcentaje de igualdad
alto, no del 100% porque ya esos los tengo identificados, sino casos como
por ejemplo:
Nombre: Juan Pérez Documento: 123456789
Nombre: Juan Pérez Documento: 1234056789
Este caso sería una alerta de posible duplicado y tendría que revisarse
porque posiblemente en uno de los dos casos se ingreso errado el número de
documento.
Para calcular esta diferencia uso la función adist del paquete (utils), el
problema es que la forma en que tengo el código para revisar los 100.000
casos, la máquina no lo soporta por los recorridos que se hacen:
*El dataframe se llama Citacion.*
*Citacion[,"NombreDoc"]<- paste0(Citacion[,"NOMBRE"]," ",
Citacion[,"DOCUMENTO"]) # Concatena Nombre y documento*
*Citacion[,"RNomDoc1"]<-0*
*Citacion[,"RNomDoc2"]<-0*
*ii<-1*
*for(ii in 1:(nrow(Citacion)-1)){*
* jj<-ii+1*
* while(jj<=nrow(Citacion)){*
*if (adist(Citacion[ii,"NombreDoc"],
Citacion[jj,"NombreDoc"])/nchar(Citacion[ii,"NombreDoc"])<0.15){ #
Criterio para marcar los posibles casos duplicados*
* Citacion[ii,"RNomDoc1"]<-1*
* Citacion[jj,"RNomDoc2"]<-1*
* jj<-jj+1*
* } else {*
*Citacion[jj,"RNomDoc2"]<-0*
*jj<-jj+1*
*} *
* } *
*} *
La idea es optimizar el código de alguna forma para agilizar el proceso y
lograr que se identifiquen los casos a revisar.
Mil gracias de nuevo.
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] CONVERSIÓN HORAS Y VECTORIZAR
Buen día, Agradezco su colaboración con lo siguiente: Tengo la variable a que contiene horas en excel, al importarla a R sube en formato deciilmal. POr ejemplo la hora en excel aparece "10:45:00 a. m." al importarla a R queda "0.4479167". He usado el paquete chron y he logrado convertirla y verla como requiero. Sin embargo al querer pasarla a un vector y unirla en mi dataframe que contiene el resto de la información pierde las propiedades y la hora vuelve a quedar en formato decimal. Entrando más en detalle: hora: Objeto que Contiene la hora a: LIsta generada para convertir hora decimal a formato hora a<-lapply(dataframe[,'hora'],function(x)times(x)) Como unirla al dataframe sin que pierda las propiedades?? Gracias. *David Contreras* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Ayuda OVER_QUERY_LIMIT
Muchas gracias Javier como siempre por tu ayuda, en este momento el tema de presupuesto es algo complicado. Pero si tienes toda la razón con los comentarios. *David Contreras* Estadístico Móvil 3124345188. <%2B57%20%281%29%204841410%20Ext.%20257> davidcontrera...@gmail.com El 7 de febrero de 2018, 21:58, Javier Marcuzzi < javier.ruben.marcu...@gmail.com> escribió: > Estimado David Contreras > > Hay dos formas, si tienes el dinero o si no tienes el dinero. > > Si no tienes el dinero, no te preocupes, aparentemente la API le deja leer > algunos registros diarios, entonces todos los días puedes leer algunos y > guardarlos. > > Si tienes el dinero te puedo comentar que es lindo que nos abonen por > nuestro trabajo. > > Yo antes intentaba ahorrar todo lo que podía, pero la realidad era que > gastaba mucho tiempo y no andaba bien, luego comencé a pagar dentro de mis > posibilidades, y me di cuenta que ahorraba tiempo y mi tiempo también > cuesta. > > Javier Rubén Marcuzzi > > El 7 de febrero de 2018, 17:36, David Contreras < > davidcontrera...@gmail.com> escribió: > >> Buena tarde a todos, >> >> Estos realizando un proceso que requiere asignar coordenadas a un buen >> número de registros. Estoy usando el paquete ggmap, pero luego de hacer >> uso >> de la georeferenciación se genera el error "geocode failed with status >> OVER_QUERY_LIMIT" debido al límite de registros diarios. A pesar de decir >> el error que es cada día, ya me está generando error con pocos registros >> incluso sin completar los 2500 del día. >> En general la georeferenciación sirve de manera intermitente, es decir a >> veces sirve y a veces no. >> >> Nos gustaría si hay alguna forma de evitar que se genere este error sin >> tener que pagar dinero por la licencia de API. >> >> Gracias. >> >> >> >> >> *David Contreras* >> >> Estadístico. >> davidcontrera...@gmail.com >> >> [[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]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Ayuda OVER_QUERY_LIMIT
Buena tarde a todos, Estos realizando un proceso que requiere asignar coordenadas a un buen número de registros. Estoy usando el paquete ggmap, pero luego de hacer uso de la georeferenciación se genera el error "geocode failed with status OVER_QUERY_LIMIT" debido al límite de registros diarios. A pesar de decir el error que es cada día, ya me está generando error con pocos registros incluso sin completar los 2500 del día. En general la georeferenciación sirve de manera intermitente, es decir a veces sirve y a veces no. Nos gustaría si hay alguna forma de evitar que se genere este error sin tener que pagar dinero por la licencia de API. Gracias. *David Contreras* Estadístico. davidcontrera...@gmail.com [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Operaciones entre variables de un dataframe
Buen dia, Soluciando, gracias por su ayuda!!! *David Contreras* Estadístico Móvil 3124345188. <%2B57%20%281%29%204841410%20Ext.%20257> davidcontrera...@gmail.com El 16 de agosto de 2017, 6:59, Javier Marcuzzi < javier.ruben.marcu...@gmail.com> escribió: > Estimado David Contreras > > > > Lo primero no es sobre R, sino sobre el lenguaje, es lo mismo pero si > nombra las variables como A, B, y C, la lectura es mucho más simple para el > ojo humano y encontrar el error (luego colocar un nombre casi real). > > > > Es un problema simple, con muchas posibles formas para solucionarlo, lo > que usted plantea no es mala idea, cuándo yo realizo ese tipo de cálculos > primero veo las condiciones, por ejemplo, escribo si A>B en C escribir > casa, lo contrario en C escribir auto, si obtengo un data.frame con una > columna llena de casas y autos, reemplazo una de estas palabras por el > cálculo, corro R, si todo está bien luego continuo. Es algo tonto, pero es > mucho más sencillo ver un listado de palabras antes que números para > encontrar un error de escritura de nuestra parte en R (no es lo mismo dos > palabras posibles a varios números posibles). > > > > Lo que usted plantea no esta mal encaminado, pero debe escribir dos > renglones, uno para la condición que busca y otro para la que no desea, en > su caso para los que tienen menos que 0, simplemente para controlar un poco > los datos, en otras palabas decidir que pasa cuándo la condición no se > cumple, es una forma de conocer bien los datos, aunque no es indispensable > porque si la condición no se cumple no se realiza el cálculo. > > > > Javier Rubén Marcuzzi > > > > *De: *David Contreras > *Enviado: *miércoles, 16 de agosto de 2017 1:11 > *Para: *r-help-es > *Asunto: *[R-es] Operaciones entre variables de un dataframe > > > > Buenas noches a todos, > > > > Estoy empezando con la programación en R y tengo un inconveniente que estoy > > seguro ustedes lo resolverán muy fácil. > > > > Tengo un data frame y quiero calcular un nuevo campo dentro del mismo > > frame que se llama "wryB03", con dos variables que se llaman > "nEstCoordTMin" > > y "nEstCoordTMax", quiero crear una variable nueva "nCoor3.1" de acuerdo a > > la siguiente condición: > > > > - Cuando "nEstCoordTMin" >0 & "nEstCoordTMax">0 que me haga la siguiente > > operación en la variable "nCoor3.1" > > > > - "nEstCoordTMax" - "nEstCoordTMin" > > > > > > En el código tengo algo como: > > > > wryB03[(wryB03[,"nEstCoordTMin"]>0 & wryB03[,"nEstCoordTMax"]>0), > > "nCoor3.1"] <- wryB03[(wryB03[,"nEstCoordTMin"]>0 & > > wryB03[,"nEstCoordTMax"]>0),(wryB03[,"nEstCoordTMax"] - > > wryB03[,"nEstCoordTMin"])] > > > > El objetivo es crear una variable nueva "nCoor3.1" con la diferencia " > > nEstCoordTMax"- "nEstCoordTMin " cuando se cumpla la condición. > > > > Al ejecutar el código genera el siguiente error: > > > > Warning message: > > In `[<-.data.frame`(`*tmp*`, (wryB03[, "nEstCoordTMin"] > 0 & wryB03[, : > > provided 65 variables to replace 1 variables > > > > > > Agradezco su colaboración. > > > > Saludos, > > > > [[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]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Operaciones entre variables de un dataframe
Buenas noches a todos, Estoy empezando con la programación en R y tengo un inconveniente que estoy seguro ustedes lo resolverán muy fácil. Tengo un data frame y quiero calcular un nuevo campo dentro del mismo frame que se llama "wryB03", con dos variables que se llaman "nEstCoordTMin" y "nEstCoordTMax", quiero crear una variable nueva "nCoor3.1" de acuerdo a la siguiente condición: - Cuando "nEstCoordTMin" >0 & "nEstCoordTMax">0 que me haga la siguiente operación en la variable "nCoor3.1" - "nEstCoordTMax" - "nEstCoordTMin" En el código tengo algo como: wryB03[(wryB03[,"nEstCoordTMin"]>0 & wryB03[,"nEstCoordTMax"]>0), "nCoor3.1"] <- wryB03[(wryB03[,"nEstCoordTMin"]>0 & wryB03[,"nEstCoordTMax"]>0),(wryB03[,"nEstCoordTMax"] - wryB03[,"nEstCoordTMin"])] El objetivo es crear una variable nueva "nCoor3.1" con la diferencia " nEstCoordTMax"- "nEstCoordTMin " cuando se cumpla la condición. Al ejecutar el código genera el siguiente error: Warning message: In `[<-.data.frame`(`*tmp*`, (wryB03[, "nEstCoordTMin"] > 0 & wryB03[, : provided 65 variables to replace 1 variables Agradezco su colaboración. Saludos, [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] BUCLE
Buen día,
De antemano gracias por la respuesta tan oportuna, anoche después de muchas
pruebas lo logré, dejo el código por si otra persona se enfrenta al mismo
inconveniente:
a<-1
while (a<=nf){
data [a,]<-sample(MuestraS,replace=T)
if (a>1){
if (sum(duplicated(data[1:a, ]))!=0){a<-a}
else {a<-a+1}
}else {a<-a+1}
}
Saludos,
David C.
El 25 de marzo de 2015, 6:42, Reverté Calvet, Gerard
escribió:
> Hola David, prueba con esto:
>
> a<-1
> for (a in 1:30) {
> b<-0
> while(b>0){b<-sum(duplicated(data[1:a,]));data
> [a,]<-sample(MuestraS,replace=T)}
> }
>
>
> Gerard Reverté
>
>
>
>
> -Missatge original-
> De: R-help-es [mailto:r-help-es-boun...@r-project.org
> ] En nom de David Contreras
> Enviat: dimecres, 25 / març / 2015 06:23
> Per a: r-help-es
> Tema: [R-es] BUCLE
>
>
> Buena noche a todos,
>
> Nuevamente requiero de su ayuda con algo puntual:
>
> 1. Tengo en el vector Muestras:
>
> rm(list = ls())
> set.seed(2085089)# Fija Datos
>
> data<-matrix(-1,30,ncol=10)
>
> > MuestraS
> [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
> [1,]100011011 1
>
> Ahora, dentro de un bucle for voy a generar muestras aleatorias, pero
> requiero que en ese mismo proceso, apenas se tenga una muestra duplicada
> esta se sobrescriba, no he logrado que el bucle se quede en una posición y
> de esta manera generar una nueva muestra que no este duplicada.
> Para hace lo descrito en el parrafo anterior uso el siguiente código:
>
> a<-1
> for (a in 1:30) {
> data [a,]<-sample(MuestraS,replace=T)
> if (sum(duplicated(data[1:a, ]))!=0){a<-a}
> else {a<-a+1}
> }
>
> No esta haciendo lo que requiero, se detecta el duplicado pero la muestra
> se generar y continua hasta llegar a 30 dejando el duplicado.
> No se si deba usar el bucle for o deberia cambiar por un while, pero no lo
> he podido lograr de ninguna de las dos formas.
>
> Un saludo, agradezco su colaboración con el tema.
>
>
> David C.
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
>
> *Avís legal/Aviso legal*
> La present informació s'envia únicament a la persona a la que va dirigida
> i pot contenir informació privilegiada o de caràcter confidencial.
> Qualsevol modificació, retransmissió, difusió o altre ús d'aquesta
> informació per persones o entitats diferents a la persona a la que va
> dirigida està prohibida. Si vostè l'ha rebut per error, si us plau contacti
> amb el remitent i esborri el missatge de qualsevol ordinador. En el cas que
> aquest missatge vagi a ser contestat per la mateixa via, ha de saber-se que
> la seva resposta podria ser coneguda per tercers a l'entrar a la xarxa. Per
> això, si el missatge inclou contrasenyes, números de targetes de crèdit o
> qualsevol altra informació que vostè consideri confidencial, seria més
> segur contestar per una altra via i cancel·lar la seva transmissió.
> L'Ajuntament de Mataró i els seus organismes dependents no poden assumir la
> responsabilitat derivada del fet de què terceres persones puguin arribar a
> conèixer el contingut d'aquest missatge durant la seva transmissió.
> --
> La presente información se envía únicamente a la persona a la que va
> dirigida y puede contener información privilegiada o de carácter
> confidencial. Cualquier modificación, retransmisión, difusión u otro uso de
> esta información por persones o entidades diferentes a la persona a la que
> va dirigida está prohibida. Si usted la ha recibido por error, por favor
> contacte con el remitente y borre el mensaje. En el caso de que este
> mensaje vaya a ser contestado por la misma vía, ha de saberse que su
> respuesta podría ser conocida por terceros al entrar en la red. Por este
> motivo, si el mensaje incluye contraseñas, números de tarjetas de crédito o
> cualquier otra información que considere confidencial, sería más seguro
> contestar por otra vía y cancelar su transmisión. El Ayuntamiento de Mataró
> y sus organismos dependientes no pueden asumir la responsabilidad derivada
> del hecho de que terceras personas puedan llegar a conocer el contenido de
> este mensaje durante su transmisión.
>
> <#14c50bdc0d0f9412_>
>
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] BUCLE
Buena noche a todos,
Nuevamente requiero de su ayuda con algo puntual:
1. Tengo en el vector Muestras:
rm(list = ls())
set.seed(2085089)# Fija Datos
data<-matrix(-1,30,ncol=10)
> MuestraS
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]100011011 1
Ahora, dentro de un bucle for voy a generar muestras aleatorias, pero
requiero que en ese mismo proceso, apenas se tenga una muestra duplicada
esta se sobrescriba, no he logrado que el bucle se quede en una posición y
de esta manera generar una nueva muestra que no este duplicada.
Para hace lo descrito en el parrafo anterior uso el siguiente código:
a<-1
for (a in 1:30) {
data [a,]<-sample(MuestraS,replace=T)
if (sum(duplicated(data[1:a, ]))!=0){a<-a}
else {a<-a+1}
}
No esta haciendo lo que requiero, se detecta el duplicado pero la muestra
se generar y continua hasta llegar a 30 dejando el duplicado.
No se si deba usar el bucle for o deberia cambiar por un while, pero no lo
he podido lograr de ninguna de las dos formas.
Un saludo, agradezco su colaboración con el tema.
David C.
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] ELIMINAR FILAS DUPLICADAS DENTRO DE UNA MATRIZ
Buen día, Necesito quitar filas duplicadas dentro de una matriz, estaba usando la función unique pero ésta no lleva a cabo el proceso que requiero, para ilustrar un poco más lo que requiero, por ejemplo: Tengo la matriz A, que contiene 3 filas y 8 columnas: 0 1 0 1 0 1 0 1 1 1 1 1 1 1 0 0 0 1 0 1 0 1 0 1 Necesitaría que la misma matriz dejando solo por ejemplo las dos primeras filas ya que la fila 1 y 3 están duplicadas. Agradezco su colaboración. Saludos, David C0 [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] PROBLEMA DE MEMORIA AL HACER PERMUTACIONES
Buenas tardes amigos,
De nuevo por aqui con un incoveniente, tengo el siguiente arreglo:
> MuestraS
[1] 1 0 0 0 1 0 1 1 1 1 1 0
Deseo realizar todas las permutaciones posibles para luego tomar una
muestra aleatoria pequeña, esto lo debo hacer varias veces incrementando el
largo del arreglo "MuestraS".
El inconveniente esta en que al hacer las permutaciones con este arreglo de
12 espacios ya tengo problemas al parecer de memoria y posiblemente el
arreglo deba ir hasta 100.
Al ejecutar el siguiente código:
MuestraP<-permn(MuestraS)
Genera el siguiente error:
Warning in vector("list", gamma(n + 1)) :
Reached total allocation of 3991Mb: see help(memory.size)
Es importante resaltar que en ningún momento le pido al programa que me
muestra la matriz de permutaciones.
Agradezco me puedan ayudar con algo que pueda hacer al respecto.
Saludos.
David C.
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Calculos matrices diferentes tamaños
Buen día Jorge, Muchas gracias, ya todo funcionando muy bien. Saludos, David C. El 9 de marzo de 2015, 17:27, Jorge I Velez escribió: > Hola David, > > Gracias por la aclaracion. Confio en que esta vez si se obtiene lo que > buscas: > > R> set.seed(123) > R> A <- matrix(rpois(20, 4), ncol = 4) > R> B <- matrix(rpois(274*3, 4), ncol = 3) > R> A > # [,1] [,2] [,3] [,4] > #[1,]3187 > #[2,]6443 > #[3,]3751 > #[4,]6443 > #[5,]7428 > > R> # el resultado es una matriz de orden 5x3 > R> sapply(1:ncol(B), function(.col) sapply(A[, .col + 1], function(x) > sum(B[, .col] > x))) > #[,1] [,2] [,3] > #[1,] 2569 13 > #[2,] 98 102 157 > #[3,] 14 59 244 > #[4,] 98 102 157 > #[5,] 98 2066 > > Ahora hagamos los calculos para los elementos de A: > > R> sum(B[,1] > A[1,2]) > # [1] 256 > R> sum(B[,1] > A[2,2]) > # [1] 98 > R> sum(B[,1] > A[3,2]) > # [1] 14 > R> sum(B[,1] > A[4,2]) > # [1] 98 > R> sum(B[,1] > A[5,2]) > # [1] 98 > R> sum(B[,2] > A[1,3]) > # [1] 9 > R> sum(B[,2] > A[2,3]) > # [1] 102 > R> sum(B[,2] > A[3,3]) > # [1] 59 > R> sum(B[,2] > A[4,3]) > # [1] 102 > R> sum(B[,2] > A[5,3]) > # [1] 206 > R> sum(B[,3] > A[1,4]) > # [1] 13 > R> sum(B[,3] > A[2,4]) > # [1] 157 > R> sum(B[,3] > A[3,4]) > # [1] 244 > R> sum(B[,3] > A[4,4]) > # [1] 157 > R> sum(B[,3] > A[5,4]) > # [1] 6 > > Saludos, > Jorge.- > > > > 2015-03-10 1:40 GMT+11:00 David Contreras : > >> Buen Día Jorge, >> >> Es algo parecido a lo que necesito, pero no debo tener en cuenta la suma >> de la columna sino por ejemplo: >> >> Tengo el elemento [1,2] en la matriz A que contiene el número 5 y por >> otra parte tengo la columna [,2] de la Matriz B con valores por ejemplo >> (1,2,3,4,5,6,7,8,9,10,11,12). El resultado debería ser un vector que en la >> posición uno debe indicar que existen 7 valores mayores a 5 en la columna >> [,2] de la matriz B en comparación con el elemento [1,2] e la Matriz A. >> >> Espero ser muy claro ya que a veces se torna un poco complicado la >> explicación de lo que se quiere programar. >> >> Saludos, >> >> David Contreras. >> >> El 9 de marzo de 2015, 1:12, Jorge I Velez >> escribió: >> >> Hola David, >>> >>> Si entiendo correctamente, lo siguiente deberia hacer lo que describes: >>> >>> set.seed(123) >>> A <- matrix(rpois(20, 4), ncol = 4) >>> B <- matrix(rpois(274*3, 4), ncol = 3) >>> >>> # el resultado es una matriz de orden 5x3 >>> sapply(1:ncol(B), function(.col) sapply(A[, .col + 1], function(x) sum(x >>> > B[, .col]))) >>> >>> # [,1] [,2] [,3] >>> #[1,]5 253 243 >>> #[2,] 112 119 69 >>> #[3,] 243 1643 >>> #[4,] 112 119 69 >>> #[5,] 112 18 260 >>> >>> Este resultado indica que el elemento A[1, 2] es 5 veces mayor que todos >>> los elementos de B[,1]; A[2, 2] es 112 veces mayor; A[3,2] es 243 >>> veces mayor; A[4,2] es 112 veces mayor y finalmente que A[5,2] es 112 >>> veces mayor que B[, 1]. Similarmente, A[5, 4] es 260 veces mayor que >>> los elementos de B[,3]. >>> >>> Un por uno seria algo como >>> >>> R> sapply(A[,2], function(x) sum(x > B[,1])) >>> [1] 5 112 243 112 112 >>> R> sapply(A[,3], function(x) sum(x > B[,2])) >>> [1] 253 119 164 119 18 >>> R> sapply(A[,4], function(x) sum(x > B[,3])) >>> [1] 243 69 3 69 260 >>> >>> Saludos cordiales, >>> Jorge.- >>> >>> >>> 2015-03-09 16:04 GMT+11:00 David Contreras : >>> >>>> Buen día amigos, >>>> >>>> Antes que nada, reitero mis agradecimientos por sus respuestas tan >>>> precisas >>>> y oportunas, sigo en mi trabajo de grado y tengo dificultad con un >>>> proceso: >>>> >>>> Tengo dos matrices A y B, A es de dimensión 5x4 y B es de dimensión >>>> 274x3. >>>> Requiero de un proceso en el que tome el primer elemento de la Matriz A >>>> columna 2 y lo compare con todos los elementos de la Matriz B columna 1 >>>> y >>>> me diga en un vector de dimensión (1x5) cuantas veces fue el elemento >>>> de A >>>> mayor que cada uno de los 274 elementos de B y asi hasta llegar a los 5 >>>> elementos de A, es decir el resultado de este proceso sera un vector >>>> con 5 >>>> elementos y en cada uno me dice cuentas veces fue mayor el elemento >>>> [i,j] >>>> mayor que los 274 elementos de B. >>>> >>>> Agradezco su colaboración con el tema que como siempre es muy valiosa. >>>> >>>> >>>> Saludos, >>>> >>>> David Contreras. >>>> >>>> [[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]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Calculos matrices diferentes tamaños
Buen Día Jorge, Es algo parecido a lo que necesito, pero no debo tener en cuenta la suma de la columna sino por ejemplo: Tengo el elemento [1,2] en la matriz A que contiene el número 5 y por otra parte tengo la columna [,2] de la Matriz B con valores por ejemplo (1,2,3,4,5,6,7,8,9,10,11,12). El resultado debería ser un vector que en la posición uno debe indicar que existen 7 valores mayores a 5 en la columna [,2] de la matriz B en comparación con el elemento [1,2] e la Matriz A. Espero ser muy claro ya que a veces se torna un poco complicado la explicación de lo que se quiere programar. Saludos, David Contreras. El 9 de marzo de 2015, 1:12, Jorge I Velez escribió: > Hola David, > > Si entiendo correctamente, lo siguiente deberia hacer lo que describes: > > set.seed(123) > A <- matrix(rpois(20, 4), ncol = 4) > B <- matrix(rpois(274*3, 4), ncol = 3) > > # el resultado es una matriz de orden 5x3 > sapply(1:ncol(B), function(.col) sapply(A[, .col + 1], function(x) sum(x > > B[, .col]))) > > # [,1] [,2] [,3] > #[1,]5 253 243 > #[2,] 112 119 69 > #[3,] 243 1643 > #[4,] 112 119 69 > #[5,] 112 18 260 > > Este resultado indica que el elemento A[1, 2] es 5 veces mayor que todos > los elementos de B[,1]; A[2, 2] es 112 veces mayor; A[3,2] es 243 > veces mayor; A[4,2] es 112 veces mayor y finalmente que A[5,2] es 112 > veces mayor que B[, 1]. Similarmente, A[5, 4] es 260 veces mayor que > los elementos de B[,3]. > > Un por uno seria algo como > > R> sapply(A[,2], function(x) sum(x > B[,1])) > [1] 5 112 243 112 112 > R> sapply(A[,3], function(x) sum(x > B[,2])) > [1] 253 119 164 119 18 > R> sapply(A[,4], function(x) sum(x > B[,3])) > [1] 243 69 3 69 260 > > Saludos cordiales, > Jorge.- > > > 2015-03-09 16:04 GMT+11:00 David Contreras : > >> Buen día amigos, >> >> Antes que nada, reitero mis agradecimientos por sus respuestas tan >> precisas >> y oportunas, sigo en mi trabajo de grado y tengo dificultad con un >> proceso: >> >> Tengo dos matrices A y B, A es de dimensión 5x4 y B es de dimensión 274x3. >> Requiero de un proceso en el que tome el primer elemento de la Matriz A >> columna 2 y lo compare con todos los elementos de la Matriz B columna 1 y >> me diga en un vector de dimensión (1x5) cuantas veces fue el elemento de A >> mayor que cada uno de los 274 elementos de B y asi hasta llegar a los 5 >> elementos de A, es decir el resultado de este proceso sera un vector con 5 >> elementos y en cada uno me dice cuentas veces fue mayor el elemento [i,j] >> mayor que los 274 elementos de B. >> >> Agradezco su colaboración con el tema que como siempre es muy valiosa. >> >> >> Saludos, >> >> David Contreras. >> >> [[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]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Calculos matrices diferentes tamaños
Buen día amigos, Antes que nada, reitero mis agradecimientos por sus respuestas tan precisas y oportunas, sigo en mi trabajo de grado y tengo dificultad con un proceso: Tengo dos matrices A y B, A es de dimensión 5x4 y B es de dimensión 274x3. Requiero de un proceso en el que tome el primer elemento de la Matriz A columna 2 y lo compare con todos los elementos de la Matriz B columna 1 y me diga en un vector de dimensión (1x5) cuantas veces fue el elemento de A mayor que cada uno de los 274 elementos de B y asi hasta llegar a los 5 elementos de A, es decir el resultado de este proceso sera un vector con 5 elementos y en cada uno me dice cuentas veces fue mayor el elemento [i,j] mayor que los 274 elementos de B. Agradezco su colaboración con el tema que como siempre es muy valiosa. Saludos, David Contreras. [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] PERMUTACIONES EN R
Muchas gracias por sus respuestas tan oportunas y precisas, Use partes de los dos códigos y hasta el momento todo va perfecto. Nuevamente gracias y estaré en contacto ante cualquier inconveniente que se me presente. Saludos, DC. El 2 de marzo de 2015, 17:50, Carlos Ortega escribió: > Hola David, > > ¿Seguro que buscas las combinaciones? > > Creo que lo que buscas es esto... > > # > MuestraS <- c(1 ,1, 1, 1, 0, 1, 1, 0, 1, 1) > library(combinat) > resPer <- permn(MuestraS) > > matresPer <- matrix(unlist(resPer), nrow=factorial(length(MuestraS)), > ncol=length(MuestraS)) > head(matresPer) > # > > Que produce esto: > > > matresPer <- matrix(unlist(resPer), nrow=factorial(length(MuestraS)), > ncol=length(MuestraS)) > > head(matresPer) > [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] > [1,]110111101 1 > [2,]111011110 1 > [3,]101111011 1 > [4,]111101111 0 > [5,]011110111 1 > [6,]111111111 1 > > Cuidado que el objeto "resPer" es una lista de 3628800 elementos... > 609.1Mb que como matriz sólo ocupa 276.9Mb. > > Saludos, > Carlos Ortega > www.qualityexcellence.es > > El 2 de marzo de 2015, 22:51, David Contreras > escribió: > >> Buena tarde amigos, >> >> En días pasados hice algunas consultas y ya pude salir de las dudas que >> tenia en ese momento, ahora requiero de su colaboración con lo siguiente: >> >> Tengo un vector dicotomico (Binario) con la siguiente información que me >> surgio de algunos procesos anteriores: >> >> > MuestraS >> [1] 1 1 1 1 0 1 1 0 1 1 >> >> Ahora necesito hallar todas las posibles combinaciones que se puedan hacer >> con estos elementos para luego hacer un muestro aleatorio simple con >> reemplazo y seleccionar algunas de las posibles muestras que se obtengan. >> >> Agradezco me puedan ayudar con este asunto >> >> Saludos, >> >> DC. >> >> [[alternative HTML version deleted]] >> >> ___ >> R-help-es mailing list >> R-help-es@r-project.org >> https://stat.ethz.ch/mailman/listinfo/r-help-es >> > > > > -- > Saludos, > Carlos Ortega > www.qualityexcellence.es > [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] PERMUTACIONES EN R
Buena tarde amigos, En días pasados hice algunas consultas y ya pude salir de las dudas que tenia en ese momento, ahora requiero de su colaboración con lo siguiente: Tengo un vector dicotomico (Binario) con la siguiente información que me surgio de algunos procesos anteriores: > MuestraS [1] 1 1 1 1 0 1 1 0 1 1 Ahora necesito hallar todas las posibles combinaciones que se puedan hacer con estos elementos para luego hacer un muestro aleatorio simple con reemplazo y seleccionar algunas de las posibles muestras que se obtengan. Agradezco me puedan ayudar con este asunto Saludos, DC. [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] CÀLCULOS DE PRUEBAS ESTADÍSTICAS
Buen día comunidad, Sigo aquí en mi trabajo de grado en horarios extras, me pueden ayudar indicando como se calcula el test de los signos y el de rachas en R. Agradezco nuevamente su colaboración que ha sido muy valiosa. Saludos, DC. [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] DUDA LLENAR MATRIZ CREADA
Buena tarde, Estoy llevando a cabo un trabajo y no encuentro la forma de llenar una matriz con el p_value y un estadístico calculado. Un poco mas detallado, tengo muestras aleatorias, calculo por ejemplo la prueba t, wilcoxon, etc y requiero llevar por una parte los p_value de k muestras a una matriz creada anteriormente y por otro lado el valor del estadístico de las mismas k muestras a otra matriz creada anteriormente. Las k muetras estarían determinadas por un ciclo. Agradezco me puedan ayudar con el tema que es de mucha urgencia. Saludos, David C. [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
