#discutindo problema das diferencas numericas
fexp<-function(x){i<-0;expx<-1;u<-1;while(abs(u)>(1.e-8*abs(expx))){i<-i+1;u<-u*x/i;expx<-expx+u};expx};
######
######
fexpn<-function(x){xa<-abs(x);i<-0;expx<-1;u<-1;while(u>(1.e-8*expx)){i<-i+1;u<-u*xa/i;expx<-expx+u};if(x>=0) expx else 1/expx}

> f<-function(x,n){x^n
+ }
> f(2,3
+ )
[1] 8
> g<-function(x,n){saida1<-x^n;
+ saida2<-log(x)*n;
+ list(polinomio=saida1,logaritmo=saida2)}
> g(2,3)
$polinomio
[1] 8

$logaritmo
[1] 2.079442

> a<-g(2,3)
> a$polinomio
[1] 8
> g<-function(x,n){saida1<-x^n;
+ saida2<-log(x)*n;
+ saida3<-"resultados";
+ list(polinomio=saida1,logaritmo=saida2,resu=saida3)}
> g(2,3)
$polinomio
[1] 8

$logaritmo
[1] 2.079442

$resu
[1] "resultados"

> #discutindo problema das diferencas numericas
> fexp<-function(x){i<-0;expx<-1;u<-1;while(abs(u)>(1.e-8*abs(expx))){i<-i+1;u<-u*x/i;expx<-expx+u};expx};
> ######
> ######
> fexpn<-function(x){xa<-abs(x);i<-0;expx<-1;u<-1;while(u>(1.e-8*expx)){i<-i+1;u<-u*xa/i;expx<-expx+u};if(x>=0) expx else 1/expx}
> ######
> fexp(2)
[1] 7.389056
> exp(2)
[1] 7.389056
> fexp(-20)
[1] 5.621884e-09
> exp(-20)
[1] 2.061154e-09
> exp(-20)
[1] 2.061154e-09
> fexpn(-20)
[1] 2.061154e-09
> help("matrix")
>  mdat <- matrix(c(1,2,3, 11,12,13), nrow = 2, ncol=3, byrow=TRUE,
+                     dimnames = list(c("row1", "row2"), c("C.1", "C.2", "C.3")))
>      mdat
     C.1 C.2 C.3
row1   1   2   3
row2  11  12  13
>  mdat <- matrix(c(1,2,3, 11,12,13), nrow = 2, ncol=3)
> mdat
     [,1] [,2] [,3]
[1,]    1    3   12
[2,]    2   11   13
> g<-function(x,n){saida1<-x^n;
+ saida2<-log(x)*n;
+ saida3<-"resultados";
+ saida4<-matrix(c(1,2,3, 11,12,13), nrow = 2, ncol=3)
+ ;
+ list(polinomio=saida1,logaritmo=saida2,resu=saida3,matriz=saida4)}
> g(2,3)
$polinomio
[1] 8

$logaritmo
[1] 2.079442

$resu
[1] "resultados"

$matriz
     [,1] [,2] [,3]
[1,]    1    3   12
[2,]    2   11   13

> mdat
     [,1] [,2] [,3]
[1,]    1    3   12
[2,]    2   11   13
> mmdat[,1]
Erro: objeto "mmdat" não encontrado
> mdat[,1]
[1] 1 2
> mdat[,3]
[1] 12 13
> mdat[2,]
[1]  2 11 13
> *
Erro: erro de sintaxe em "*"
> 3*5
[1] 15
> c
.Primitive("c")
> M<-matrix(nrow=4,ncol=5)
> M
     [,1] [,2] [,3] [,4] [,5]
[1,]   NA   NA   NA   NA   NA
[2,]   NA   NA   NA   NA   NA
[3,]   NA   NA   NA   NA   NA
[4,]   NA   NA   NA   NA   NA
> dim(M)
[1] 4 5
> MM<-list(a="ola",b=6)
> MM
$a
[1] "ola"

$b
[1] 6

> dim(MM)
NULL
> lenght(MM)
Erro: não foi posssível encontrar a função "lenght"
> length(MM)
[1] 2
> for(i in 1:4){M[i,1]<-i+1}
> M
     [,1] [,2] [,3] [,4] [,5]
[1,]    2   NA   NA   NA   NA
[2,]    3   NA   NA   NA   NA
[3,]    4   NA   NA   NA   NA
[4,]    5   NA   NA   NA   NA
> dim(M)
[1] 4 5
> dim(M)[1]
[1] 4
> for(i in 1:dim(M)[1]){M[i,1]<-i+1}
> M
     [,1] [,2] [,3] [,4] [,5]
[1,]    2   NA   NA   NA   NA
[2,]    3   NA   NA   NA   NA
[3,]    4   NA   NA   NA   NA
[4,]    5   NA   NA   NA   NA
> for(i in 1:dim(M)[1]){M[i,1]<-i^2+1}
> M
     [,1] [,2] [,3] [,4] [,5]
[1,]    2   NA   NA   NA   NA
[2,]    5   NA   NA   NA   NA
[3,]   10   NA   NA   NA   NA
[4,]   17   NA   NA   NA   NA
> for(i in 1:(dim(M)[1]-1)){M[i,2]<-i+1}
> M
     [,1] [,2] [,3] [,4] [,5]
[1,]    2    2   NA   NA   NA
[2,]    5    3   NA   NA   NA
[3,]   10    4   NA   NA   NA
[4,]   17   NA   NA   NA   NA
>