Commitb799769

committed

Solve strange non-numericness problem

1 parentd8c0117 commitb799769Copy full SHA for b799769

File tree

-2

lines changed

-2

lines changed

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -104,7 +104,7 @@ optim_nm <- function(fun, k = 0, start, maximum = FALSE, trace = FALSE, alpha =`
`104`	`104`	`trace_array<- rbind(trace_array, c(counter+1,simplex[1],simplex[1,-1]))# writing trace for visulaization`
`105`	`105`	`}`
`106`	`106`
`107`		`-R<-M+alpha* (M-simplex[k+1, c(2:(k+1))])# Reflection`
	`107`	`+R<-as.numeric(M+alpha* (M-simplex[k+1, c(2:(k+1))]))# Reflection`
`108`	`108`	`Ry<- fun(R)`
`109`	`109`
`110`	`110`	`if (Ry>simplex[k,1]) {# case 1: Reflection or Expension (correct direction)`
`@@ -167,7 +167,7 @@ optim_nm <- function(fun, k = 0, start, maximum = FALSE, trace = FALSE, alpha =`
`167`	`167`	`kparam<-param[-(k+1)]# extracting the k best vertices from simplex`
`168`	`168`	`M<-kparam# calculating the mean of the k best points`
`169`	`169`	`}`
`170`		`-`
	`170`	`+`
`171`	`171`	`End<- sqrt(sum((simplex[,1]- fun(M))^2)/ (k+1))# determine the exit out of the loop if a certain accuracy is reache`
`172`	`172`	`counter<-0`
`173`	`173`

Lines changed: 1 addition & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -18,3 +18,4 @@ StripTrailingWhitespace: Yes`
`18`	`18`	`BuildType: Package`
`19`	`19`	`PackageUseDevtools: Yes`
`20`	`20`	`PackageInstallArgs: --no-multiarch --with-keep.source`
	`21`	`+PackageRoxygenize: rd,collate,namespace`

Comments

(0)