diff --git a/DESCRIPTION b/DESCRIPTION index 7c78a9d..dc1feee 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: ouch Type: Package Title: Ornstein-Uhlenbeck Models for Phylogenetic Comparative Hypotheses -Version: 2.19-2 -Date: 2024-04-01 +Version: 2.19-3 +Date: 2024-05-22 Authors@R: c(person(given=c("Aaron","A."),family="King",role=c("aut","cre"),email="kingaa@umich.edu",comment=c(ORCID="0000-0001-6159-3207")), person(given=c("Marguerite","A."),family="Butler",role=c("ctb"))) Maintainer: Aaron A. King diff --git a/src/ouch.h b/src/ouch.h index eeff913..69d21a3 100644 --- a/src/ouch.h +++ b/src/ouch.h @@ -4,14 +4,13 @@ #include #include #include -#include static SEXP makearray (int rank, int *dim) { int nprotect = 0; int *dimp, k; SEXP dimx, x; PROTECT(dimx = NEW_INTEGER(rank)); nprotect++; - dimp = INTEGER(dimx); + dimp = INTEGER(dimx); for (k = 0; k < rank; k++) dimp[k] = dim[k]; PROTECT(x = allocArray(REALSXP,dimx)); nprotect++; UNPROTECT(nprotect);