search for: dado

...write a loop to split my data into different series. I need to make a new matrix (or series) according to the series code. For instance, every time the "code" column assumes the value "433" I need to save "date", "value", and "code" into the "dados433" matrix. Please take a look at the following example: dados <- matrix(c("2012-01-01","2012-02-01","2012-03-01","2012-04-01","2012-05-01","2012-06-01", "2012-01-01","2012-02-01","2012-03-01",&quo...

Hi There, I'm facing one problem to construct a vector using the "for" command: I have one matrix named 'dados' (same as /data/ from portuguese), for example: > dados[140:150,] [,1] [,2] [,3] [1,] 212.7298 0.14 0.11 [2,] 213.3778 0.14 0.11 [3,] 214.0257 0.15 0.11 [4,] 214.6737 0.15 0.12 [5,] 215.3217 0.15 0.12 [6,] 215.9696 0.15 0.12 [7,] 216.6176 0.16 0.12 [8,] 217.2656 0.16 0.13...

Hola, ¿hay alguna forma de colocar la leyenda de un gráfico sin que se superponga con las barras de mi gráfico? Os dejo mi ejemplo para que me entendáis: ## dado_1<-sample(1:6,1200,replace=T)dado_2<-sample(1:6,1200,replace=T)dado_3<-sample(1:6,1200,replace=T) dados<-matrix(c(table(dado_1),table(dado_2),table(dado_3)),6) barplot(t(dados),beside=TRUE,ylab="Frecuencias absolutas",main="Dados",names.arg=c(1,2,3,4,5,6),col=c(&quot...

Hi, I want to remove the outliers of my database with the following program (an observation is considered an outlier if it is bigger than second quartile + 1,5* distance interquartiles or less than second quartile - 1,5*distance interquartiles): for(i in 1:length(dados)){ q3=quantile(dados[i], probs=.75) q3=quantile(dados[i], probs=.50) q1=quantile(dados[i], probs=.25) d=q3-q1 for(i2 in 1:length(dados$quest_1)) { if (dados[i2,i] < q2-1.5*d) dados[i2,i]=NULL else if (dados[i2,i] > q2+1.5*d) dados[i2,i]=NULL } } But R is returning the following error messag...

Hi all, I have problems in a dataframe variables types. Look: from a loop function: for(...){ ... dados.fin <- rbind(dados.fin, c(L=j, A=j^2, Nsp=nsps, N=length(amosfin$SP), AmT="am",NAm=nam, AMST=amst)) dados.fin <- rbind(dados.fin, c(L=j, A=j^2,...

...rror: Erro em plot.default(xlim, ylim, type = "n", ann = FALSE, axes = FALSE, : argumento formal "type" corresponde a múltiplos argumentos especificados DATA: 44 40 39 38 0 7 7 1030 57 37 5146 40 41 4737 34 36 2636 28 33 3738 26 28 2742 38 36 3636 27 22 2853 43 33 40 plot(dados[1],type="o",pch=21, axes=FALSE,xlab="year",ylab="cases")lines(dados[2], type="o", pch=22)lines(dados[3], type="o",pch=23)lines(dados[4], type="o",pch=24)legend(1,8.5, legend=c("Pel","RG","SM","SV"),...

Hi all, Sorry to be bothering again with probably an easy error to fix, but I've been trying to solve the problem and haven't been able yet to do it. So I'm doing this: > dados<-read.table("b.txt",sep="",nrows=30000) > model<-svm(x=dados[,-1],y=dados[,1],scale=TRUE,type="C-classification",kernel="radial",cost=1,degree=3,gamma=0.083,coef0=0,nu=0.5,epsilon=0.1) Warning message: In svm.default(x = dados[, -1], y = dados[, 1]...

Hi all, I'm trying to plot an svm model and I'm the following error: > plot(model, data= dados[,-1], formula=formula(dados[,2]~dados[,3]),svSymbol = 1, dataSymbol = 2, symbolPalette = rainbow(4),color.palette = terrain.colors) Error in terms.default(x) : no terms component Anyone knows how to solve this??? Best regards, Pedro Marques

I am using pyramid.plot() from the plotrix package. I have something like this ############################################ xy.pop<-dados$masfr xx.pop<-dados$femfr #agelabels<-dados$femlab xycol<-color.gradient(c(0,0,0.5,1),c(0,0,0.5,1),c(1,1,0.5,1),11) xxcol<-color.gradient(c(1,1,0.5,1),c(0.5,0.5,0.5,1),c(0.5,0.5,0.5,1),11) xylab<-dados$maslab xxlab<-dados$femlab agelabels<-xylab png("piramide9808.png&quo...

GUYS, I NEED HELP WITH ERROR: library(MASS) > dados<-read.table("mediaRGinverno.txt",header=FALSE) > vento50<-fitdistr(dados[[1]],densfun="weibull") Erro em fitdistr(dados[[1]], densfun = "weibull") : Weibull values must be > 0 WHY RETURN THIS ERROR? WHAT CAN I DO? BEST REGARDS [[alternati...

...gt; > I have 21 files which is common variable CODE. > Each file refers to a question. > > I would like to join the 21 files into one, to construct > tables for each question by CODE. > > I tried the command (8 files only): > > require(foreign) > q1 = read.epiinfo('Dados/Q1.rec') > q2 = read.epiinfo('Dados/Q2.rec') > q3 = read.epiinfo('Dados/Q3.rec') > q4 = read.epiinfo('Dados/Q4.rec') > q5 = read.epiinfo('Dados/Q5.rec') > q6 = read.epiinfo('Dados/Q6.rec') > q7 = read.epiinfo('Dados/Q7.rec') &gt...

...s,   I am a beginner at R so please be gentle :) I have already read manuals and FAQs, with no help. I have a monthly time series data on public debt with 40 variables, it starts on January 1994 and ends on June 2011. I am loading the data into R using read.csv and the data looks ok when I do edit(dados): > dados<-read.csv("dadosR3.csv", header=T) then I tried making it into a time series object, using: > dados2<-ts(dados, start = c(1994,1), frequency=12)   Now when I try plotting any of the variables, for example divliq.pib (net debt), the date doesn't appear on the x a...

Hi R-masters! I have a problem and need your help. I have 9 discrete variables with 2 levels each. In exploratory analisys I generate one matrix with chi-square for tables with 2 ariables each with this script setwd("F:/") dados<-read.csv("log.csv")[,2:10] dados.x<-matrix(NA,ncol=9,nrow=9) for(i in 1:8){ for(j in (i+1):9){ tab<-table(dados[,i],dados[,j]) dados.x[i,j]<-round(as.numeric(chisq.test(tab)$statistic),3) dados.x[j,i]<-round(as.numeric(chisq.test(tab)$statistic),3) } } dados.x The resu...

Hi, I am having some problems using bwplot(lattice) in my data. I want change some parameters: 1) Fontfamily to serif 2) The size of the font 3) Put it in a bold face 4) Change de color of the lines How can I do that?! Now, I am using this to plot my boxplot. dados <- data.frame(varsep=as.factor(rep(1:2,10)),i=runif(20)) bwplot(dados[,'varsep']~dados[,'i'],xlab=names(dados)[2],ylab=names(dados)[1],panel =function(...){panel.grid(v = -1, h = 0);panel.bwplot(...)},font=2,fontfamily='serif') Thanks for any help on advance and sorry...

...0 16:37 Ambiente de impress?o drwxr-x--- 2 root Domain Users 48 2005-05-20 16:37 Ambiente de rede drwxr-x--- 2 root Domain Users 48 2005-06-21 10:23 Configura??es locais drwxr-x--- 2 root Domain Users 48 2005-06-21 10:24 Cookies drwxr-x--- 2 root Domain Users 48 2005-06-21 10:23 Dados de aplicativos drwxr-x--- 2 root Domain Users 48 2005-05-20 16:37 Desktop drwxr-x--- 2 root Domain Users 48 2005-05-20 16:37 Favoritos drwxr-x--- 3 root Domain Users 80 2005-06-21 10:24 Menu Iniciar drwxr-x--- 2 root Domain Users 48 2005-05-20 16:37 Meus documentos drwxr-x---...

I was trying to make some multi figure plots and I had some strange problems. I'm using R 0.61.2. When I make this plot >postscript(file="timeplot5.ps",horizontal=TRUE) >par(mfrow=c(2,2)) >plot(dados$a1) >plot(dados$a2) >plot(dados$a3) >plot(dados$a4) The last panel is ploted without the box and it is always ploted in landscape mode. Can anyone reproduce this problem? But if I make the plot this way >x11(orientation="portrait",paper="a4",width = 6.7, height =...

...m having this error, since I'm working with a data matrix I don't understand what's happening; I've tried several ways to solve this, even working with sparse matrix, but nothing seems to solve it, I've also tried svm (with a simple matrix 3*3 and still got the same error. > dados<-read.table("b.txt",sep="",nrows=30000) > dados1<-as.matrix(dados[,-1],nrows=30000,ncol=13,type=numeric) > dados2<-as.vector(dados[,1]) > model<-svm(scale=TRUE,type=C,dados[,-1],y=dados[,1],kernel=RBF) Error in as.character(x) : cannot coerce to vector >...

Bom dia eu chamo-me Ana, estou a tentar fazer matriz de correla??o e covariancia para comparar 4 variaveis e saber quais s?o as mehores... fiz o segundo codigo mas devo tar a fazer alguma confus?o para nao me aparecer o output correcto: cor(dados[,2:5],method=c("pearson")) cor_with_p_test(dados[2:5]) ct <- cor.test(dados[,2:5]) ct$p ct$v #matriz de covariancias cov(dados[,2:5], na.rm=TRUE) mando o arquivo de dados em anexo. Aguardando uma resposta, desde j? agrade?o. eSubescrevo-m Ana Rocha

Hi, My error isErro em hist.default(dados[[1]], freq = TRUE, seq(0, 30, 0.5), prob = FALSE, : some 'x' not counted; maybe 'breaks' do not span range of 'x' hist(dados[[1]],seq(0, 30, 0.5), prob=TRUE, xlab="chuva (mm/dia)",ylab="frequência", main="", cex.lab=1.6, cex.sub=3,cex.axis=3...

...idmap_ldb:use rfc2307 = yes vfs objects = recycle catia fruit streams_xattr acl_xattr map acl inherit = Yes store dos attributes = Yes fruit:enconding = native recycle:keeptree = yes recycle:versions = yes recycle:repository = /dados/trash/%U recycle:exclude = *.tmp, *.log, *.obj, ~*.*, *.bak, *.iso recycle:exclude_dir = tmp, cache [netlogon] path = /opt/samba/var/locks/sysvol/cmc/scripts read only = No [sysvol] path = /opt/samba/var/locks/sysvol read only = No [home]...