search for: xvalu

...scaled against a new axis scale, thus the two plots are not directly comparable (I need the forecast points to be scaled according to the existing y axis). An example is pasted below. Any ideas on how to achieve this would be much appreciated. Thanking you in advance, George. # Sample dates >xValues = seq.Date(as.Date("1990-01-31"),to=as.Date("1992-12-31"),by="month"); # Sample y value > yValues<-NULL; > yValues[1:length(xValues)]=seq(0.1,length=length(xValues)) # Plot the series as a line > plot(xValues,yValues,type="l"); # Sample forec...

...;,header=T) attach(rates) scores<-function(x){ l<-length(rateValue) total<-0 for(i in 1:l){ value<-16*rateValue[i]*rateValue[i]*x*exp(-4*rateValue[i]*x) total<-total+value } return(total) } #------- #preparing the plot linewidth=3 linetype=3 color="blue" xvalue=0.5 plot(scores,xvalue,0,type="n",font.axis=2,xlim=c(xvalue,0)) curve(scores,xvalue,add=TRUE,col=color,lty=linetype,lwd=linewidth,xlim=c(xvalue,0)) #------- Can anyone help me figure out how to determine the peak (maximum "scores") value in the plot that is generated? It sho...

panel.lmline returns intercept and slope of y ~ x subsetted to the combination of conditioning factors given to xyplot in lattice. for instance: xyplot(Xvalues ~ log(Qvalues)|Tfac, data = df7, panel = panel.lmline) I am looking to find the equivalent formulation for lm() proper. If I do this: lmcal <- lm(Xvalues ~ log(Qvalues):Tfac, data = df7) Only one value of the intercept is returned. It appears as all the 'individual' intercepts are...

Hi, I try to create a vertical line in my plot, which has a xaxis comprising time formated data. This is what I tried: ---------------- y<-152833 x<-strptime(y, format="%H%M%S") abline(v=x, col="red") ---------------- for some reason, it doesn't work and no error msg is displayed... I hope someone can tell me what I do wrong, or maybe an alternative. Thanks

...ncol = 9)) names(dataset) <- c("v01_r01", var_battery$v08) independent <- as.list(dataset$v01_r01) dependent <- as.list(dataset[var_battery$v08]) fargs <- list( x = independent, y = dependent, ylab = v08_var_labs) fargs %>% purrr::pmap( function(d = dataset, xvalue = x, yvalue = y, xlab = "Label for x variable", ylab = ylab) { graphics::plot( xvalue ~ yvalue, data = d, xlab = xlab, ylab = ylab) } ) -- cut -- The last statement comes back with Error: Element 2 has length 8, not...

...s using barplot. testdata <- scan(, list(group=0,xbar=0,se=0)) 400 0.36038 0.02154 200 0.35927 0.02167 100 0.35925 0.02341 50 0.35712 0.01968 25 0.35396 0.01931 barplot(testdata$xbar, names.arg=as.character(testdata$group), main="a=4.0", xlab="Group", ylab="xbar") xvalues <- c(0.7, 1.9, 3.1, 4.3, 5.5) arrows(xvalues, testdata$xbar, xvalues, testdata$xbar+testdata$se, length= 0.4, angle=90, code=3) The best clue I have so far is Rtips #5.9: http://pj.freefaculty.org/R/Rtips.html#5.9 which is what I based my present solution off of. However, I do not understan...

...uot;A1:D1") r[["Value"]] <- c(1:4) ch <- ex$Charts() ch$Add() ac <- ex$ActiveChart() ac[["ChartType"]] <- xlXYScatterSmoothNoMarkers ac$Location(Where=xlLocationAsObject, Name="Tabelle1") ac$SeriesCollection()$NewSeries() ac$SeriesCollection(1)[["XValues"]] <- r ac$SeriesCollection(1)[["Values"]] <- r #------------------------------------------------------------------- But I don't perfer this way writing calculated values like "c(1:4)" to the Excel Sheet and calling them via "SeriesCollection". I'...

...ow is a simplified version of the code I am trying to produce: View: <script type="text/javascript"> <!-- function my_Func() { varx = dd.obj.x; // Not sure how to call the controller in the next line <%= render_component :action => ''updatex'', :xvalue => varx %> } --> </script> Controller: Def updatex Person.update(10, {:xvalue => params[:xvalue]}) end -- Posted via http://www.ruby-forum.com/.

Dear All, Does anyone know how to get the maximum/minimum value of a function using R, I think there should be an instruction, but i can not find it in help files Thank you in advance for your help :) [[alternative HTML version deleted]]

...half of it. If you reverse this process you get back to the "x-value", which is what the quantile function is doing. qnorm(0.5) Does this help for the last question? Code for superimposing the data: deg.of.free <- 4 hist(rt(n=500, df=deg.of.free), freq=FALSE, breaks=75, xlim=c(-5,5)) xvalues <- seq(from=-5, to=5, length=200) lines(x=xvalues, y=dt(xvalues, df=deg.of.free), col="blue", lwd=3) Finally, just two remarks: 1) Please use a sensible subject line in your message. 2) Is this some kind of homework assignment? (looks like a typical one) Ciao, Roland +++++ This...

