Extent SpatialPoints in to SpatialPolygon in the shape of an ellipse

Question

I would like to generate a buffer in the shape of an ellipse around each point in a SpatialPointsDataFrame, meaning in the end I would like to have a polygon for each point in m