Проверка нормального распределения данных в R

Может кто-нибудь пожалуйста, помогите мне заполнить следующую функцию в R:

#data is a single vector of decimal values
normally.distributed <- function(data) {
if(data is normal)
return(TRUE)
else
return(NO)
}