[R-es] pregunta
"Marcuzzi, Javier Rubén"
javier.ruben.marcuzzi en gmail.com
Jue Ago 21 08:41:32 CEST 2014
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
>
>
[[alternative HTML version deleted]]
Más información sobre la lista de distribución R-help-es