[R-es] pregunta

[Javier Marcuzzi]

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> 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
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>

	[[alternative HTML version deleted]]