...al=FALSE) boxplot(test[30,1:500],test[90,1:500],test[150,1:500],test[210,1:500],test[270,1:500],test[330,1:500],test[390,1:500],names=c("1","3","5","8","10","13","1"),outline=FALSE,ylim=c(0.01,50),log="y", xlab = "xvalue",ylab="yvalue",boxwex=0.5, pars =list(whisklwd=0,staplelwd=0)) dev.off() This creates a 6kb eps file, that can not be opened by any program. I tired with photoshop gimp, acrobat reader. This is the normal process I follow to save my plots. dev.off always returns 1. and the boxp...

...ements of type double, string etc but NOT objects (such as a matrix etc). This is not convenient for me in the following situation. I have a function that takes 2 inputs and returns a vector: testfun <- function (x,y) seq(x,y,1) I have a data.frame defined as follows: testframe<-data.frame(xvalues=c(2,3),yvalues=c(4,5)) I would like to apply testfun to every row of testframe and then create a new column in the data.frame which holds the returned vectors as objects. Why do I want this? Because the returned vectors are an intermediate step towards further calculations. It would be great to...

...orresponding the fitted model's sigma mu nu by agebins. Q: How do it generate these parameters as in L M S per Cole and Green 1992? Here are my working codes. Name of fitted model is gamlssfit > Agebin<-seq(6,36,6) >centmatx <-centiles.pred(gamlssfit,xname="agemos",xvalues=Agebin,cent=c(10,25,50,75,90)) Although I got matrix of the percentiles by agebins, I want to obtain the L M S/sigma mu nu corresponding to the same agebins. Any help here will be appreciated. Thanks, Y Addo -- View this message in context: http://r.789695.n4.nabble.com/GAMLSS-Question-t...

...y time points, and the following columns 2-4 are the replicates of my experiment. I've tried using row.names=1 to make the first column the value for that row (whereas before I had 1-31 sequence) and then my 1st column) but I can't work out how to tell it that column 1 of my dataset is the xvalue for the data in that row? It's probably really simple, but I can't seem to figure it out! Many thanks, any help appreciated! Laura -- View this message in context: http://r.789695.n4.nabble.com/Plotting-from-a-matrix-where-column-1-is-your-x-value-tp4653076.html Sent from the R help...

...) - 1) x_new <- cbind(V1Binario,V2Binario) x_new <- cbind(x_new,V3Binario) x_new <- cbind(x_new,V4Binario) x_new <- cbind(x_new,V5Binario) nam_ori <- colnames(x_new) col_nam <- paste("V", 1:ncol(x_new), sep = "") colnames(x_new) <- col_nam library(RSNNS) xValues <- x_new xTargets <- x[, 6] xTargetsDecoded <- decodeClassLabels(xTargets) x_nn <- splitForTrainingAndTest(xValues, xTargetsDecoded, ratio=0.15) set.seed(432) model <- mlp(x_nn$inputsTrain, x_nn$targetsTrain, size=3, learnFuncParams=c(0.1), maxit=10, inpu...

Suppose I create an R program called myTest.R with only one line like the following: type <- as.integer(readline("input type (1: type1; 2: type2)? ")) Then I'd like to run myTest.R in batch mode by constructing an input file called answers.R with the following: source("myTest.R") 1 When I ran the following at the terminal: R CMD BATCH answer.R output.Rout it failed

Estimados Les consulto por redes neuronales, hay diversos artículos como los siguientes (el último tienen un error actualmente). Pero mi pregunta va un poco por otro lado. http://www.r-bloggers.com/build-your-own-neural-network-classifier-in-r/ http://www.r-bloggers.com/classification-using-neural-net-in-r/ Básicamente se puede calcular un valor, por ejemplo doblar 2,4 grados a la derecha, luego 1

It''s been a few days since I posted my last two emails (of which, no one replied to) so I''ve gone ahead and coded a working slider class as well as a ''resizeable'' class that allows a user to drag and resize the element. I also linked these two together as I want to have slider behavior that can resize the resizeable element. The end result is both the

...ical analysis with R" (so maybe I'm not so off-topic after all), also unequivocal, e.g.: http://www.nbn.ac.za/Education/11-stats-2004/R1.8/r_workshop.pdf Example: Plotting functions Assume that you were to plot a function by hand. One possibility of doing it is to 1. Select some xvalues from the range to be plotted 2. Compute the corresponding y = f(x) values 3. Plot x against y 4. Add a (more or less) smooth line connecting the (x; y)points ... plot(x, y) # plots x against y (However, in R itself, "?plot" is discretely silent about what is &quot...

...nter. > > We all know what to expect from these functions, much like new/delete in C++ > and malloc/free. They can be easily adopted by std::shared_ptr or > std::unique_ptr as needed, They'd actually only ever need to return std::unique_ptr. std::shared_ptrs can be constructed from xvalue std::unique_ptrs without any overhead: std::unique_ptr<T> create(); std::shared_ptr<T> x = create(); (make_shared has a small allocation (and destruction) benefit that might sometimes be useful to exploit, of course, but you don't benefit from that with raw new either, so unique_...