Skip to content

Commit b32f659

Browse files
authored
Update smooth.monotone.R
1 parent 061285a commit b32f659

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

R/smooth.monotone.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -134,7 +134,7 @@ if(length(dim(coef0)) == 2 & nvar != 1){
134134
if( dim(coef0) == 2 & ncol(coef0) != ncurve){
135135
coef0 = matrix(0,nbasis,ncurve)
136136
}
137-
if( dim(coef0) == 3 & !all.equal(dim(coef0)[2:3],c(ncurve,nvar)) ){
137+
if( dim(coef0) == 3 & (all.equal(dim(coef0)[2:3],c(ncurve,nvar))!=TRUE) ){
138138
coef0 = array(0,nbasis,ncurve,nvar)
139139
}
140140
# Note that we could be more carefull about this and try to adapt coefficients

0 commit comments

Comments
 (0)