search for: calculamo

...install.packages("SPEI") library("SPEI") data(wichita) # los primeros 12 datos head(wichita,12) # mi subset de los primeros 12 datos meu<-wichita[c(1:12),] meu # como veis los valores de TMED son iguales en ambos dataframes. # ahora viene el problema # calculamos thornthwaite para toda la matriz tho <- thornthwaite(wichita$TMED ,lat=37.6475) # mostramos los 12 primeros head(tho,12) # calculamos thornthwaite para mi subset (Los 12 primeros) tho.meu <- thornthwaite(meu$TMED ,lat=37.6475) tho.meu Como veis los valores de tho y tho.meu...

...ene: x: Longitud y: Latitud z: Variable a estudiar lo que quiero es mostrar sobre un fondo de GoogleMaps, otra capa(semitransparente) 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]...

...#Obtenemos registros actuales en la tabla (los que habia + los que han subido hasta el momento) total <- as.numeric(sqlQuery(canal1,paste("SELECT Count(*) FROM ",tab, sep=""))) #Calculamos porcentaje de registros subidos en el momento porcen <- as.numeric((total - entabla) / asubir) #Actualizamos barra de progreso setWinProgressBar(barra, p...

...registros actuales en la tabla (los que habia + los que han subido hasta el momento) > total <- as.numeric(sqlQuery(canal1,paste("SELECT Count(*) FROM ",tab, sep=""))) > > #Calculamos porcentaje de registros subidos en el momento > porcen <- as.numeric((total - entabla) / asubir) > > #Actualizamos barra de progreso > setWinP...

...habia + los que han subido hasta el momento) > > total <- > > as.numeric(sqlQuery(canal1,paste("SELECT Count(*) FROM ",tab, > > sep=""))) > > > > #Calculamos porcentaje de registros subidos en el > momento > > porcen <- > > as.numeric((total - entabla) / asubir) > > > > #Actualizamos barra de progreso > > > > se...

Hola Javier, gracias por tu respuesta, explico de nuevo. Luego de varios calculos, llego a un dataframe con varias observaciones, llamado resuu: Letra Suelo result 1 a 2 23 2 b 2 15 3 c 2 36 4 a 3 20 5 b 3 2 6 c 3 36 7 a 2 32 8 b 2 25 9 c 3 32 ... La primer columna que no tiene cabecera o etiqueta, aparece en la consola en color gris y es un identificador de las filas Cuando quiero resumir,

....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 setWinProgressBar(barra, porcen,title="SUBIENDO DATOS A SQL", #Actualizamos la barra de progreso con la label =paste(&...