made fapply not return lists of what should be vectors in a data frame