Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Error en datos temperatura #38

Open
fabian199827 opened this issue May 3, 2023 · 2 comments
Open

Error en datos temperatura #38

fabian199827 opened this issue May 3, 2023 · 2 comments

Comments

@fabian199827
Copy link
Collaborator

fabian199827 commented May 3, 2023

@frzambra @jbkunst Existe un error en los datos de temperatura de aire de ODES cuando se comparan con los de INIA. No se entregan los mismos valores a pesar de que son de la misma estación. En la Figura 1, extraje los valores de temperatura de INIA y ODES y los depuré para quedarme solo con la variable de temperatura y se ve que no coinciden.

imagen
Figura 1

Luego visualicé los valores entregados por INIA y ODES para compararlos y me dí cuenta que en ODES no hay datos dónde en INIA si los hay (Figura 2 y 3)

temp_INIA_hidango
Figura 2

temp_ODES_hidango
Figura 3

Sin embargo no todos los valores están mal:

Valor coincidente
imagen

imagen

@fabian199827
Copy link
Collaborator Author

fabian199827 commented May 31, 2023

Temperaturas erroneas cerca de -50°C las temperaturas mínimas

imagen

Extraje los datos y esto visualicé para la estación de la escuela agrícola de san felipe

Esta es la tabla y estos son los valores extremos en que fluctúan las temperaturas
imagen

imagen

Debemos chequear esto. Documentaré si extisten otros casos como este

Segundo Caso de temperatura mínima muy baja
imagen

@frzambra
Copy link
Collaborator

frzambra commented Jun 1, 2023

@jbkunst es necesario implementar un filtro para los datos. Por ejemplo:

elim_anomal <- function(x,...){
  if (!is.numeric(x)) stop('suministre valor numérico')
  
  lim_inf <- quantile(x,.25,...) - 1.5*IQR(x,...)
  lim_sup <- quantile(x,.75,...) + 1.5*IQR(x,...)
  x[x < lim_inf | x > lim_sup] <- NA
  
  return(x)
}

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

2 participants