Uso do return em funções no R

Abaixo o uso da função return dentro de outra função

Função para a fórmula de amostras pareadas:

 2×(𝜎dif ²×(z(1-𝛼/2)+z(1-𝜷)) ²/(|𝜇a-𝜇d|²)  

Revendo a fórmula em outro livro, lá descreve que a fórmula acima é para pequenas amostras e pode-se substituir os valores tabelados da normal pelos valores tabelados da t-student. Lá afirma que outra forma de reescrever a fórmula é além da que está escrito acima adicionar  (z(1-𝛼/2))²/2 no fim da expressão.

amostraparpeq=function(poder,sig,difplan,sigdifplan,n){

delta=difplan/sigdifplan

return((2*(qt(1-sig/2,n)+qt(poder,n))**2/(delta)**2)+((qt(1-sig/2,n)**2)/2))

}

amostrapargrande=function(poder,sig,difplan,sigdifplan){

delta=difplan/sigdifplan

return((2*(qnorm(1-sig/2)+qnorm(poder))**2/(delta)**2)+((qnorm(1-sig/2)**2)/2))

}

Exemplo : Maria fez diversos apontamentos e percebeu que a diferença da variância das notas de seus alunos da disciplina experimentos 1 na nota de expectativa que o aluno esperava antes da prova e na nota realmente atingida depois da prova, sempre estava por volta de 5 pontos, com uma diferença da expectativa média com a nota média atingida na prova de  3 pontos em todas as turmas que teve dessa disciplina desde que passou a ministrar a matéria na escola que trabalha.    Querendo saber o tamanho amostral necessário para que haja uma diferença entre a nota média de expectativa e a nota média realmente atingida na prova, Maria considerou que os dados que possuía eram fidedignos da disciplina, calculou então um tamanho amostral considerando nível de significância de 5% e poder do teste de 80%. 

Usando a expressão sem a última parte:

Maria usou a fórmula para amostras pareadas que pegou de um livro de bioestatística e chegou-se no valor  de 9 pessoas a serem consultadas sobre sua expectativa de nota de prova antes da prova,  e 9 medições de nota na prova a serem realizadas depois da prova nessas mesmas pessoas.

 Usando a expressão considerando a última parte:

Maria usou a fórmula para amostras pareadas que pegou de um livro de bioestatística e chegou-se no valor  de 11 pessoas a serem consultadas sobre sua expectativa de nota de prova antes da prova,  e 11 medições de nota na prova a serem realizadas depois da prova nessas mesmas pessoas.

Referências Bibliográficas que recomendo ler para quem quer saber mais sobre bioestatistica :

Arango, H. G. Bioestatística: Teórica e Computacional: Com banco de dados reais em disco.3.ed. Rio de Janeiro: Guanabara Koogan, 2016

Rosner, B. Fundamentals of Biostatistics. 8.ed. Boston: Cengage Learning, 2015

Machin, D; Campbell, M.J.; Tan, S.B.; Tan, S.H. Sample Sizes for Clinical, Laboratory and Epidemiology Studies. 4.ed.  John Wiley & Sons Ltd, 2018