search for: aplicando

Hola, Necesito asignar a cada observación un orden según su posición en un listado, estoy aplicando el siguiente código, pero no se cómo extenderlo para que lo haga hasta el final de las observaciones sin hacerlo manualmente: Data$Order.Page <- ifelse(Data$Order.individual <=5, 1, ifelse(Data$Order.individual<=10, 2, ifelse(Data$Order.individual <=15, 3,... Lo que nos diría es que...

Buenos días, Os escribo porque ando trabajando con una base de datos "count data" en R y estoy aplicando varios modelos: Quasi Poisson, Negative Binomial, Zero Inflated Models, Tobit y Tobit con Heckman. Me gustaría profundizar en la interpretación de los modelos (coeficientes y parámetros descriptivos de cada modelo) y los test de comparación entre ellos (Test de Vuong, Wald, Log likelihood...etc)....

Hola, necesito contar la cantidad de caracteres de cada elemento de un vector o factor Por ejemplo si el factor es: a<-c("jose", "javier", "mariano") aplicando alguna funcion, el resultado q quiero es 4, para jose 6 para javier 7, para mariano q es la cantidad de caracteres q tiene cada uno de los elementos del factor a probe usando length(a) y me da la cantidad de elemntos, es decir 3 y usando length(a[1]), me da 1 Si alguien me puede ayudar, lo nece...

Hola a todos estoy aplicando la función polinómica de Hossfeld [1], y algunos otros modelos no lineales para tratar de ajustarlos a un grupo de datos forestales,   [1] Y= b*t*exp(c)/(t*exp(c)+a) Al colocar la función en R con parámetros estimados, me devuelve los siguiente: ## model1 <- nls(ho ~ (b*edad*exp(c)/(edad*ex...

...ntribución parcial de una componente al Multiple R-squared que devuelve lm.   En su momento Carlos Ortega me informó acerca de varias opciones (ols, regsubsets,... e incluso me referenció un libro). El caso es que por ninguna de las vías he llegado al resultado esperado (seguro que porque las estoy aplicando incorrectamente) y buscando he encontrado partial.R2, en la librería asbio. ¿Alguien conoce su funcionamiento?. No  obtengo el resultado esperado, y creo que es porque sólo admite que los dos modelos que se pasan como parámetro difieran en una variable, y en mi caso difiere en 2, porque se trata de...

Hola a todos: La pregunta ha quedado clara en el asunto, pero: ¿existe alguna función que convierta un objeto temporal (TS) a matriz o data.frame? En algunos cálculos que estoy haciendo me viene bien convertir un objeto temporal a matriz para poder hacer cálculos parciales por meses o años (aplicando apply en la matriz) pero no he encontrado ninguna función que haga la conversión. He «fabricado» una para el caso de frecuencia de datos mensual pero se me ha dado el caso de un objeto con frecuencia anual y ya me he empeñado en hacer la función «de carácter general» y... la cosa se complica ba...

...ch=5) > Data$Order.Page <- valores[Data$Order.individual] > > Saludos, > Marcelino > > El 04/11/2020 a las 17:49, miriam.alzate en unavarra.es escribió: >> Hola, >> >> Necesito asignar a cada observación un orden según su posición en un >> listado, estoy aplicando el siguiente código, pero no se cómo extenderlo >> para que lo haga hasta el final de las observaciones sin hacerlo >> manualmente: >> >> Data$Order.Page <- ifelse(Data$Order.individual <=5, 1, >> ifelse(Data$Order.individual<=10, 2, >> ifelse(Data$Ord...

...s/6/the-two-cultures-statistics- > vs-machine-learning > > Javier Marcuzzi > > El 09/10/2014 a las 08:51 a.m., Lorena Tudela Marco escibi : > > Buenos d as, > > > > Os escribo porque ando trabajando con una base de datos "count data" > > en R y estoy aplicando varios modelos: Quasi Poisson, Negative > > Binomial, Zero Inflated Models, Tobit y Tobit con Heckman. > > > > Me gustar a profundizar en la interpretaci n de los modelos > > (coeficientes y par metros descriptivos de cada modelo) y los test de > > comparaci n entre el...

...############################# ### vamos dar um flush nas regras do firewall iptables -F iptables -F -t nat iptables -X iptables -X -t nat ############################################################################### ############################################################################### # aplicando as regras contra ataques de negacao de servico # contra ping of death # iptables -t nat -A PREROUTING -i eth1 -p icmp --icmp-type echo-request -m limit --limit 1/s -j ACCEPT # contra ataques syn-flood # iptables -t nat -A PREROUTING -i eth1 -p tcp -m limit --limit 1/s -j ACCEPT # contra port scanne...

Jorge Gracias por el consejo. Aparentemente no lo estoy aplicando bien, pues el objeto que obtengo no contiene lo que quiero. Me explico, al ejecutar txt <- vector('list', length = length(names)) #names el el vector donde ya tenía almacenada la lista de txt's for(i in seq_along(txt)){ txt[[i]] <- Corpus(VectorSource(names[i])) } obtengo el o...

Hi community, i have a samba server that work's great, but my friends of IT security said that is vulnerable without a firewall,  i try to set an iptables firewall using the official documentation but is not working (obviously), this ti my config: #!/bin/sh echo n Aplicando Reglas de Firewall... ## FLUSH de reglas iptables -F iptables -X iptables -Z iptables -t nat -F ## Establecemos politica por defecto iptables -P INPUT DROP iptables -P OUTPUT ACCEPT iptables -P FORWARD ACCEPT ## Empezamos a filtrar # El localhost se deja (por ejemplo conexiones locales a mysql) /sb...

Hola a todos, tengo 170 .csv donde tengo que eliminar las primeras 20 lineas (primer bloque) y luego todo un último bloque de datos (tercer bloque) que está separado por dos filas sin datos del segundo bloque (que es el que me interesa). El tercer bloque empieza en cada .csv en una linea diferente por lo tanto no se si puedo automatizar en R quedarme tan solo con la información a partir de la

...onde están esas líneas en blanco que > separan el segundo del tercer bloque. > 5. Borras todo lo que está por debajo de esas líneas, quedándote ya > con el bloque dos. > 6. Guardo en un data.frame temporal el bloque dos. > 7. Vuelvo al principio cogiendo otro fichero y aplicando la misma > lógica y al llegar al punto 6 añado al data.frame temporal el nuevo segundo > bloque. > > Si trabajas sobre Linux/Mac puedes hacer todo esto en una shell, con algo > como "awk". Saltas las primeras 20 líneas en blanco, lees las líneas > siguientes del fi...

...lgo extraño: with(ProduccionAC, tapply(ProduccionAC$Costo, ProduccionAC$Provincia, BUENOS AIRES 2959.639, 77915.406, 147857.361, 288140.165, 676743.287 CAPITAL FEDERAL 5084.754, 136320.272, 756451.637, 2054988.865, 3531858.807 que luego no se pega bien aplicando el cbind... Se que es simple, pero de veras no logro resolverlo! Sólo necesito una matriz que contega la media, la moda y esos cortes según Provincia :( Gracias. El 30 de noviembre de 2011 03:03, Antonio José Sáez Castillo < ajsaez en ujaen.es> escribió: > Hola Leonardo. Creo que te ref...

...todas es la metodologia (y paquetes/funciones de R asociados) para llevar a cabo tarea de clasificacion.Actualmente estoy valorando hacer la clasificacion mediante intervalos de confianza (en caso de poder transformar a "normales" las dos ultimas variables), percentiles o directamente aplicando la desigualdad Chebychev. -¿Que paquetes me ofrece R para obtener la distribucion de probabilidad subyacente en una determinada muestra?. -¿Que test, de los que se ofrecen en R, considerais como los mas potentes para comprobar si una muestra de estas caracteristicassigue una determinada distr...

...> > por > > read.table(l[i]) > > Olvide leer cada archivo en el codigo anterior. > > Saludos, > Jorge.- > > 2015-04-11 0:02 GMT+10:00 Oscar Benitez <oscar.benitez1962 en gmail.com>: > >> Jorge >> Gracias por el consejo. Aparentemente no lo estoy aplicando bien, pues el >> objeto que obtengo no contiene lo que quiero. >> Me explico, al ejecutar >> >> txt <- vector('list', length = length(names)) #names el el vector donde >> ya tenía almacenada la lista de txt's >> for(i in seq_along(txt)){ >>...

...; > > #Los números de columnas impares de mi data.frame > > matIndex <- seq(1, dim(vtmp)[2], by=2) > > > > #Función para juntar dos columnas (idea de Jorge) > > mifun <- function(x,y) c(rbind(as.vector(vtmp[,x]),as.vector(vtmp[,y]))) > > > > #Resulado aplicando mapply. Coge dos columnas consecutivas y las alterna > > #y así de forma iterativa para cada una de las columnas que indica > "matIndex" y la siguiente columna "matIndex+1" > > resultado <- mapply(mifun,matIndex, matIndex+1) > > head(kk) > [,1] [,...

...acer algo así: valores <- rep(1:3200, each=5) Data$Order.Page <- valores[Data$Order.individual] Saludos, Marcelino El 04/11/2020 a las 17:49, miriam.alzate en unavarra.es escribió: > Hola, > > Necesito asignar a cada observación un orden según su posición en un > listado, estoy aplicando el siguiente código, pero no se cómo extenderlo > para que lo haga hasta el final de las observaciones sin hacerlo > manualmente: > > Data$Order.Page <- ifelse(Data$Order.individual <=5, 1, > ifelse(Data$Order.individual<=10, 2, > ifelse(Data$Order.individual <=15, 3...

...s de datos con la misma estructura. Muchas gracias a todos, Jorge Ivan Velez # datos y <- rbeta(50, 5, 2) X <- matrix(rnorm(50*500), ncol = 500) colnames(X) <- paste(''x'', 1:ncol(X), sep = "") # modelo beta para cada columna de X require(betareg) # option 1: aplicando una funcion creada "on-the-fly" system.time({ betas <- t(apply(X, 2, function(x){ d <- data.frame(x, y) m <- betareg(y ~ x, data = d) beta <- summary(m)$coefficients$mean[2, c(1,4)] beta })) }) # user system elapsed # 10.959 0.175 11.166 # option 2: cre...

?? Hola. Estoy intentando ordenar el gráfico tal que las columnas se apilen en el siguiente orden: debajo, los EPI; los SemiEPI en el medio y los NoEpi arriba de todo. Estos son mis datos: > tabla.barras Rangos Clase Asistentes 1 De 45d EPI 405 2 De 1a EPI 812 3 De 2a EPI 1639 4 De 3a EPI 2202 5 De 4a EPI 1994 6 De 5a EPI