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

Reply via email to