Hola, tengo el siguiente código:
>source("depurdat.R")
> library(readxl)
> d<-as.data.frame(read_excel("Database_RioChapingoMX_final1.xls", sheet="todas" ))
> options(max.print=1000000)
> write(unlist(t(d[,4:34])),'Prec_1970-2015.dat',ncolumns=34)
> library(readxl)
> p<-as.data.frame(read_excel("Prec_1970-2015.xls", sheet="Hoja1" ))
> options(max.print=1000000)
> write(unlist(t(p[1:9,])),"Prec_1970-2015.est", ncolumns=5)
> homogen("Prec", 1970, 2015, snht1=0,expl=TRUE)
HOMOGEN() APPLICATION OUTPUT (From R's contributed package 'climatol' 3.1)
=========== Homogenization of Prec, 1970-2015. (Sat Feb 24 18:32:25 2018)
Parameters: varcli=Prec anyi=1970 anyf=2015 suf=NA nm=NA nref=10,10,4 std=3 swa=NA ndec=1 dz.max=5 dz.min=-5 wd=0,0,100 snht1=0 snht2=0 tol=0.02 mxdif=NA maxdif=0.05 maxite=999 force=FALSE wz=0.001 trf=0 mndat=NA gp=3 ini=NA na.strings=NA vmin=NA vmax=NA nclust=100 cutlev=NA grdcol=#666666 mapcol=#666666 hires=TRUE expl=TRUE metad=FALSE sufbrk=m tinc=NA tz=UTC cex=1.2 verb=TRUE
y me arroja al final este error
Error in if (max(abs(est.c[, 1])) > 180 | max(abs(est.c[, 2])) > 90) deg <- FALSE else { :
missing value where TRUE/FALSE needed
No entiendo bien qué significa, también coloqué el argumento deg=TRUE o deg=FALSE, pero luego me marca esto:
Error in homogen("Prec", 1970, 2015, snht1 = 0, deg = FALSE) :
unused argument (deg = FALSE)
Alguien que me pueda orientar?