search for: mylin

...make the symbols of the actual plot use the colors I want. But I have been unable to find the correct incantation to make the lines of the actual plot use the colors I want. Here's the relevant section of code: mycolors <- c("black", "darkgreen", "red") mylines <- Rows(superpose.line, 1:numlines); mylines$col <- mycolors mysymbols <- Rows(superpose.symbol, 1:numlines); mysymbols$pch <- c(15:18)[1:numlines] mysymbols$col <- mycolors print(xyplot( panel = panel.superpose, log10(states) ~ size, groups=category,...

...eceiveFAX negociate T.38 with SPA3102. The trouble is SPA3102, as I configured it, seems to refuse T.38 negociation as I'm reading lines like this in Asterisk logs: == Using UDPTL CoS mark 5 [2013-11-05 10:36:50] WARNING[3061][C-00000007]: res_fax.c:1698 receivefax_t38_init: channel 'SIP/myline-0000000e' refused to negotiate T.38 My question is: Any hint on how to configure SPA3102 PSTN Line port so that it would accept to upgrade to T.38 ? When Asterisk re-invites SPA3102, here is the dialog between both boxes: INVITE sip:myline at 172.16.2.12:5061 SIP/2.0 Via: SIP/2.0/UDP 17...

Hi, I have create the following module: modules/foo `-- manifests |-- definitions | `-- line.pp `-- init.pp $ cat modules/foo/manifests/init.pp import "definitions/*.pp" $ cat modules/foo/manifests/definitions/line.pp define myline($file, $line, $ensure = ''present'') { .... } I try to use the definition in a class: class testfile { file { "/tmp/testfile": ensure => present, } myline { test: file => "/tmp/testfile", line => "# This...

...0, 70, 75, 80, 100, 110, 120, 115, 110, 100)) library(lattice) library(latticeExtra) # This works mybars <- barchart(traffic ~ as.factor(hour), groups = direction, stack = TRUE, horizontal = FALSE, data = mydf, auto.key = list(columns = 2, space = "bottom"), xlab = "hour") mylines <- xyplot(count ~ as.factor(hour), type = "l", lwd = 2, col = 2, data = vehicles) mybars + mylines # This does not work. ?Lines are not correctly placed. mylines <- xyplot(count ~ as.factor(hour), type = "l", lwd = 2, col = 2, data = vehicles, panel = function(x, y, .....

Hi, I meet a strange trouble writing shapefiles with write.pointShape() from maptools. > write.pointShape(mylines[,5:9], file="Sxtplinshp", mycoordspt) Error in write.pointShape(mylines[, 5:9], file = "Sxtplinshp", mycoordspt) : shapefile names must conform to the 8.3 format It seems that the function request a special shapefile name spelling (conformed to 8.3 ESRI format?)....

Hi, I have a line such as: myline <- " 0.100000 1.5000 0.6000 538 0.369404" and I would like to put the numbers into a vector. Some combination of tabs and spaces occur between the numbers. I tried: try1 <- strsplit(myline,"[[:blank:]]+") > try1 [[1]] [1] ""...

...gt; > library(lattice) > library(latticeExtra) > > # This works > mybars <- barchart(traffic ~ as.factor(hour), groups = direction, > stack = TRUE, horizontal = FALSE, data = mydf, > auto.key = list(columns = 2, space = "bottom"), xlab = "hour") > > mylines <- xyplot(count ~ as.factor(hour), type = "l", lwd = 2, > col = 2, data = vehicles) > > mybars + mylines > > # This does not work. Lines are not correctly placed. > mylines <- xyplot(count ~ as.factor(hour), type = "l", lwd = 2, > col = 2, data = ve...

...paste(Unknown_1, " (", mu, "g)", sep="")), ylab=expression(A[595])) plot(unknown2, abs3, col='blue', pch=16, xlim=c(0, 25), ylim=c(0.0, 1.0), xlab = expression(paste(Unknown_2, " (", mu, "g)", sep="")), ylab=expression(A[595])) myline.fit <- lm(abs ~ bsa) summary(myline.fit) abline(myline.fit) axis(side=1, col="gray", tck=1, lty="dotted") axis(side=2, col="gray", tck=1, lty="dotted") box() minor.tick(nx=2, ny=2, tick.ratio=0.5) title(main="Quantifying Protein Content via Bradford...

Dear R Users, I would like to plot three time series on the same graph, two axis on the left and one axis on the right. The time series that I am graphing on the left do not share a similar scale: one has a range of 1:100 and the other a range of 25000:70000. How can I display the tick marks for both on the left hand side without superimposing them, i.e. one set of tick marks in black right

Hello, Well.... I need help to do smthing with Samba 2.0.3-19990228 Let me explain... Ive two servers : one NT and one Linux... Each servers control one domain : ==> NT server MYNT : control DOM1 ==> Lin. server MYLIN : control DOM2 when I configure smb.conf like other classics smb.conf files, I can see my server on network explorer on my NT workstation named NTWKS (global network ==> two domains DOM1 and DOM2 and when I clic on DOM2, I can see MYLIN and I can connect and see shared directories) Ok but now...

Hi here i have a code to split a csv file as per group of line. The code given below, ------------------------------------ SplitCSVByLine <- function(DataMatrix,Destination,NoOfLineToGroup) { input <- file(DataMatrix, "r") fileNo <- 1 repeat { myLines <- readLines(input, n=NoOfLineToGroup) if (length(myLines) == 0) break writeLines(myLines, sprintf(paste(Destination,"Split_File_%05d.csv"), fileNo)) fileNo <- fileNo + 1 } close(input) } --------------------------------------- But how can we split a csv fi...

I am trying to automate a report that my company does every couple of years for the state of Maine. In the past we have used SPSS to run the data and then used complicated Excel template to make the tables/graphics which we then imported into Word. Since there are 256 tables/graphics for this report, this work flow is a little painful. I would like to automate the process and I think I can do

...ppen to exactly overlay each other, the resulting line is completely opaque. In principle, I believe that this is what setting alpha = 1/n should accomplish. In practice, different values of n produce different results. Consider the following function, which overlays n semi-transparent red lines: mylines <- function(n) { replicate(n, lines(0:1, rep(n, 2), col = rgb(1, 0, 0, alpha = 1/n))) } Opening up a device that supports translucency (such as pdf) and plotting the resulting lines for n = 1, ..., 256: pdf("alpha.pdf") plot(0:1, c(1, 256), type = "n") invisible(lapply...

Hi, I am new to R. How can I get labels/different colours on the lines in my xy-plots. I plot "het" against "temp" conditional on "year" and "station". library(lattice) MyLines <- function(xi, yi, ...){ #Draws line in the panels while avoiding spaghetti-plots I <- order(xi) panel.lines(xi[I], yi[I], col = 1)} xyplot(het ~ temp | fstation, data = data1, groups = fyear, xlab = "temp", ylab = "heterocyst freq", panel = panel.superpose, #e...

Hi, R is very new for me, so excuse if my questions are too basic... BTW, are there any forum where new R users could get help without annoying this huge mailing list ? In following code, I'd like to choose the color for each of the curve diplayed. png(filename = filename, width = 950, height = 600, pointsize = 10, bg = "white") xyplot(HITS+MS1*3+FREQ~TIME

Hello, I am having some trouble using a model I created from plsr (of train) to analyze each invididual R^2 of the 10 components against the test data. For example: mice1 <- plsr(response ~factors, ncomp=10 data=MiceTrain) R2(mice1) ##this provides the correct R2 for the Train data for 10 components ## Now my next objective is to calculate my model's R2 for each component on the

Hi... I know... glBegin/glEnd is deprecated but I have an old computer 32bit CPU, running fedora 19, mesa-9.2.4, NV63... any help are welcomed. Please forgive if I misuderstood everything. So I have a simple OpenGL program that draws a black background and a white line... I will write the code of myline() inside of main() so as I can learn. main (..) { X and glX stuff... /* at this moment I think what was sent to the card was the nv30_screen_create(...) that valgrind--mmt outputs 0x4e000 in the first line of valgrind--mmt hex until PUSH_DATA (push, NV05_SIFM_COLOR_CONVERSION_TRUNCATE); which ha...

Hi, Here in R, I need to load a huge file(.csv) , its size is 200MB. [may come more than 1GB sometimes]. When i tried to load into a variable it taking too much of time and after that when i do cbind by groups, getting an error like this " Error: cannot allocate vector of size 82.4 Mb " My requirement is, spilt data from Huge-size-file(.csv) to no. of small csv files. Here i will give

I'm been doing more and more of file text parsing inside R instead of coping with Perl. For that, I need open a file and read it line-by-line. I found the documentation for 'open' isn't very clear. Right now it has ,----[ *help(R)[open]* ] | 'open' opens a connection. In general functions using connections | will open them if they are not open, but then close them

...lems with frames and packing. 8. Fixed a bug where the gpar settings for "fontsize" and "lineheight" _within a grob_ would not affect the location or size of the grob if they were specified in "lines" or "char" units. This required adding new "mylines" and "mychar" units (alternative suggestions for names welcome !) so that you can specify whether a grob's a location/size is in terms of the current viewport's fontsize and lineheight ("lines" and "char") or in terms of its own fontsize and...