tezhengzhi<-function(n,p,a,b,p1){
rm()

V<-diag(c(rep(a,each=p1),rep(b,each=p-p1)))

T<-V^0.5

X<-matrix(rnorm(p*n),p,n)


S<-T%*%X%*%t(X)%*%t(T)/n

latend<-eigen(S)$values
return(latend)

hist(latend)

}
今天刚学习R第二天，只是想画一个简单的直方图，latend是我要画的数据，在页面上执行时，图没有办法输出，只显示了latend的值，求帮助