Olá!
Criei alguns dados para rodar o script. Veja se é algo semelhante a isso que
busca:
data<-read.table(header = T,dec=",",text = "
col1 col2 col3
1,284877804 1,277701121 0,59309434
-0,558038947 -0,539990734 -0,302552794
-0,159938135 0,491608754 -0,019733664
0,106479765 0,148207508 0,054369
erto.u...@gmail.com<mailto:luizroberto.u...@gmail.com>
skype: lrmpinto
http://lattes.cnpq.br/2732314327604831
"The science exists because there are patterns.
The patterns exist because God created them.
The statistic exists to research the patterns that God created."
Em
Como carregar um pacote executando um código R online? Já tentei require() e
também library() e em vários sites sem sucesso.
Att., Delcio Bortolanza.
___
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-b
dados<-read.table(header = F, stringsAsFactors = F, text = "
n id UFx2002 x2003 x2004 x2005 x2006 x2007 x2008 x2009 x2011 x2012
x2013 x2014
1 1 Acre 192189 311 311 333327 338354
357 381 337 373
2 2 Alagoas 1251 1269 1292135
Algo assim vc quer?
matriz<-read.table(header = F,text = "G001 1. 0.14842780 -0.114680730
0.302947649 0.32931462 0.37740045 0.30480517 -0.34884430 -0.39049631
-0.34041558 0.056306588
G002 0.14842780 1. 0.070276175 0.170691108 0.09668893 0.02550203
0.13058268 -0.15
sta Brasileira oficial de discussão do programa R.
Assunto: Re: [R-br] Preencher área entre duas linhas
Mesmo que você defina a linha de polygon() como de cor nula (transparente)?
On Mon, Oct 16, 2017 at 5:26 PM, Delcio Rudinei Bortolanza via R-br
mailto:r-br@listas.c3sl.ufpr.br>>
16, 2017 at 5:26 PM, Delcio Rudinei Bortolanza via R-br
mailto:r-br@listas.c3sl.ufpr.br>> wrote:
Olá!
Segue um exemplo hipotético:
#===
x<-1:5
set.seed(4)
y0<-sample(x)
set.seed(2)
y1<-sample(x)+5
matplot(x,data.frame(y0,y1),pch = c(0,1),col
Olá!
Segue um exemplo hipotético:
#===
x<-1:5
set.seed(4)
y0<-sample(x)
set.seed(2)
y1<-sample(x)+5
matplot(x,data.frame(y0,y1),pch = c(0,1),col = c(1,1),las=1)
xspline(x,y0,-0.5)
xspline(x,y1,-0.5)
#===
Como
Olá!
O ajuste fica bom, mas o parâmetro "a" tem problemas (alguém da lista mais
especializado poderia falar algo sobre).
Att.
y = c(1,1,2,2,1,3,10,15,9,17,13,18,21,27)
tempo=c(2001,2003,2004,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016)
library(minpack.lm)
exp<-nlsLM(y~a*exp(b*tempo
dados<-read.table(header = T,text = "
tempo X5 X15 X25 X35 X45 X55 X65
X75 X85 X95
1 1 46.58864 49.50402 46.24913 49.81371 49.20052 49.22530 45.96857
50.10608 48.47951 48.07773
2 2 46.58864 47.46737 50.06054 46.99793 48.66818 48.21
Vejam o seguinte script:
rm(list=ls(all=TRUE))
library(minpack.lm)
dados<-read.table(header = TRUE, dec=",",text=
"psi theta
0,01 0,5
0,5 0,48
1 0,42
3 0,4
10 0,39
30 0,35
100 0,3
300 0,28
1000 0,27
")
dados
theta=dados$theta
psi=dados$psi
durner<-as.formula(theta~0.6*(thetar+((thetas-thetar)
Olá!
Não sei se é exatamente assim que deseja, mas segue o script:
soma <- matrix(c(1998.869,2650.337), nrow = 1,ncol = 2)
# formatação 1 (br)
options(OutDec=",")
barplot(soma, main = "Lucratividade (en)", ylim= c(0, (max(soma[1,1],
soma[1,2])) + 1000), xlab = "",
ylab = "Lucratividade,
Olá!
Tenho esta equação para encontrar a solução e gostaria de utilizar o R para
isso.
(0.501143 - 0.314445)*((1 + (0.716407*x)^1.574827)^(((1 - 1/1.574827) - 1) -
1)*(((1 - 1/1.574827) - 1)*((0.716407*x)^(1.574827 -
1)*(1.574827*0.716407)))*((1 - 1/1.574827)*((0.716407*x)^(1.574827 -
1)*(1.5
Olá, bom dia!
Haveria a possibilidade de retirar os três eixos frontais que ficam
atrapalhando a visualização da superfície de resposta construída com a função
wireframe() do pacote lattice? E os valores na escala logarítmica serem
exibidos na sua forma normal (ex: 0.001 ao invés de 10^-3) e e
14 matches
Mail list logo
