http://143.107.246.201:8081/ecor/ 2026-04-22T19:45:02+00:00 http://143.107.246.201:8081/ecor/ http://143.107.246.201:8081/ecor/lib/exe/fetch.php?media=logo.png text/html 2026-03-27T14:00:39+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/ecor/doku.php?id=05_curso_antigo:r2016:alunos:trabalho_final:raymond.takiguchi:start&rev=1774620039&do=diff Ray Takiguchi Fisioterapeuta, aluno de mestrado pelo Departamento de Fisiologia do Instituto de Biociências-USP, laboratório de Neuroimunoendocrinologia sob orientação do Prof. Dr. Pedro A.C.M. Fernandes. Meu objeto de estudo é o efeito da eletroacupuntura no eixo melatonérgico em modelo de sepse. text/html 2026-03-27T14:00:39+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/ecor/doku.php?id=05_curso_antigo:r2016:alunos:trabalho_final:raymond.takiguchi:trabalho_final&rev=1774620039&do=diff Trabalho Final normal<-function(x, transf="todos", teste="SW", colu) { library(plyr) #biblioteca para a utilização da função arrange. ####################### #transformações ###################### lg<-log(x) #logaritimo sq<-sqrt(x) #raiz quadrada cub<-x^1/3 #raiz cubica inv<-1/x #inverso media<-mean(x)/x #percentual da media #######################3 #Criando lista com as transformações #################### trans<-list(lg,sq, cub,inv, media) names(trans)<-c("log","Rquadrada","Rcubica…