编写一个函数，给出两个数之后，直接给出这两个数的平方和。

sqtest<-function(x,y)
{z1=x^2;
z2=y^2;
z3=z1+z2;
z3}

调用函数

sqtest(3,4)

## [1] 25