search for: obtenemos

...#CREACION DE TABLA CON PORCENTAJOS # 1) Cogemos los nombres de las columnas originales: nombresColumna <- colnames(p.pesos.ord) # 2) Le añadimos a cada nombre el sufijo _peso para evitar duplicados en nombre de columna ; nuevosNombresColumna <- paste(nombresColumna,'_peso') # 3) Obtenemos las sumas por fila de los pesos por marea: totalPesoMarea <- rowSums(p.pesos.ord) # 4) Creamos un dataframe nuevo con los porcentajes de las columnas que corresponda, que # conservará los nombres de columna correctos (alpha3 sin alterar) p.porcs <- p.pesos.ord/totalPesoMarea # 5) Cambiamos...

...st <- ts(activo$Precio_Totales, frequency = 4, start = c(activo[1,2], activo[1,3])) #Asignamos un objeto forecast llamado fit que contiene el mejor modelo automaticamente ajustado a los datos fit <- auto.arima(st, ic ="aicc", stepwise= TRUE) #Obtenemos una variable con los coeficientes del modelo y sus p-valores pv <- as.data.frame(cwp(fit)) #Guardamos diagnosis de parametros en un df numparam <- length(colnames(pv)) #Obtenemos el numero de parametros presente en el modelo coeficientes <- data.frame( CF = char...

...> # 1) Cogemos los nombres de las columnas originales: > nombresColumna <- colnames(p.pesos.ord) > > # 2) Le añadimos a cada nombre el sufijo _peso para evitar duplicados > en nombre de columna ; nuevosNombresColumna <- > paste(nombresColumna,'_peso') > > # 3) Obtenemos las sumas por fila de los pesos por marea: > totalPesoMarea <- rowSums(p.pesos.ord) > > # 4) Creamos un dataframe nuevo con los porcentajes de las columnas que > corresponda, que # conservará los nombres de columna correctos (alpha3 > sin alterar) p.porcs <- p.pesos.ord/totalPe...

...> nombresColumna <- colnames(p.pesos.ord) > >> > >> # 2) Le añadimos a cada nombre el sufijo _peso para evitar > duplicados > >> en nombre de columna ; nuevosNombresColumna <- > >> paste(nombresColumna,'_peso') > >> > >> # 3) Obtenemos las sumas por fila de los pesos por marea: > >> totalPesoMarea <- rowSums(p.pesos.ord) > >> > >> # 4) Creamos un dataframe nuevo con los porcentajes de las columnas > >> que corresponda, que # conservará los nombres de columna correctos > >> (alpha3 s...

