Skip to content

multi

3 messages · IZHAK shabsogh, arun, Adams, Jean

arun
# 
Hi,
May be this helps:
set.seed(42)
?list1 <- lapply(1:3, function(i) matrix(rnorm(4),2,2))
g <- c(1,2,3)

fun1 <- function(g,hessianList){
? mat1 <- vector(mode="list",length=length(g))
?? for(i in seq_along(g)){
???????? mat1[[i]] <- g[i]*hessianList[[i]]
??? ????????????????? }
Reduce(`+`,mat1)
? 
}

#or
fun2 <- function(g,hessianList){
lst1 <- lapply(seq_along(g),function(i) g[i]*hessianList[[i]])
Reduce(`+`,lst1)
}
identical(fun1(g,list1),fun2(g,list1))
#[1] TRUE
A.K.
On Tuesday, November 5, 2013 1:02 PM, IZHAK shabsogh <ishaqbaba at yahoo.com> wrote:
[[1]]
???????????? [,1]????? [,2]
[1,]? 0.003632559 0.2190629
[2,] -2.090772847 0.2190629

[[2]]
??????????? [,1]?????? [,2]
[1,] 0.004278991 0.04337005
[2,] 0.190723602 0.04337005

[[3]]
?????????? [,1]??????? [,2]
[1,] 0.01237827 -0.01544811
[2,] 0.06452200 -0.01544811

g<-c(1,2,3)

function(g,hessianList){
?? for(i in 1:3){
?? ??? ? ft1<-g[2]*hessianList[[2]]
?? ??? ? ft2<-sum(ft1)
?? ??? ? ft2
?? }
}

can u please help me find out what is the problem with this code

i want to multiply matrix 1-3 by a vector g and sum the result.


thanks
??? [[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.