Update smooth.monotone.R

gileshooker · web-flow · commit 061285a52ffe · 2021-09-10T10:54:43.000-07:00
diff --git a/R/smooth.monotone.R b/R/smooth.monotone.R
@@ -131,7 +131,7 @@ coef0    <- Wfdobj$coefs
 if(length(dim(coef0)) == 2 & nvar != 1){
 	coef0 = array(0,nbasis,ncurve,nvar)
 }
-if( dim(coef0) == 2 & ncol(coef0) ! = ncurve){
+if( dim(coef0) == 2 & ncol(coef0) != ncurve){
 	coef0 = matrix(0,nbasis,ncurve)	
 }
 if( dim(coef0) == 3 & !all.equal(dim(coef0)[2:3],c(ncurve,nvar)) ){

Original file line number	Diff line number	Diff line change
`@@ -131,7 +131,7 @@ coef0 <- Wfdobj$coefs`
`131`	`131`	`if(length(dim(coef0)) == 2 & nvar != 1){`
`132`	`132`	`coef0 = array(0,nbasis,ncurve,nvar)`
`133`	`133`	`}`
`134`		`-if( dim(coef0) == 2 & ncol(coef0) ! = ncurve){`
	`134`	`+if( dim(coef0) == 2 & ncol(coef0) != ncurve){`
`135`	`135`	`coef0 = matrix(0,nbasis,ncurve)`
`136`	`136`	`}`
`137`	`137`	`if( dim(coef0) == 3 & !all.equal(dim(coef0)[2:3],c(ncurve,nvar)) ){`