...barra de progreso se toma de esta función: pb <-function( datos,tab){ ##Creamos canal de conexion a BBDD canal1 <- odbcDriverConnect( "case=nochange; Driver=SQL Server; Server=xxx; Database=xxx; uid=xxx; pwd=xx; wsid=ESMADN1003;;") ##Obtenemos conteos de registros################## #Numero de registro que se van a cargar asubir <- as.numeric(nrow(datos)) #Numero de registro que ya hay en la tabla entabla <- as.numeric(sqlQuery(canal1,paste("SELECT Count(*) "...

...are testing a new VAD, but Im not sure if im doing something wrong with the current. Here is the code of the compressor: if (inicializado == false) { bits = new SpeexBits; speex_bits_init(bits); enc_state = speex_encoder_init(&speex_nb_mode); // obtenemos tama?o frame speex_encoder_ctl(enc_state, SPEEX_GET_FRAME_SIZE, &frame_size); // configuramos parametros int complexity = 5; speex_encoder_ctl(enc_state, SPEEX_SET_COMPLEXITY, &complexity); int samplingrate = 8000; speex_encoder_ctl(enc_stat...

...ente) con el Calor de la variable. Para ello primero calculo una aproximación de superficies de mis puntos usando MBA ##Cargamos paquetes library(MBA) ##Calculamos aproximacion de superficies segun coordenadas y valores superf <- mba.surf(datos, 2000, 2000,extend=FALSE)$xyz.est ##Obtenemos la capa con los colores a partir de la aproximación de superficies image.plot(superf, bg= NULL, nlevel = param$NIVELES) [cid:image001.png en 01D10B5D.6039CD80] Por otro lado obtengo el mapa de google maps sobre el cual deberia ir esto asi: #Cargamos paquete library(ggmap) ##Centro del...

Hola a todos: Rediela!! Si hago la prueba con rangoAnalisis<-c(110:120) Funciona!!! Pero como os comenté antes, no. Ojo!!! La idea es que tanto columnaInicial como columnaFinal son números(índices) de columna!!! De hecho, haciendo el str() de estas variables me indica que son del tipo num Un saludo El 03/12/13 13:41, Carlos J. Gil Bellosta escribió: > Hola, ¿qué tal? > >

...ma de esta funci?n: > pb <-function( datos,tab){ > ##Creamos canal de conexion a BBDD > canal1 <- odbcDriverConnect( "case=nochange; Driver=SQL Server; Server=xxx; Database=xxx; uid=xxx; pwd=xx; wsid=ESMADN1003;;") > > ##Obtenemos conteos de registros################## > #Numero de registro que se van a cargar > asubir <- as.numeric(nrow(datos)) > > #Numero de registro que ya hay en la tabla > entabla <- as.numeric(sqlQuery(canal1,paste(&quo...

...ila sera 150 - 30 = 120. Esta seria la fila 4 de "dataout": REF TIMEREF TOENDREF NEWREF #4 1099 30 120 999 Para la fila 5 de "dataout", los recursos disponibles corresponden al _nuevo_ valor de TOENDREF en NEWREF (i.e., 120). Siguiendo la misma logica anterior, obtenemos entonces las filas 5 a 12 de "dataout": REF TIMEREF TOENDREF NEWREF #5 731 30 90 999 #6 731 60 30 999 #7 731 90 420 731 #8 731 120 300 731 #9 1442 30 270 731 #10 1442 60 210 731 #11 1442 90...

...t;>> >>> >>> >>> if (inicializado == false) >>> { >>> bits = new SpeexBits; >>> speex_bits_init(bits); >>> enc_state = speex_encoder_init(&speex_nb_mode); >>> >>> // obtenemos tama?o frame >>> speex_encoder_ctl(enc_state, SPEEX_GET_FRAME_SIZE, >&frame_size); >>> >>> // configuramos parametros >>> int complexity = 5; >>> speex_encoder_ctl(enc_state, SPEEX_SET_COMPLEXITY, >&complexit...

Buenas, Me encuentro con el mismo problema, de que me dice que el argumento del if no es un "valor ausente donde TRUE/FALSE es necesario" Este es mi codigo de pruebas. readseq <- "aaaaaaaaaaa", "aaa", "aa") auxiliar <- count(readseq[j],i+2) aux_a <- auxiliar["listaa"] if(aux_a > 0){ matrizgraf3[i][k] = matrizgraf3[i][k] + 1 listaa

...os,tab){ > > ##Creamos canal de conexion a BBDD > > canal1 <- odbcDriverConnect( "case=nochange; > > Driver=SQL Server; Server=xxx; Database=xxx; uid=xxx; pwd=xx; > > wsid=ESMADN1003;;") > > > > ##Obtenemos conteos de registros################## > > #Numero de registro que se van a cargar > > asubir <- as.numeric(nrow(datos)) > > > > #Numero de registro que ya hay en la tabla > > entabla <- as.nume...

Muchas gracias Carlos, Me da error al hacerlo. Mi variable donde quiero que localice las palabras de la lista tiene más de una palabra, no se si puede ser por eso. Gracias El Mar, 22 de Mayo de 2018, 20:15, Carlos Ortega escribió: > Hola, > > Aquí tienes un ejemplo (reproducible)... > > #----------------------- >> # Generar nombres de mujer >> library(randNames)

...t.org/web/packages/knitr/index.html) # Alucinane Pedes utilizar markdown --lenguaje de marcas mínimo, ágil, preciso y eficiente-- para escribir e incrustar _chunks_ de R al vuelo, sólo tienen que ser marcados como código fuente, es decir, mediante el código: ``` {r uno} (1:10)^2 ``` obtenemos: ``` {r uno} (1:10)^2 ```` Si desamos un gráfico: ``` {r dos, echo=FALSE} hist(rnorm(100e4)) ```` ``` {r dos, echo=FALSE} hist(rnorm(100e4)) ```` Procedimiento para trabajar: 1. Preparar el documento base con extensión `.Rmd` con nuestro editor fa**v**or**i**to 1. Procesar en...

Hola, Otra forma, utilizando la función de intervalos y la que comprueba si otro intervalo se solapa del paquete "lubridate": #---------------------- library(lubridate) fe.chas <- data.frame( entra=c('2001-01-01','2001-06-01','2003-01-01') ,sale=c('2002-01-01','2002-06-01','2004-01-01') ) ref <-

Buenas tardes a todos, Quisiera crear una variable de acuerdo a ciertas condiciones. Me gustaria llegar de "datain" a "dataout". ## entrada datain <- structure(list(REF = c("999", "999", "999", "1099", "731", "731", "731", "731", "1442", "1442", "1442",

Estimados me ha surgido una duda con un simple stem and leaf el mismo es el siguiente: > stem.leaf(Datos$ej1.21) 1 | 2: represents 0.12 leaf unit: 0.01 n: 40 LO: 0.72 0.85 3 10 | 9 11 | 4 12 | 4 5 13 | 7 7 14 | 710 (*) 9 15 | 18 16 16 | 3447899 (6) 17 | 045599 (***) 18 18 | 2568 14 19 | 23710 (**) 10 20 | 389 7 21

...{ canal1 <- odbcReConnect(canal1) #Conexión RODBC total <- as.numeric(sqlQuery(canal1,paste("SELECT Count(*) FROM ",tab, sep=""))) #Obtenemos el nº de registros que hay en la tabla en ese #momento porcen <- as.numeric((total - entabla) / asubir) #Calculamos porcentaje de registros subidos del total a subir...