r<-function(x,n){? #x為方針，n為整數(shù)冪次
i<-1
t<-x
while(i<n){
t<-t%*%x
i<-i+1}
t}