apply() and calculating proportion of first row for all dataframe rows

Question

I have a dataframe as shown below listing the number of injuries by vehicle type:

trqldnum <- data.frame(motorveh=c(796,912,908,880,941,966,989,984),
             


        

Answer 1

Some version of Prasad solution without conversion to matrix.

trqldnum/trqldnum[1,][rep(1,nrow(trqldnum)),]