方老师：您好！
     在第六课假设检验中，您用QQ图做正态性检验：

x1=c(48,47,44,45,46,47,43,47,42,48)
x2=c(36,45,47,38,39,42,36,42,46,35)
qqnorm(x1,xlab="x1");qqline(x1)

qqnorm(x2,xlab="x2");qqline(x2)

我想请教的是：有没有一个正态性检验的函数，直接进行正态性检验？
（比如在SAS中，正态性检验：

proc univariate data=sasuser.gpa normal
;

var gpa;

run;

）