R code below changed to Julia code. It is always error. I do not know how
to change R code below to Julia code correctly? Thank you.
#R code
forward <- function(G.I,Tr,Pr)
{
n.samp <- dim(G.I)[1]
n.mark <- dim(G.I)[2]
F <- G.I
F[,1,] <- sweep(G.I[,1,],2,Pr,"*")
for (i in 2:n.mark)
{
F[,i,] <- G.I[,i,]*(F[,i-1,]%*%Tr)
S <- F[,i,1] + F[,i,2] + F[,i,3]
F[,i,] <- sweep(F[,i,],1,S,"/")
}
return(F)
}
#error julia code
function forward(GI::Array,Tr::Array,Pr::Array)
nsamp = size(GI,1)
nmark = size(GI,2)
F = GI
F[:,1,:] = broadcast(*,Pr,GI[:,1,:]) #error
for i=2:nmark
F[:,i,:] = GI[:,i,:].*(F[:,i-1,:]*Tr) #error
S = F[:,i,1] + F[:,i,2] + F[:,i,3] #error
F[:,i,:] = broadcast(/,S',F[:,i,:]) #error
end
return F
end