[R] dot products

[Alexander Shenkin]

Hello,

I need to take a dot product of each row of a dataframe and a vector.
The number of columns will be dynamic.  The way I've been doing it so
far is contorted.  Is there a better way?

    dotproduct <- function(dataf, v2) {
        apply(t(t(as.matrix(a)) * v2),1,sum) #contorted!
    }

    df = data.frame(a=c(1,2,3),b=c(4,5,6))
    vec = c(4,5)
    dotproduct(df, vec)


thanks,
allie