[R-es] pregunta
Dr. José A Betancourt Bethencourt
jbetancourt en iscmc.cmw.sld.cu
Jue Ago 21 13:22:39 CEST 2014
Muchas gracias!
José
De: "Marcuzzi, Javier Rubén" [mailto:javier.ruben.marcuzzi en gmail.com]
Enviado el: jueves, 21 de agosto de 2014 02:42
Para: Jorge I Velez
CC: "Dr. José A Betancourt Bethencourt"; Lista R
Asunto: Re: [R-es] pregunta
Buenas noches
Yo estoy de acuerdo con Jorge, yo copie y modifique sobre ese código, en mi
parte no uso attach(), nunca lo uso, es más, lo pensé como posible problema,
como también nunca me acostumbro al with().
Javier
El 21/08/14 a las 00:33, Jorge I Velez escibió:
Buenas noches Javier y José,
Estoy en contra de usar attach(), asi que propongo la siguiente alternativa
con with():
# paquete
require(epicalc)
# los argumentos en ... pasan de epicalc:::cc
# ver ?cc para mas informacion
foo <- function(var1, var2, var3, ...){
or1 <- cc(var1, var2, ...)
or2 <- cc(var1, var3, ...)
list(or1 = or1, or2 = or2)
}
# datos
x <- read.csv("~/Downloads/OR.csv")
head(x)
# resultados SIN graficas
with(x, foo(estado, cake, chocolate, graph = FALSE))
Saludos,
Jorge.-
2014-08-21 12:40 GMT+10:00 Javier Marcuzzi <javier.ruben.marcuzzi en gmail.com
<mailto:javier.ruben.marcuzzi en gmail.com> >:
Estimado José Betancourt
Copio y pego una forma donde anda, básicamente es lo mismo pero con una
pequeña diferencia, es tan parecido que están los dos códigos a
continuación.
Javier Marcuzzi
library(epicalc)
#Comando que llama a una función
rm(list=ls())
#setwd("D:/DEMO_new/demo_scripts/OR/")
#setwd("D:/Public/Documents/R/EPICALC/funciones/OR/")
#data= mydata<-read.csv("OR.csv",header=TRUE, sep=",", dec=".")
data <- read.csv("~/Descargas/OR.csv",header=TRUE, sep=",", dec=".")
data2 <- read.csv("~/Descargas/OR.csv",header=TRUE, sep=",", dec=".")
use(data)
attach(data)
var1=estado
var2=cake
var3=chocolate
# source("function_or.r")
#función
odratios <- function (data,var1,var2,var3){
or1 <-cc(var1, var2)
or2 <- cc(var1, var3)
}
odratios(data,var1,var2,var3)
odratios2 <- function (data,estado,cake,chocolate){
or1 <-cc(estado, cake)
or2 <- cc(estado, chocolate)
}
odratios2(data2,estado,cake,chocolate)
El 20 de agosto de 2014, 21:10, Dr. José A Betancourt Bethencourt <
jbetancourt en iscmc.cmw.sld.cu <mailto:jbetancourt en iscmc.cmw.sld.cu> >
escribió:
> Estimados
>
> Estoy entrenando hacer funciones que respondan a comandos,
>
>
>
> en esta caso en la salida gráfica se observa que dice : Exposure=var3 y
> outcome=var 1
>
>
>
> quisiéramos que se reflejan los nombres de la base de datos : var1=estado,
> var2=cake, var3=chocolate
>
>
>
> Espero haberme explicado adecuadamente
>
> Adjunto tabla con datos
>
>
>
> ####################################
>
>
>
> #Comando que llama a una función
>
> rm(list=ls())
>
> #setwd("D:/DEMO_new/demo_scripts/OR/")
>
> #setwd("D:/Public/Documents/R/EPICALC/funciones/OR/")
>
>
>
> data= mydata<-read.csv("OR.csv",header=TRUE, sep=",", dec=".")
>
> use(data)
>
> attach(data)
>
>
>
> var1=estado
>
> var2=cake
>
> var3=chocolate
>
> library(epicalc)
>
> source("function_or.r")
>
> odratios(data,var1,var2,var3)
>
>
>
>
>
> #función
>
> odratios <- function (data,var1,var2,var3){
>
> or1 <-cc(var1, var2)
>
> or2 <- cc(var1, var3)
>
> }
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org <mailto:R-help-es en r-project.org>
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
R-help-es en r-project.org <mailto:R-help-es en r-project.org>
https://stat.ethz.ch/mailman/listinfo/r-help-es
--
Nunca digas nunca, di mejor: gracias, permiso, disculpe.
Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas
Infomed: http://www.sld.cu/
[[alternative HTML version deleted]]
Más información sobre la lista de distribución R-help-es